[VB6 ] 依txt內文的屬性讀入

[markchen ()]

各位大大好 小弟有一些問題想請教一下

今天有一個txt檔內文如下
--------------------------
1111    電視
2222    電視
3333    單車
4444    單車
5555    手機
6666    手機
4545    電視
4655    書包
4687    書包
4565    書包
--------------------------



今天我想作的是，如果我想匯入『電視』的數字資料(即1111、2222、4545)

我要如何取出來?

想到用split，但是數字和文字之間沒有明確的符號來分割...



--
================================格鬥擂台=======================================
http://myurl.com.tw/rpm8  貝德卡瑪 vs 發電機(擁有十級功力)
http://myurl.com.tw/of28  貝德卡瑪 vs 希斯科(芝加哥庄腳的街頭混混)
http://myurl.com.tw/r40p  貝德卡瑪 vs 影武者(死亡訓綀!)
===============================================================================

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.32.254.61
推 fumizuki:1.逐行判斷 取出空格前的文字 2.要求文字檔要有分隔符號
→ MOONRAKER:這寬度不是很固定 用mid()有任何困難嗎
→ markchen:空白的寬度是固定的，想說用replace將這空白寬度換成其他
→ markchen:符號如逗號 再來用split來分，只是不知道是否有更好方法
→ EShensh:以換行字元斷行，以空白或Tab斷句，不然就是數字固定長度
→ MOONRAKER:用mid()就做完的事情還要先replace再split 你是CPU時間
→ MOONRAKER:太多嗎
→ markchen:其實它前頭的數字的長度不是固定的 用mid不能確定它的開
→ markchen:始位置，範例的數字我忘了用一個長度不一樣的來作
推 chinoyan:LEFT +INSTR 取前頭數字
→ MOONRAKER:那你最簡單可以用" "來split 結果在第一第二欄間會有很
→ MOONRAKER:多空字串 用if檢查跳過空字串剩下就是值
→ MOONRAKER:不然就自己依照state machine原理寫一個parser 在空白
→ MOONRAKER:狀態和非空白狀態間切換 每次切換時把目前字串存到陣列
推 ClubT:其實就把幾個字串函數查一下就好囉 可以參考本板7772篇