楼主:
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函式,由作业系统来替你找没有使用过的号码