FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Recorrer un String
Hola. Tengo un problema:
Necesito recorrer nombre de archivos como String: ACA01-05-07-06.doc ó VA05-06-07-08.PDF y necesito identificar las primeras letras y enseguida ir formando otro string con las primeras letras más los siguientes dos digitos, ejemplo: ACA01 ACA05 ACA07 ACA06 VA05 VA06 VA07 VA08 y después de que va separando el string debe hacer un busqueda (función que ya tengo) en una BD. parte del codigo que estoy utilizando es este: Funcion para identificar Letras procedure TMain.OpenArrayLetras(const constArray: array of const); var i : Integer; begin for i := 0 to 54 {High(constArray)} do begin Abcd:=ConstArray[i].VChar; if Abcd=LetraFile then break; end; end; Funcion para identificar Numeros procedure TMain.OpenArrayNumero(const constArray: array of const); var i : Integer; begin for i := 0 to 9 {High(constArray)} do begin ABC123:=ConstArray[i].VChar; if ABC123=NumFile then break; end; end; procedure TMain.AdvSmoothButton4Click(Sender: TObject); var Letra, numero, Punto: Integer; Final, FinalNum, Plana, PlanaNum: String; begin //Punto:='.'; PkaCmp:='aca01-02-99-16.PDF'; punto:=Pos('.',PkaCmp); Delete(PkaCmp,Punto,4); //Delete(PkaCmp,Punto+1,3); for letra := 1 to Length(PkaCmp) do begin LetraFile:=PkaCmp[Letra]; OpenArrayLetras(['a','b','c','d','e','f','g','h','i','j','k','l','m','n','ñ', 'o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H', 'I','J','K','L','M','N','Ñ','O','P','Q','R','S','T','U','V','W','X','Y','Z']); if not (LetraFile=Abcd) then Begin //inicio de busqueda de nomenclatura Final:=PkaCmp; Delete(Final, Letra, Length(Final)); Plana:=Final; NomPub:=Plana; Memo2.Lines.Add(Plana); //termino de busqueda de nomenclatura //inicio de busqueda de dos digitos de la plana //Se elimina la nomenclatura y se dejan los numeros de página PkaCmp2:= Copy(PkaCmp,Letra,length(PkaCmp)); for numero := 1 to Length(PkaCmp2) do Begin NumFile:=PkaCmp2[Numero]; OpenArrayNumero(['0','1','2','3','4','5','6','7','8','9']); if Not (NumFile=ABC123) then Begin FinalNum:=PkaCmp2; PlanaNum:= copy(FinalNum, ((numero)-(2)),2 ); Digito:=PlanaNum; PlanaBusqueda:=NomPub+Digito; Memo2.Lines.Add(PlanaBusqueda); end; end; end; end; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Recorrer y Cortar String | octalh | Varios | 6 | 28-11-2017 09:46:41 |
Recorrer un STRING | creus | Varios | 3 | 07-01-2007 22:52:37 |
Error al recorrer string | creus | Varios | 6 | 16-11-2006 22:39:45 |
recorrer string | emiliu | Varios | 2 | 16-11-2005 10:23:25 |
Recorrer un string | davidgaldo | Varios | 3 | 09-11-2005 10:04:28 |
|