請問 Stream 的問題 |
尚未結案
|
deemster04
一般會員 發表:9 回覆:5 積分:2 註冊:2005-03-09 發送簡訊給我 |
請問對 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.......
^^^^^^^^^^^^^^^這行以下是我要的資料
|
mustapha.wang
資深會員 發表:89 回覆:409 積分:274 註冊:2002-03-13 發送簡訊給我 |
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(....);
久病成良医--多试
千人之诺诺,不如一士之谔谔--兼听
------
江上何人初见月,江月何年初照人 |
pcplayer99
尊榮會員 發表:146 回覆:790 積分:632 註冊:2003-01-21 發送簡訊給我 |
“從 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还可以自动排序。
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |