作者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/cn.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