如何让程序,自己去寻找、区分TXT文件中中文的单引号“‘ ”,与西文的单引号“'”。并将“‘”或“ ’”,改为“'”。
解决方案 »
- 请教大家我要显示表格样式的,用什么VCL好呢?StringGird?
- 简单的?
- 大哥帮忙 解决类问题 新手
- 自定义组件问题,请诸位大侠帮忙!
- 如何响应TREEVIEW中的NODE事件,比如我单击某个节点,能弹出一个对话框
- 关于winsocket的问题!
- 新年到,我放分
- 请问如果使ShellListView中双击文件时,不打开文件,而是运行我的代码?
- 一个数据集(query),其数据是用dbgrid显示的,请问当用户在dbgrid中修改数据时,我如何知道,那一条(批)数据发生了变化,并且如何定
- 求助求助:监控共享目录的文件拷贝情况
- (急)白痴问题一个——怎么更改windows里的默认字体?
- 高分,请进!
分别添入中文和英文的 '
找到替换
Counter : Integer;
i,Position : Integer;
s : String;
List : TStringList;
begin
List := TStringList.Create;
List.LoadFromFile( Path );
for Counter := 0 to List.Count - 1 do
begin
s := List[ Counter ];
i := pos( '’', s );{中文单引号}
if i <> 0 then
begin
Delete( s, i, i );
insert( “'”, s, i ); {西文的单引号}
end; end; List.SaveToFile( Path );
List.free;end;
http://kingron.myetang.com/zsfunc02.htm
FileList:TStringList;
FileStr:AnsiString;
begin
FileList:=TStringList.Create;
try
FileList.LoadFromFile(YourTxtFile);
FileStr:=FileList.Text;
FileStr:=StringReplace(FileStr,'‘' ,'’',[rfReplaceAll]);
FileList.Text:=FileStr;
FileList.SaveToFile(YourTxtFile);
finally
FileList.Free;
FileStr:='';//这个也是释放空间^_*
end;
end;
你的我看不懂。
哪个地方替换了?
FileStr:=StringReplace(FileStr,'‘' ,'’',[rfReplaceAll]);
这里吗?
你的程序里stringReplace的参数有问题吧?