怎么把这个函数写周全？(80分)

liuyang · 2003-12-16

这个函数的作用是把制定的分割符号的东西分割出来 比如导入一个文本文件test.txt 里面的内容是0001~11111111111111111111~206~412~50~WH7~7 function TForm1.qsdt(dtfh:Char ;str:String; var Strs:TStrings; Allow:boolean):boolean; var   i:Integer;   Temp:String; begin   Result := false;   Temp := '';   if ((dtfh = '') or (str='')) then exit;   Strs.Clear;   for i:=1 to Length(str) do     if Str<>dtfh then Temp := Temp+Str     else     begin       if I<>1 then       begin         if Temp<>'' then Strs.Add(Temp)         else           if Allow then Strs.Add( dtfh );           Temp := '';       end;     end;   if Temp<>'' then Strs.Add(Temp);   Result:= True; end; 拿这个测试 procedure TForm1.Button1Click(Sender: TObject); var   jilu:TStringList;   str:TStrings;   i:integer; begin   jilu := TStringList.Create;   str := TStringList.Create;   jilu.LoadFromFile('i:/test.txt');   showmessage(inttostr(jilu.Count));   for i:=0 to jilu.Count-1 do   begin       qsdt('~',jilu,str,true);    showmessage(str[3]);   end;  end; 这个时候显示的应该是412 但要是分割符号为两个的时候就不好处理了。比如符号换成$$ （字段有空的情况则$$$$）， 请问怎么改上面的函数？

hfghfghfg · 2003-12-16

sl.Text:=stringReplace('0001~11111111111111111111~206412~50~WH7~7','~',#13,[rfReplaceAll, rfIgnoreCase])

hfghfghfg · 2003-12-16

var  sl:TstringList; begin  sl:=TstringList.Create;

长生一剑 · 2003-12-16

for i:=0 to length(string) do    if string<>'~' then    begin       tmp:= tmp + string;    end; 这样好像要简单点吧？？？

hongxing_dl · 2003-12-16

ok ----- stringreplace一个函数搞定——何必这么复杂呢？ procedure TForm1.BitBtn1Click(Sender: TObject); var  jilu:TStringList;  str:TStrings;  i:integer; begin  jilu := TStringList.Create;  str := TStringList.Create;  jilu.LoadFromFile('i:/test.txt');  showmessage(inttostr(jilu.Count));  for i:=0 to jilu.Count-1 do    str.text:=stringreplace(jilu,'~',#13,[rfReplaceAll]);//    //如果是'$$'，则str.text:=stringreplace(jilu,'$$',#13,[rfReplaceAll]);//  showmessage(str.text);//看看结果就知道了  str.free;  jilu.free; end;

wind2000 · 2003-12-16

//我自已写的一个函数，一直都在用！ //字符串Str以Ch分隔成几段小字符串,该函数是将这些小字符串提取出来并保存在MyString中 function GetStrs(const Str, Ch: string; var Mystring: TStrings) : boolean; var   sit, n            : integer;   S                 : string; begin   Result := True;   MyString.Clear;   S := Str;   n := Length(Ch);   while True do     begin       if Pos(Ch, S) = 0 then         begin           MyString.Add(S);           Break;         end;       sit := Pos(Ch, S);       MyString.Add(Copy(S, 1, sit - 1));       S := Copy(S, sit + n, Length(S));     end;   if MyString.Count < 2 then Result := False; end;

liuyang · 2003-12-28

多人接受答案了。

怎么把这个函数写周全？(80分)

liuyang

Unregistered / Unconfirmed

hfghfghfg

Unregistered / Unconfirmed

hfghfghfg

Unregistered / Unconfirmed

长生一剑

Unregistered / Unconfirmed

hongxing_dl

Unregistered / Unconfirmed

wind2000

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

Similar threads