軒袁寨

因廠商吐出來文字檔在吃進去後 Str 如CODE那樣不是單純的一個空白(因該算不規則長度) 並透過A方法OR B方法做一些簡單的處理

procedure TForm1.btn1Click(Sender: TObject);
var
    str,str1,Result,tmp: string;
    strlist: TStringList;
    i,c: integer;
begin
    Memo1.Clear;
    str := '1          0         0         19        24          0                0.00      0.00';
    //方法A
    strlist := TStringList.Create;
    strlist.Delimiter := ' ';
    strlist.DelimitedText := str;
    for i:=0 to (strlist.Count-1) do
    str1:= str1+ strlist[i] +',';
    str1:=copy(str1,1,Length(str1) -1);
    Memo1.Lines.Add('test1:'+str1);

    //方法B
    tmp := Trim(str);
    while Pos('   ', tmp) > 0 do
    begin
    c := Pos('   ', tmp);
    tmp := Copy(tmp, 1, c - 1) +Copy(tmp, c + 1, Length(tmp) - c);
    end;
    Result := tmp;
    Result:= StringReplace((Result),'  ',',',[rfReplaceAll, rfIgnoreCase]);
    Memo1.Lines.Add('test2:'+Result);

 end;

end.

 

參考網址 http://bbs.csdn.net/topics/10182228

 

 

 

 

 

大家一起加入blogads 賺零用錢!!