Re: [VBA ] 怎樣抓txt檔案裡的指定字串??

作者: jacky33 (VBA API)   2015-03-19 01:25:11
※ 引述《jacky33 (VBA API)》之銘言:
: 請問各位高手,語法要怎麼寫可以抓txt檔裡或是可以用txt(or wardpad)打開的檔案。
: 檔案內容如下:
: Mp1 Iinp n1 Vdd Vdd pch w=1u l=1u m=1
: Mq2 Ixxxp n231 Vd Vd pch w=200u l=1u m=1
: Mr3 1 2 3 4 pch w=3u l=1u m=1
: Q1:Mp1,Mq2,Mr3這三列可能在檔案內的任何位置,而且每一列開頭一定是"M",由左到右的順序
: 一定是Mp1 Iinp n1...等等。請問:
: 我要如何找出或定義檔案裡"所有""M"開頭的列。比如說檔案裡共有3列"M"開頭的,
: 名字分別叫"Mp1","Mq2","Mr3"。如何找到共"3"列跟其相對應的名字。
: Q2:比如說,當找到或是定義出Mp1這一列時,我要如何指定取出w=後面"1u"的這字串??
: 或是Mq2裡的l=1u 的"1u"??
: 感謝回覆!!
不好意思小弟我是初學者~
剛看完連結的程式,還是有些不懂想請教:
1. Line Input #1, a$ =>a$是什麼意思阿??
2.While Not EOF(1) 是未到檔案尾端,那如果我要讀到尾端又是怎麼寫??
3.txtContent.Text = txtContent.Text & a$ & vbCrLf =>解釋我看不太懂?"&"又是是什麼
意思?"vbCrLf"又是什麼意思??
txtContent.Text = "" '清除內容
Open sFile$ For Input As #1 '開啟文字檔
While Not EOF(1) '未到檔案尾端
Line Input #1, a$ '逐行讀取
txtContent.Text = txtContent.Text & a$ & vbCrLf '逐行加入txtContent及換行符號
Wend '反覆執行
Close #1 '關閉檔案
作者: wenyonba (射後不理很XX啊!!!!)   2015-03-19 08:00:00
如果這些你看不懂,還是先找本書K一下,不然版友給你建議給你的幫助也不大~~1.a$應該是在沒有指定Option Explicit的情況下,隱性宣告一個變數a,$代表型態是字串,老實說我覺得這種定義變數的方式非常不好,會讓你陷入找bug找半天的情況2.意思是還沒到檔案尾端的話,程式就繼續執行,就是你想要的功能,一直讀到檔案尾端才停3.&是字串連接運算子,vbCrLf是換行符號還有開檔案的時候非常不建議直接指定檔案號碼,應該使用FreeFile函式,由作業系統來替你找沒有使用過的號碼
作者: MOONRAKER (㊣牛鶴鰻毛人)   2015-03-19 10:25:00
是不會用F1是嗎。
作者: jacky33 (VBA API)   2015-03-20 23:38:00
謝謝wenyonba的指教,順帶可以問一下有哪本書介紹抓字串?F1是指???
作者: MOONRAKER (㊣牛鶴鰻毛人)   2015-03-21 02:17:00
先有「一本」書再問哪一本書吧!賭你根本沒書。別人的耐性是會用完的

Links booklink

Contact Us: admin [ a t ] ucptt.com