Fórum Importar arquivo .csv ignorando os espaços de cada linha. #379955
22/06/2010
0
Estou fazendo um aplicativo onde é necessário fazer um importação de arquivo .csv (separado por ponto-vísgulas). O código está funcionando perfeitamente, importando e gravando na tabela do Firebird. O conteúdo do arquivo .csv é o seguinte: teste.csv
Rafael;RJ;82728790
Julio;SP;82727788
Clara;BH;82772890
Raul;RJ;81622573
Fernanda;RJ;98932989
O problema é que quando em alguma linha existe um espaço em branco, por exemplo: Rafael Ricardo;RJ;82728790.
Ele pensa que o espaço entre uma palavra indica outra coluna.
Eu queria um código em que o espaço em branco fosse ignorado e aceitasse apenas o ponto vírgula como delimitador de caracter.
O código que estou usando é o seguinte:
procedure TFLogbook.btnImportClick(Sender: TObject);
var
Arq : TextFile;
texto : string;
I : Integer;
function MV : String;
var
Monta : String;
begin
monta := '';
inc(I);
While Texto[I] > '*' do
begin
If Texto[I]= ';' then
break;
monta := monta + Texto[I];
inc(I);
end;
result := monta;
end;
//begin
//if OpenDialog1.Execute then
begin
Screen.Cursor := crHourGlass;
DM.CDSExcel.Open;//a tabela onde quero por os dados excel
AssignFile(Arq,'C:\Documents and Settings\Rafael Ricardo\Desktop\teste.csv');
Reset(Arq);
if not EOF(Arq) then
repeat
ReadLn(Arq,Texto);
with DM.CDSExcel do begin
I := 0;
DM.CDSExcel.Insert;
DM.CDSExcelCLIENTE.AsString:= MV;// é meu campo
DM.CDSExcelCIDADE.AsString := MV;//operação outro campo
DM.CDSExcelFONE.AsInteger :=StrToInt(MV);//outro campo
DM.CDSExcelEMPRESA.AsString:= 'teste';
DM.CDSExcel.Post;
DM.CDSExcel.ApplyUpdates(0);
end;
until EOF(Arq);// ate o fim arquivo CSV
Closefile(Arq);//fecha arquivo CSV
Screen.Cursor := crDefault;
ShowMessage('Importado!');
end;
Se alguém puder ajudar agradeço imensamente.
Desculpa pela bagunça no código, ainda não organizei.
Rafael
Curtir tópico
+ 0Posts
23/06/2010
Tiago Silva
Ao meu entender...
While Texto[I] > '*' do
Não está legal.
Experimente mudar sua função MV para...
... function MV : String; var Monta : String; nI : Integer; begin monta := ''; inc(I); nI := Length(Texto); While I <= nI do begin If Texto[I]= ';' then break; monta := monta + Texto[I]; inc(I); end; result := monta; end; ...
Abraços !
Gostei + 0
23/06/2010
Emerson Nascimento
tente assim:
procedure TFLogbook.btnImportClick(Sender: TObject);
var
Arq: TextFile;
Texto: string;
Txt: TStringList;
begin
Txt := TStringList.Create; // cria a stringlist
Txt.StrictDelimiter := True; // indica que o delimitador é somente aquele definido abaixo
Txt.Delimiter := ';'; // caractere delimitador de campos
try
Screen.Cursor := crHourGlass;
AssignFile(Arq,'C:\csv.csv');
Reset(Arq);
if not EOF(Arq) then
repeat
ReadLn(Arq, Texto);
Txt.DelimitedText := Texto; // desmembra o texto
with DM.CDSExcel do
begin
I := 0;
DM.CDSExcel.Insert;
DM.CDSExcelCLIENTE.AsString := Txt[0]; // é meu campo
DM.CDSExcelCIDADE.AsString := Txt[1]; // operação outro campo
DM.CDSExcelFONE.AsInteger := StrToInt(Txt[2]); // outro campo
DM.CDSExcelEMPRESA.AsString:= 'teste';
DM.CDSExcel.Post;
DM.CDSExcel.ApplyUpdates(0);
end;
until EOF(Arq);
finally
Closefile(Arq); //fecha arquivo CSV
Screen.Cursor := crDefault;
end;
FreeAndNil(Txt);
end;
Gostei + 0
23/06/2010
Rafael
tente assim:
procedure TFLogbook.btnImportClick(Sender: TObject);
var
Arq: TextFile;
Texto: string;
Txt: TStringList;
begin
Txt := TStringList.Create; // cria a stringlist
Txt.StrictDelimiter := True; // indica que o delimitador é somente aquele definido abaixo
Txt.Delimiter := ';'; // caractere delimitador de campos
try
Screen.Cursor := crHourGlass;
AssignFile(Arq,'C:\csv.csv');
Reset(Arq);
if not EOF(Arq) then
repeat
ReadLn(Arq, Texto);
Txt.DelimitedText := Texto; // desmembra o texto
with DM.CDSExcel do
begin
I := 0;
DM.CDSExcel.Insert;
DM.CDSExcelCLIENTE.AsString := Txt[0]; // é meu campo
DM.CDSExcelCIDADE.AsString := Txt[1]; // operação outro campo
DM.CDSExcelFONE.AsInteger := StrToInt(Txt[2]); // outro campo
DM.CDSExcelEMPRESA.AsString:= 'teste';
DM.CDSExcel.Post;
DM.CDSExcel.ApplyUpdates(0);
end;
until EOF(Arq);
finally
Closefile(Arq); //fecha arquivo CSV
Screen.Cursor := crDefault;
end;
FreeAndNil(Txt);
end;
PERFEITO EMERSON!! Mas estou com um probleminha...não consegui descobrir porquê, quando eu compilo, dá um erro na parte que destaquei em amarelo, diz que StrictDelimiter não é uma variável declarada. Estranho...não consegui achar um erro no código que causasse isso.
Gostei + 0
23/06/2010
Rafael
Ao meu entender...
While Texto[I] > '*' do
Não está legal.
Experimente mudar sua função MV para...
... function MV : String; var Monta : String; nI : Integer; begin monta := ''; inc(I); nI := Length(Texto); While I <= nI do begin If Texto[I]= ';' then break; monta := monta + Texto[I]; inc(I); end; result := monta; end; ...
Abraços !
Ok Muito Obrigado Thiago!
Gostei + 0
23/06/2010
Rafael
tente assim:
procedure TFLogbook.btnImportClick(Sender: TObject);
var
Arq: TextFile;
Texto: string;
Txt: TStringList;
begin
Txt := TStringList.Create; // cria a stringlist
Txt.StrictDelimiter := True; // indica que o delimitador é somente aquele definido abaixo
Txt.Delimiter := ';'; // caractere delimitador de campos
try
Screen.Cursor := crHourGlass;
AssignFile(Arq,'C:\csv.csv');
Reset(Arq);
if not EOF(Arq) then
repeat
ReadLn(Arq, Texto);
Txt.DelimitedText := Texto; // desmembra o texto
with DM.CDSExcel do
begin
I := 0;
DM.CDSExcel.Insert;
DM.CDSExcelCLIENTE.AsString := Txt[0]; // é meu campo
DM.CDSExcelCIDADE.AsString := Txt[1]; // operação outro campo
DM.CDSExcelFONE.AsInteger := StrToInt(Txt[2]); // outro campo
DM.CDSExcelEMPRESA.AsString:= 'teste';
DM.CDSExcel.Post;
DM.CDSExcel.ApplyUpdates(0);
end;
until EOF(Arq);
finally
Closefile(Arq); //fecha arquivo CSV
Screen.Cursor := crDefault;
end;
FreeAndNil(Txt);
end;
PERFEITO EMERSON!! Mas estou com um probleminha...não consegui descobrir porquê, quando eu compilo, dá um erro na parte que destaquei em amarelo, diz que StrictDelimiter não é uma variável declarada. Estranho...não consegui achar um erro no código que causasse isso.
Alguém consegue entender porque o compilador informa que StrictDelimiter é uma variável não declarada?
Gostei + 0
23/06/2010
João Sobrinho
Gostei + 0
23/06/2010
Rafael
Na Mosca João!!, pelo que acabei de pesquisar na net, a versão do meu Delphi, que é 7, não suporta StrictDelimiter.
Vi algumas pessoas falando que eu tinha que usar "ExtractStrings", mas eu não tenho a menor idéia de como adaptar isso ao código, o pior é que já venho tentato fazer isso a quase um ano e não consigo.. : (
Gostei + 0
24/06/2010
João Sobrinho
Gostei + 0
24/06/2010
Emerson Nascimento
function MV: String;
var
letra: integer;
begin
Result := '';
if Pos(';', texto) > 0 then
begin
for letra := 1 to Length(texto) do
if texto[letra] <> ';' then
Result := Result + texto[letra]
else
Break;
texto := RightStr(texto, Length(texto) - Length(Result) -1);
end
else
begin
Result := texto;
texto := '';
end;
end;
para que seja possível utilizar a função RightStr(), adicione a unit StrUtils à sua cláusula uses.
Gostei + 0
26/06/2010
Rafael
O código que eu usei foi o seguinte:
procedure TFLogbook.BitBtn2Click(Sender: TObject);
var
DataFile : TextFile;
lineFile : String;
fileStrings : TStringList;
begin
OpenDialog1.Execute;
if FileExists(OpenDialog1.FileName) then //o usuário abrirá
//o arquivo com diálogo do Windows
begin
AssignFile(DataFile, OpenDialog1.Filename);
Reset(DataFile);
try
fileStrings := TStringList.Create;
try
while not EOF (DataFile) do
begin
Readln(DataFile, lineFile);
//substitua o ; pelo caractere separador do arquivo
ExtractStrings([';'],[' '],PChar(lineFile),fileStrings);
with DM.CDSExcel do Begin
Insert;
//manipula as strings extraídas, como gravar seus valores em
//uma tabela do banco de dados
DM.CDSExcelCLIENTE.AsString := fileStrings[0];
DM.CDSExcelCIDADE.AsString := fileStrings[1];
DM.CDSExcelFONE.AsInteger := StrToInt(fileStrings[2]);
//DM.CDSExcelEMPRESA.AsString := fileStrings[3];
DM.CDSExcel.Post;
DM.CDSExcel.ApplyUpdates(0);
end;
//limpa o conteúdo da TStringList criada
fileStrings.Clear;
end;
finally
fileStrings.Free;
end;
finally
CloseFile(DataFile);
end;
end;
ShowMessage('Importado!');
end;
Abracos!! Valeu mesmo!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)