主题:ComboBox1讀檔問題
請問要是我又一個 txt 的檔案格式是這樣
<alias> 1
<ipaddress> 192.168.1.1
<alias> 2
<ipaddress> 192.168.1.2
<alias> 3
<ipaddress> 192.168.1.3
然後我要區份使用者在用ComboBox1上要是點選1 然後 在 Button1Click顯示 = 192.168.1.1 時要怎麼做
我的code
AnsiString __fastcall TForm1::openfiles(){
FILE *stream;
char buffer[1024];
int i, ch;
if( (stream = fopen( "ipconfigs.txt", "r" )) == NULL )
exit( 0 );
ch = fgetc( stream );
for( i=0; (i < 1000 ) && ( feof( stream ) == 0 ); i++ )
{
buffer[i] = (char)ch;
ch = fgetc( stream );
}
buffer[i] = '\0';
AnsiString buf = AnsiString(buffer);
int len;
fclose( stream );
strs = buf.c_str() ;
}
void __fastcall TForm1::FormShow(TObject *Sender)
{
openfiles();
AnsiString strr = strs;
AnsiString szDesStr = "";
szDesStr = StringReplace(strr, "<alias>", "", TReplaceFlags()<<rfReplaceAll);
AnsiString szDesStrs = "";
szDesStrs = StringReplace(szDesStr, "<ipaddress>", "", TReplaceFlags()<<rfReplaceAll);
TStringList *slItems = new TStringList;
slItems->CommaText = szDesStrs;
for (int i=0; i<slItems->Count; i++)
{
if(i % 2){
result = ComboBox1->Items->Add(slItems->Strings[i-1]);
}
}
delete slItems;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
openfiles();
ShowMessage(result);
}
<alias> 1
<ipaddress> 192.168.1.1
<alias> 2
<ipaddress> 192.168.1.2
<alias> 3
<ipaddress> 192.168.1.3
然後我要區份使用者在用ComboBox1上要是點選1 然後 在 Button1Click顯示 = 192.168.1.1 時要怎麼做
我的code
AnsiString __fastcall TForm1::openfiles(){
FILE *stream;
char buffer[1024];
int i, ch;
if( (stream = fopen( "ipconfigs.txt", "r" )) == NULL )
exit( 0 );
ch = fgetc( stream );
for( i=0; (i < 1000 ) && ( feof( stream ) == 0 ); i++ )
{
buffer[i] = (char)ch;
ch = fgetc( stream );
}
buffer[i] = '\0';
AnsiString buf = AnsiString(buffer);
int len;
fclose( stream );
strs = buf.c_str() ;
}
void __fastcall TForm1::FormShow(TObject *Sender)
{
openfiles();
AnsiString strr = strs;
AnsiString szDesStr = "";
szDesStr = StringReplace(strr, "<alias>", "", TReplaceFlags()<<rfReplaceAll);
AnsiString szDesStrs = "";
szDesStrs = StringReplace(szDesStr, "<ipaddress>", "", TReplaceFlags()<<rfReplaceAll);
TStringList *slItems = new TStringList;
slItems->CommaText = szDesStrs;
for (int i=0; i<slItems->Count; i++)
{
if(i % 2){
result = ComboBox1->Items->Add(slItems->Strings[i-1]);
}
}
delete slItems;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
openfiles();
ShowMessage(result);
}