線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1382
推到 Plurk!
推到 Facebook!

請問~如何擷取檔案裡某字串以外的內容

答題得分者是:ikk
typer486
一般會員


發表:9
回覆:16
積分:5
註冊:2008-11-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-02-21 10:51:05 IP:220.130.xxx.xxx 訂閱

[code cpp]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *dList = new TStringList();
AnsiString s1 = "Local SN = "; //搜尋字串
int j;

dList->LoadFromFile("C:\\123.txt"); //取得檔案內容
if (dList->Count>0)
{
Memo1->Lines->Clear();

for (int i=0;iCount;i ) //一行一行找
{

//開始找尋符合條件
if ((dList->Strings[i].AnsiPos(s1)>0))
{
j = dList->Strings[i].AnsiPos(s1);
Memo1->Lines->Add(dList->Strings[i].SubString(j 11,16));
}
}
}
delete dList;
}
[/code]

假設一個TXT檔內容有 Local SN = 12345678、Local SN = 2468101214、Local SN = 135791113、Local SN = .....等等的字串
請教各位先進小弟如果想要在外部的TXT檔內擷取 Local SN = 12345678 以外的其他Local SN =內容只出現Local SN = 2468101214、Local SN = 135791113、Local SN = .....等等請問該如何判斷呢?請各位先進不吝指教...謝謝
ikk
尊榮會員


發表:4
回覆:413
積分:768
註冊:2003-06-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-02-23 09:11:24 IP:163.28.xxx.xxx 訂閱

[code cpp]
if(Pos(UpperCase("Local SN = 12345678"),UpperCase(dList->Strings[i])) != 0 )
{
continue;
}
[/code]
------
FPGA驗證, FPGA開發平台, http://smims.com
編輯記錄
ikk 重新編輯於 2009-02-23 09:11:40, 註解 無‧
typer486
一般會員


發表:9
回覆:16
積分:5
註冊:2008-11-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-02-23 10:48:54 IP:220.130.xxx.xxx 訂閱
K大不好意思~請問這一段程式碼該加到何處呢?我試過很多次都沒辦法耶! 感謝指教!


===================引 用 ikk 文 章===================

[code cpp]
if(Pos(UpperCase("Local SN = 12345678"),UpperCase(dList->Strings[i])) != 0 )
{
continue;
}
[/code]
ikk
尊榮會員


發表:4
回覆:413
積分:768
註冊:2003-06-30

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-02-23 10:53:08 IP:163.28.xxx.xxx 訂閱

[code cpp]
for (int i=0;iCount;i ) //一行一行找
{
if(Pos(UpperCase("Local SN = 12345678"),UpperCase(dList->Strings[i])) != 0 )
{
continue;
}
}
[/code]
------
FPGA驗證, FPGA開發平台, http://smims.com
typer486
一般會員


發表:9
回覆:16
積分:5
註冊:2008-11-26

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-02-24 16:26:29 IP:220.130.xxx.xxx 訂閱

[code cpp]
if ((ipList->Strings[i].AnsiPos(s1)>0))
{
j = ipList->Strings[i].Pos(s1);
if (ipList->Strings[i].SubString(j 11,16) != "192.168.0.2")
ComboBox3->Items->Add(ipList->Strings[i].SubString(j 11,16));
}
[/code]

K大你教的那一段我還是試不出來但還是謝謝你的指導,結果想到還有一種方式只要在加上if (ipList->Strings[i].SubString(j 11,16) != "192.168.0.2")
那一行即可說!
編輯記錄
typer486 重新編輯於 2009-02-24 16:27:46, 註解 無‧
系統時間:2024-03-29 19:07:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!