請各位大大幫忙
我的文字檔如下

M:
1,I,80,5,0,0;
C,80,0,0;
1,I,118,6,0,0;
C,118,0,0;
1,O,170,25,0,0;
C,145,0,0;

能否只讀取1開始的列中最後2個值0,0
謝謝!!

------
Neil

下列程式碼是delphi，希望對你有幫助 
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
sStr : String;
i,icount : integer;
sData1,sData2 : String;
begin
AssignFile(F, 'D:\AA.txt'); { File selected in dialog }
Reset(F);
while not Eof(F) do
begin
Readln(F,sStr);
if (Copy(sStr,1,1) = '1') then
begin
icount := 0;
sData1 := '';
sData2 := '';
for i := length(sStr) downto 1 do
begin
if (sStr[i] >= '0') and (sStr[i] <= '9') then
begin
if (icount = 0) then
sData1 := sStr[i] sData1
else if (icount = 1) then
sData2 := sStr[i] sData2;
end
else if sStr[i] = ',' then
icount := icount 1;
if (iCount = 2 ) then
break;
end;
end;
end;
CloseFile(F);
end;

編輯記錄

大大有BCB的嗎??謝謝!!

------
Neil

不好意思，沒有

謝謝大大...我已經解決嚕^^

------
Neil