如何提取诸如'.v/ww9898/15JAN/CAN/中间例如'15JAN'字符其中ww9898可能为ww98989长度不定〔在线等）！

Question

如何提取诸如'.v/ww9898/15JAN/CAN/中间例如'15JAN'字符其中ww9898可能为ww98989长度不定〔在线等）！

Answer 1

var
 FileList,LineList: TStrings;
begin
 FileList:=TStringList.Create;
 LineList:=TStringList.Create;
 try
  FileList.LoadFromFile('d:\test.txt');
  //文件的所有内容都保存在FileList中了
  //FileList.Strings[0]是第一行
  //FileList.Strings[1]是第二行...
  //FileList.Count是行数
  Memo1.Lines:=FileList; //显示FileList中的内容
  //将FileList的第一行根据空格拆分，保存在LineList中
  if ExtractStrings([' '],[],PChar(FileList.Strings[0]),LineList)>0 then
   Memo1.Lines.AddStrings(LineList); //添加到Memo1的后面
 finally
  FileList.Free;
  LineList.Free;
 end;
end;