如何讀取與存入一個長字串中的某些子字串? |
答題得分者是:gemi0305
|
Wuei
一般會員 ![]() ![]() 發表:10 回覆:11 積分:4 註冊:2003-08-14 發送簡訊給我 |
|
gemi0305
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
Wuei你好, 自己寫一個function就好,我已經幫你寫好了,
叫ReplaceWord();
直接拿用就可以, 用法: 結果字串 = ReplaceWord(來源自串,第幾個字,替代成什麼字);
AnsiString TForm1::ReplaceWord(String SrcString, int Wordindex, String Words) { AnsiString headStr,tailStr; headStr = SrcString.SubString(1,5*(Wordindex-1)); if(Words.Length()>5) ShowMessage("the word's size is more than 5"); else Words.printf("%5s",Words); tailStr = SrcString.SubString(5*(Wordindex)+1,SrcString.Length()-(5*(Wordindex))); return headStr+Words+tailStr; }連程式都幫你寫好了: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35747 |
Wuei
一般會員 ![]() ![]() 發表:10 回覆:11 積分:4 註冊:2003-08-14 發送簡訊給我 |
|
gemi0305
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
|
Wuei
一般會員 ![]() ![]() 發表:10 回覆:11 積分:4 註冊:2003-08-14 發送簡訊給我 |
|
gemi0305
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
以「空格」為分界點,來區分子字串,
並分別顯示在Memo上:
void __fastcall TForm1::Button1Click(TObject *Sender) { String TmpStr = "1 123 123456 12"; String Words=""; for(int i=1; i<=TmpStr.Length(); i++) { if(TmpStr.SubString(i,1)==" ") { if(Words=="") continue; else { Memo1->Lines->Add(Words); Words=""; } } else Words+=TmpStr.SubString(i,1); } Memo1->Lines->Add(Words); } |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |