Delimitador em arquivo text

Delphi

11/02/2008

Boa tarde.

Eu tenho um arquivo .txt com esta estrutura.

ATU 05/09/2007 17:27:43 CLEUSA CLEUSA File: 1005 Reg: 000000 (#001) 0 (002) (003) 0 (004) 0 (005) 0 (006) 0 (007) 0 (008) 0 (009) 0 (010) 0 (011) 0 (012) 0 (013) 0 (014) 0 (015) 0 (016) 0 (017) 0 (018) 0 (019) 0 (020) 0 (021) 0 (022) 0 (023) 0 (025) 0 (026) (027)

Os nrs dentro do parenteses (021) representam o nr.do campo.
Preciso criar uma rotina onde consiga ler o nr.do campo e o valor atribuido
a ele.

Vi no forum uma rotina usando stringlist e a opção delimiter, que
tentei colocar , mas não separou.

Gostaria de depois de ler este txt coloca-lo em uma stringgrid assim:

Campos|Valor
001|0
002|00
...
023|0

note que nem sempre eu tenho todos os campos (falta o 24).
Se alguem tiver uma sugestão...

Grato


Emarcolongo

Emarcolongo

Curtidas 0

Respostas

Edilcimar

Edilcimar

11/02/2008

use qualquer delimitador, e quando faltar um dos campos, coloque 2 delimitadores, separados por um espaço


GOSTEI 0
Emarcolongo

Emarcolongo

11/02/2008

na verdade eu preciso ler. não criar, desculpe faltou especificar.


GOSTEI 0
Rodc

Rodc

11/02/2008

Faça três StringReplace(), um para trocar ´(#´ por ´13´, outro para trocar ´)´ por ´|´ e outro para trocar ´ ´ (espaço) por ´´ (vazio).


GOSTEI 0
POSTAR