作者jacky33 (VBA API)
看板Visual_Basic
標題Re: [VBA ] 怎樣抓txt檔案裡的指定字串??
時間Thu Mar 19 01:25:11 2015
※ 引述《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 '關閉檔案
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.141.125.179
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1426699514.A.F34.html
1F：→ wenyonba: 如果這些你看不懂,還是先找本書K一下,不然版友給你建議 03/19 08:00
2F：→ wenyonba: 給你的幫助也不大~~ 03/19 08:00
3F：→ wenyonba: 1.a$應該是在沒有指定Option Explicit的情況下,隱性宣告 03/19 08:01
4F：→ wenyonba: 一個變數a,$代表型態是字串,老實說我覺得這種定義變數的 03/19 08:02
5F：→ wenyonba: 方式非常不好,會讓你陷入找bug找半天的情況 03/19 08:03
6F：→ wenyonba: 2.意思是還沒到檔案尾端的話,程式就繼續執行,就是你想要 03/19 08:05
7F：→ wenyonba: 的功能,一直讀到檔案尾端才停 03/19 08:05
8F：→ wenyonba: 3.&是字串連接運算子,vbCrLf是換行符號 03/19 08:06
9F：→ wenyonba: 還有開檔案的時候非常不建議直接指定檔案號碼,應該使用 03/19 08:07
10F：→ wenyonba: FreeFile函式,由作業系統來替你找沒有使用過的號碼 03/19 08:08
11F：→ MOONRAKER: 是不會用F1是嗎。 03/19 10:25
12F：→ jacky33: 謝謝wenyonba的指教，順帶可以問一下有哪本書介紹抓字串? 03/20 23:38
13F：→ jacky33: F1是指??? 03/20 23:38
14F：→ MOONRAKER: 先有「一本」書再問哪一本書吧！賭你根本沒書。 03/21 02:17
15F：→ MOONRAKER: 別人的耐性是會用完的 03/21 02:18