StringList中字符替换和删除问题？

[ynlzl]

我有一个文本文件，我想把每行的第3至第5个字符删除，第10至第15个字符替换成别的字符，第16到第20个字符当做整数处理，请问用StringList组件能否实现？请给一例子。

[cczlp]

不难。楼主可以找找

[constantine]

一个for不就行了吗？

[constantine]

TStringList *List=new TStringList();
list->LoadFromFile("FileName");
list->Delimiter='\n';
int a[100];
for(int i=0;i<List->count;i++)
{
a[i]=List->Strings[i].SubString(16,5).toInt();
String temp=List->Strings[i];
List->Strings[i]=temp.SubString(1,10)+"asdfa"+temp.SubString(16,5);
List->Strings[i].Delete(3,3);
}
List->SaveToFile("filename");
delete List;

大概这样吧，没有测试过，你自己改改

[magicsnake]

StringList只是把文件按行读出或写入,其他关键还是靠你自己对字符串进行处理

[Friecin]

回复人： constantine(飘遥的安吉儿) ( )
TStringList *List=new TStringList();
list->LoadFromFile("FileName");
list->Delimiter='\n';
int a[100];
for(int i=0;i<List->count;i++)
{
a[i]=List->Strings[i].SubString(16,5).toInt();
String temp=List->Strings[i];
List->Strings[i]=temp.SubString(1,10)+"asdfa"+temp.SubString(16,5);
List->Strings[i].Delete(3,3);
}
List->SaveToFile("filename");
delete List;

大概这样吧，没有测试过，你自己改改

/////////////////////////
关键是SubString()方法的使用

[setdefault]

#include <SysUtils.hpp>
TReplaceFlags flag;
flag<<rfReplaceAll;
flag<<rfIgnoreCase;
Memo1->Lines->Text=StringReplace(Memo1->Lines->Text,"aa","bb",flag);