如何取出文件里面特殊的字段．．．．．．．希望知道的朋友帮个忙．．．．．．(0分)

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-10

• #1

Eg:
有个文本文件　Text1.txt　　其内容如下：
　　十分上,D:/士大夫/诶哦可/dffds/fdfdfs/发射点.htm,1,1,dsffsd,46546
发射点法,sdffd,大幅度上/fsdfs/fsdfew/gfdg/似的.exe,4,gf,5445546
实现目的：
　　我将如何才能够得到Text1.txt文件里面的文件（发射点.htm）和文件（似的.exe）
　　如何将这２个文件（发射点.htm）和（似的.exe）单独提取出来？？？？？？？？？？

 

B

Black_7_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-10

• #2

可用Extractstrings([','],[','],PChar(Str),Strs)把,之间的字符串提取到TStringList里。
不过看样子你不是光想提取一个字符串，而是从二进制里提取文件。
想看文件内容？

 

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-10

• #3

TO:Black_7_1
不是啊 我不要看内容，我只要提取文件名就可以了 ，可以帮我写详细一点吗？？文件名怎么提取出来？？多谢了…………

 

C

ctaxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #4

用正则表达式

 

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #5

TO:ctaxp
用正则表达式 ??什么意思??

 

O

onelife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-11

• #6

用查的字符串的方法应该也可以的吧，菜鸟代码，不知道是不是楼主要的效果
procedure TForm1.Button1Click(Sender: TObject);
var S:String;
begin
S:='D:/士大夫/诶哦可/dffds/fdfdfs/发射点.htm,1,1,dsffsd,46546';
while Pos('/',S)>0 do
Delete(S,1,Pos('/',S));
ShowMessage(s);
S:=MidStr(S,1,Pos('.htm',S));
ShowMessage(S);
end;

 

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-12

• #7

TO;onelife
不是这样的 文件又没固定,又不一定是*.htm文件,
S:='D:/士大夫/诶哦可/dffds/fdfdfs/发射点.htm,1,1,dsffsd,46546'; 这个怎么 得到?? 有成千上万个 , 我只是举出2个例子,
'D:/士大夫/诶哦可/dffds/fdfdfs/发射点.htm,1,1,dsffsd,46546' 也该在文本文件里面怎么提取出来???怎么在Text1.txt里面提取出来呢??

 

C

ctaxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #8

文件名都是带扩展名的，所以你要提取的内容就有下面的特征：
/(.*).(.*),
length($2):=3;