UC知道怎样查找文件中的字符串(delphi)
来源：百度知道 编辑：UC知道 时间：2024/05/21 14:07:23
在文件(596.txt)查找数据库(bd)表(sheet)的字符串
sheet表如下：
ID 对象描述 项目文本 （字段类型）
1 2.700k R310 R311 （第一条记录）
2 270.00 R314 （第二条记录）
......(下面还有很多条别的记录)
596.txt文件如下：
......(上面有很多别的记录)
268 R310 2.700K D5 132 131 0 0 0
0.000K 2.700K 10.0 10.0 0 0 0 0
269 R311 2.700K D4 87 132 0 0 0
0.000K 2.700K 10.0 10.0 0 0 0 0
270 R312 5.600K D5 132 129 0 0 0
0.000K 5.600K 10.0 10.0 0 0 0 0
271 R313 5.100 D5 116 109 0 0 0
0.000 5.100 10.0 10.0 0 0 0
272 R314 270.00 D4 133 131 0 0 0
0.00 270.00 10.0 10.0 0 0 0 0
......(下面有很多别记录)
帮帮忙，我不是太懂Delphi！！
就是在TXT文件里查找和SHEET表里某些字段相同的数据，如查找
sheet表如下：
ID 对象描述 项目文本 （字段类型）
1 2.700k R310 R311 （第一条记录）
2 270.00 R314 （第二条记录）
......(下面还有很多条别的记录)
596.txt文件如下：
......(上面有很多别的记录)
268 R310 2.700K D5 132 131 0 0 0
0.000K 2.700K 10.0 10.0 0 0 0 0
269 R311 2.700K D4 87 132 0 0 0
0.000K 2.700K 10.0 10.0 0 0 0 0
270 R312 5.600K D5 132 129 0 0 0
0.000K 5.600K 10.0 10.0 0 0 0 0
271 R313 5.100 D5 116 109 0 0 0
0.000 5.100 10.0 10.0 0 0 0
272 R314 270.00 D4 133 131 0 0 0
0.00 270.00 10.0 10.0 0 0 0 0
......(下面有很多别记录)
帮帮忙，我不是太懂Delphi！！
就是在TXT文件里查找和SHEET表里某些字段相同的数据，如查找
这个字符串在这个文件中的位置，是用pos函数，参数是子字符串，父串，返回位置（从1开始。）不过你这个txt太大了，可能string会容不下。
这样试一下，用一个
sts:TStrings
strs:= Tstringlist.create();
strs.loadfromfile(a.txt);
for i = i to strs.count
begin
pos .....
end;
<br>
没有环境，大概是这个意思
对啊，在for循环中用pos('R310',strs[i])>0 找到r310的行，然后用StringReplace(strs[i], '1.000', '2.700k',rfReplaceAll)替换就好了