請問對 Stream 熟悉的各位大大,如果我有一個檔案,內容為文字格式 但長度不一定,從 1,000 行到 50,000 行都有可能... 而我也只想要其中某一行 (那一行還不固定) 開始之後的資料... 想要在短時間內將資料取出來,請問有什麼樣的方法?? 小弟知道可以利用 FileStream 或 MemoryStream 將檔案打開, 卻不知道該如何將我不要的資料去除,將剩於的資料轉存成新的檔案.... 如果各位大大能有好的解法,希望大大們能告訴小弟..... 下面是檔案的範例...我需要的是在TEST,BIN1,BIN2,BIN3,BIN4....... 之後的資料 FILE , EQ1TEST.CSV DATE , 2005/05/31 18:33:00 AT,,,@20,@5,@20,@5,@20,@5,,,,,,,,,,,, BIN1,,,,, BIN2,,,,, BIN3,,,,, BIN4,,,,, BIN5,,,,, BIN6,,,,, BIN7,,,,, BIN8,,,,, BIN9,,,,, BIN10,,,,, BIN11,,,,, TEST,BIN1,BIN2,BIN3,BIN4....... ^^^^^^^^^^^^^^^這行以下是我要的資料

MS1,MS2:TMemoryStream; P:Pointer;    MS1.LoadFromFile(.......); P:=Pointer(integer(Ms1.Memory)+m);\\m是你需要的资料在MS1种开始位置 MS2.Size:=MS1.Size-m; Move(P^,MS2.Memory^,MS2.Size); MS2.Position:=0; MS2.SaveToFile(....);     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

“從 1,000 行到 50,000 行都有可能.” 你的行与行之间，是用什么方式来切换的？ 你可以用 TStringList.LoadFromFile来读进来，指定它的一个属性： Specifies the delimiter used by the DelimitedText property. Delphi syntax: property Delimiter: Char; C syntax: __property char Delimiter = {read=GetDelimiter, write=SetDelimiter}; Description Use Delimiter to get or set the delimiter used by the DelimitedText property. DelimitedText represents all of the strings in the TStrings object as a single string, with individual strings separated by the character that is the value of Delimiter. 也就是拿来分行的字符是哪个。 然后就可以任意读第几行了。TStringList还可以自动排序。