10 respuestas en este tema

[monchito_elroro]

Buenas amigos , como están yo aquí de nuevo para solicitarles una ayuda con un problema.

Por ejemplo si yo tengo cualquiera estos valores (String):

 

c:\files\test.exe -f

c:\files\test.exe -startup

c:\files\test.exe /min

"c:\files\test.exe" /autostart

 

como puedo hacer para solo obtener la ruta exacta del programa, es decir:

 

c:\files\test.exe

 

Les agradezco cualquier ayuda que me puedan brindar, saludos

 

[Gaston]

Hola, con funciones de manejo de cadenas Length, Pos, etc... 

Creo que primero deberás hallar la subcadena 'c:' y extraer desde allí hasta encontrar el '.exe' 

Con Pos('c:',cadena) y Pos('.exe',cadena) y luego un Copy(cadena, posición1, posición2). Eso a grandes rasgos.  Pos devuelve la posición donde comienza la subcadena, para encontrar 'c:' te alcanza.

 

 

Te dejo par de links en español que tratan los manejos de cadenas: 

 

http://www.nachocaba...s5/cupas04b.php

 

http://www.lawebdelp...scal/pag007.php

 

Saludos.

[Agustin Ortu]

Nunca lo probé cuando el string tiene los parámetros de la línea de comandos, pero la función ProcessPath http://docwiki.embar...trl.ProcessPathpodría servir

[Marc]

¿ Has probado a usar las funciones ExtractFileName y ExtractFilePath sobre esas cadenas ?. No sé si te van a eliminar los parámetros, pero vale la pena intentarlo.

[BDWONG]

Hola puedes probar esta alternativa que recorre la cadena de modo inverso 

delphi

function PathFilter(const Path:String):String;
var Index:DWord;
begin
  Index:=Length(Path);
  while Path[Index]<>#32 do  Dec(Index);
  Result:=Copy(Path,1,Index);
end;
 
begin
 
  Writeln(PathFilter('c:\files\test.exe -f'));
  Writeln(PathFilter('c:\files\test.exe -startup'));
  Writeln(PathFilter('c:\files\test.exe /min'));
  WriteLn(PathFilter('c:\files\test.exe /autostart'));
 
  ReadLn;
end.

Saludos... 

[monchito_elroro]

Muchas gracias amigos por su ayuda , les comento que primeramente probe con extractfilename y extractfilepath, pero no me dio el resultado deseado...

por ejemplo en:

php

showmessage(extractfilename('c:\files\test.exe -f'));    // me muestra   test.exe -f
showmessage(extractfilepath('c:\files\test.exe -f'));      // me muestra   c:\files\

De momento el código del amigo BDWONG me esta ayudando mucho:

php

function PathFilter(const Path:String):String;
 
var Index:DWord;
begin
Index:=Length(Path);
while Path[Index]<>#32 do Dec(Index);
Result:=Copy(Path,1,Index);
end;

 

por ejemplo en:

php

showmessage(PathFilter('c:\files\test.exe -f'));                       // me muestra c:\files\test.exe
showmessage(PathFilter('c:\files\test.abcde -startup'));        // me muestra c:\files\test.abcde
showmessage(PathFilter('c:\files\test.bd /min'));                    // me muestra c:\files\test.bd
showmessage(PathFilter('c:\files\test.1 /autostart'));              // me muestra c:\files\test.1

De momento me esta trabajando perfecto le agradezco por la ayuda    , más bien si no fuera mucha confianza como podría hacer en el caso que exista comillas dentro del path...

Por ejemplo si tengo los string:

php

"c:\files\test.exe" /autostart
"c:\files\test.db" /IM

El código del amigo BDWONG me devuelve:

php

"c:\files\test.exe" /autostart      // devuelve   "c:\files\test.exe"
"c:\files\test.db" /IM                  // devuelve   "c:\files\test.db"

Como puedo hacer para que devuelva por ejemplo el path exacto     c:\files\test.exe

Saludos y gracias por su tiempo.

[BDWONG]

Hola @mochito_elroro  una forma para resolver lo de las las comillas es usar la funcion stringReplace que remplaza todas las ocurrencias(comillas) por el espacio vacio quedando mas o menos asi 

delphi

