Exportação de Dados para Txt.
Salve Delphianos!
Estou com um serio problema com exportacao de dados para txt. Uso o Delphi 6 + o MSSQL Server 7.0 e em minha aplicação estou precisando muito de uma dica.
Meu problema está na divisão de um campo da tabela. Ex.:
A Tabela X possue um campo ´Text´ e na exportação eu preciso dividir os caracteres deste campo de 80 em 80 posições, ou seja, se para o codigo ´00001´ este campo possue 160 caracteres, eu preciso dividí-lo de modo em que na primeira linha do arquivo a ser gerado fique mais ou menos assim:
00001[b:94b5ffe7ac]01[/b:94b5ffe7ac]123...80 e na 2ª linha
00001[b:94b5ffe7ac]02[/b:94b5ffe7ac]818283...160
Sendo que os codigos ´01´ e ´02´ (em negrito acima) são para indicar que o campo foi dividido por 02 e assim sucessivamente .. 01, 02 ,03 ...
Por favor me ajudem!
Abraços, :?:
Estou com um serio problema com exportacao de dados para txt. Uso o Delphi 6 + o MSSQL Server 7.0 e em minha aplicação estou precisando muito de uma dica.
Meu problema está na divisão de um campo da tabela. Ex.:
A Tabela X possue um campo ´Text´ e na exportação eu preciso dividir os caracteres deste campo de 80 em 80 posições, ou seja, se para o codigo ´00001´ este campo possue 160 caracteres, eu preciso dividí-lo de modo em que na primeira linha do arquivo a ser gerado fique mais ou menos assim:
00001[b:94b5ffe7ac]01[/b:94b5ffe7ac]123...80 e na 2ª linha
00001[b:94b5ffe7ac]02[/b:94b5ffe7ac]818283...160
Sendo que os codigos ´01´ e ´02´ (em negrito acima) são para indicar que o campo foi dividido por 02 e assim sucessivamente .. 01, 02 ,03 ...
Por favor me ajudem!
Abraços, :?:
Santee
Curtidas 0
Respostas
Lucas Silva
24/03/2004
Você pode usar as funções copy e pos, tenta esse código ai.
var texto, aux: String; . . Texto := 0000102818283; aux := Copy(Texto,1,9); ShowMessage(aux);
GOSTEI 0