BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: apisak ที่ มีนาคม 21, 2013, 13:49:53 PM

หัวข้อ: ขอคำแนะนำครับ โหลด txt ได้เลขเพียงหลักเดียว
เริ่มหัวข้อโดย: apisak ที่ มีนาคม 21, 2013, 13:49:53 PM

procedure TFimport43.SpeedButton1Click(Sender: TObject);
var
 txt:TextFile;
 quebra:TStringList;
 arq:string;
begin
  quebra := TStringList.Create;
  AssignFile(txt,RzEdit1.Text);
  Reset(txt);
  ProgressBar1.Position:=0;
  ProgressBar1.Max:=FileSize(txt);
  while not eoln(txt) do
  begin
    quebra.Clear;
    Readln(txt,arq);
    ExtractStrings([';'],[],pChar(arq),quebra);
      with q41service  do
      begin
        q41service.SQL.Clear;
        q41service.SQL.Add('insert into service(pcucode,pid,seq) values ('+
        #34+quebra.Strings[0] +#34+','+
        #34+quebra.Strings[1] +#34+','+
        #34+quebra.Strings[2] +#34+')');
        ExecSQL;
        end;
      ProgressBar1.Position:=ProgressBar1.Position+1;
      end;
      CloseFile(txt);
      ProgressBar1.Position:=0;
      quebra.Free;
      ShowMessage('ARQIO successo');

###
txt ที่ใช้โหลด

0000;01111;8888

ถ้าตัวหน้าเป็นเลขหลักเดียวโหลดได้

ขอคำแนะนำครับ

หัวข้อ: Re: ขอคำแนะนำครับ โหลด txt ได้เลขเพียงหลักเดียว
เริ่มหัวข้อโดย: apisak ที่ มีนาคม 21, 2013, 14:29:43 PM

อ้างจาก: apisak ที่ มีนาคม 21, 2013, 13:49:53 PM

procedure TFimport43.SpeedButton1Click(Sender: TObject);
var
 txt:TextFile;
 quebra:TStringList;
 arq:string;
begin
  quebra := TStringList.Create;
  AssignFile(txt,RzEdit1.Text);
  Reset(txt);
  ProgressBar1.Position:=0;
  ProgressBar1.Max:=FileSize(txt);
  while not eoln(txt) do
  begin
    quebra.Clear;
    Readln(txt,arq);
    ExtractStrings([';'],[],pChar(arq),quebra);
      with q41service  do
      begin
        q41service.SQL.Clear;
        q41service.SQL.Add('insert into service(pcucode,pid,seq) values ('+
        #34+quebra.Strings[0] +#34+','+
        #34+quebra.Strings[1] +#34+','+
        #34+quebra.Strings[2] +#34+')');
        ExecSQL;
        end;
      ProgressBar1.Position:=ProgressBar1.Position+1;
      end;
      CloseFile(txt);
      ProgressBar1.Position:=0;
      quebra.Free;
      ShowMessage('ARQIO successo');

###
txt ที่ใช้โหลด

0000;01111;8888

ถ้าตัวหน้าเป็นเลขหลักเดียวโหลดได้

ขอคำแนะนำครับ

ได้แล้วครับ
ลืมปรับขนาดของ field service ให้กว้างขึ้น

ขอถามต่อครับ ถ้าเป็นข้อมูลที่มีอยู่แล้วให้เอาของใหม่ไป update ต้องทำอย่างไรครับ(date_serv เท่ากันให้ Update)