function PathFilter(Path:String):String;
var Index:DWord;
begin
  Path:=StringReplace(Path,#34,EmptyStr,[rfReplaceAll,rfIgnoreCase]);
  Index:=Length(Path);
  while Path[Index]<>#32 do  Dec(Index);
  Result:=Copy(Path,1,Index);
end;
 
begin
  Writeln(PathFilter('c:\files\test.exe -f'));
  Writeln(PathFilter('c:\files\test.abcde -startup'));
  Writeln(PathFilter('c:\files\test.exe" /autostart'));
  WriteLn(PathFilter('"c:\files\test.db" /IM'));
 
  ReadLn;
end.

Claro hay montones de formas de plantear el problema ya tu decides por cual irte.

Saluddos....

[monchito_elroro]

Amigo BDWONG es usted un genio me ha servido perfectamente.

He estado probando sus códigos y trabajan muy bien, pero me he topado con un gran problema , antes que nada les comento lo que deseo crear.

 

Estoy tratando de listar todos los programas que se iniciar cada vez que se enciende la pc, para ser más claro estoy listando todos los item que aparece en esta sección del registro:

php

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce

Ahora los primero códigos que el amigo BDWORD muy amablemente compartió me sirvieron tanto para las siguientes STRING:

php

c:\files\test.exe -f
c:\files\test.exe -abcde startup
c:\files\test.1 /min
"c:\files\test.db" /autostart

Pero ahora me topo con que otros valores tienes este formato:

php

C:\Windows\system32\cmd.exe /q /c rmdir /s /q "C:\Users\juanito\AppData\17.3.6390.0509\amd64"
c:\trabajos diarios\escuela\test.exe /s /q
c:\files\test.exe /s /q

Ahora si no se que hacer, Pienso que talvez se tenga que hacer un recorrido desde el comienzo para obtener la ruta exacta, pero tomando en cuenta que en el camino puedan existir espacios y puntos que forman parte del path y que no necesariamente indican el final del string o una posible extensión, ya me maree

[BDWONG]

Bueno quizás seria mejor  plantear el problema de una forma distinta en vez de recorrer la cadena de manera inversa quizás seria mejor seria encontrar la posicion de la extensión de la aplicación y ya conociendo ese valor entonces ahora si copiar desde la posición 1 hasta la posición n, 

delphi

function  PathFilter(Path,extension:String):String;
var iPos:DWord;
begin
  Result:=EmptyStr;
  iPos:=Pos(extension,Path);
 
  if iPos>0  then begin
    Path:=StringReplace(Path,#34,EmptyStr,[rfReplaceAll,rfIgnoreCase]);
    Result:=Copy(Path,1,iPos+Length(extension)-1);
  end;
end;
 
begin
  WriteLn(PathFilter('C:\Windows\system32\cmd.exe /q /c rmdir /s /q "C:\Users\juanito\AppData\17.3.6390.0509\amd64"','.exe'));
  WriteLn(PathFilter('c:\trabajos diarios\escuela\test.exe /s /q','.exe'));
  WriteLn(PathFilter('c:\files\test.abcde -startup','.abcde'));
  WriteLn(PathFilter('"c:\files\test.db" /IM','.db'));
 
  ReadLn;
end.

PD: Si no se encuentra la extensión devolvera una cadena vacia

[Gaston]

Esto funciona para los .exe si no es .exe devuelve una cadena vacía. En el único caso que no funciona bien es en el que comienza con "
Adjunto el archivo .pas por si lo querés probar con FPC por consola.
 
Éste es el resultado que se obtiene:
 

delphi

c:\files\test.exe 
c:\files\test.exe 
c:\files\test.exe 
c::\files\test.exe"
C:\Windows\system32\cmd.exe 
c:\trabajos diarios\escuela\test.exe 
c:\files\test.exe

 
Saludos.
 

delphi

function elPath(spath:string):string;
var
  aux1,aux2:string;
  i,j:integer;
begin
  aux1:=UpperCase(spath);
  i:=Pos('C:',aux1);
  aux2:=Copy(spath,i,2);
  j:=Pos('.EXE',aux1);
  aux2:=aux2+Copy(spath,Length(aux2)+1,j+2);
  if (i=0) or (j=0) then elPath:='' else elPath:=aux2;
end;
 
var
   aPath:array [1..7] of string;
   k:integer;
 
begin
   aPath[1]:='c:\files\test.exe -f';
   aPath[2]:='c:\files\test.exe -startup';
   aPath[3]:='c:\files\test.exe /min';
   aPath[4]:='"c:\files\test.exe" /autostart';
   aPath[5]:='C:\Windows\system32\cmd.exe /q /c rmdir /s /q "C:\Users\juanito\AppData\17.3.6390.0509\amd64"';
   aPath[6]:='c:\trabajos diarios\escuela\test.exe /s /q';
   aPath[7]:='c:\files\test.exe /s /q';
   for k:=1 to 7 do
      writeln(elPath(aPath[k]))
end.

Archivos adjuntos

•  camino.pas   842bytes   2 descargas

[monchito_elroro]

Guauuu

No cabe duda que todos son unos master les agradezco que me den una mano, voy a probar sus sugerencias y les comento.