高考问答电子书不朽圣尊:高分(100)急急,用VB修改文档文件
来源：百度文库 编辑：高考问答 时间：2024/05/06 16:23:45
我想用VB修改其他格式(主要是文档形式的文件)
我在书上看到说以下这样:1以input方式打开文件
2读取文件的内容到某个变量中,关闭文件
3修改变量的值
4以output方式打开文件
5将变量值写入到文件中,关闭文件结束
有没有高手给举个具体的例子啊??????????????????????????????????????????????????????顺便说说各自属于哪个步骤,如何实现此步骤的,还有我想具体修改文档中的某一行的某个字符或数据应该怎么样编程啊??????????
能不能直接针对某一行而修改啊,例如下面的一段文档,我只想修改/K:E Q 50那里的50这个数据,其他不用管,最好能在50这里设置一个变量,可以使我输入任何数字都可以代替这里的50,
K : $ /mo e
BP: 1 1 -2.72564888E-02 -1.22411013E-01 196828 0
BR: 1 1 -2.72564888E-02 -1.22411013E-01 196906 0
K : EQ 50
我在书上看到说以下这样:1以input方式打开文件
2读取文件的内容到某个变量中,关闭文件
3修改变量的值
4以output方式打开文件
5将变量值写入到文件中,关闭文件结束
有没有高手给举个具体的例子啊??????????????????????????????????????????????????????顺便说说各自属于哪个步骤,如何实现此步骤的,还有我想具体修改文档中的某一行的某个字符或数据应该怎么样编程啊??????????
能不能直接针对某一行而修改啊,例如下面的一段文档,我只想修改/K:E Q 50那里的50这个数据,其他不用管,最好能在50这里设置一个变量,可以使我输入任何数字都可以代替这里的50,
K : $ /mo e
BP: 1 1 -2.72564888E-02 -1.22411013E-01 196828 0
BR: 1 1 -2.72564888E-02 -1.22411013E-01 196906 0
K : EQ 50
Dim lineData, inData As String
Open "c:\abc.txt" For Input As #1 '打开文件
Do While Not EOF(1) '循环读取信息
Line Input #1, lineData '读取一行信息
inData = inData & lineData & vbCrLf '存入变量
Loop
Close #1 '关闭文件
Debug.Print inData '显示
Open "c:\abcd.txt" For Output As #1 '打开文件
Print #1, inData '写入数据
Close #1 '关闭文件
回答补充的问题：
读出来之后根据自己的需要匹配要替换的内容。修改了再保存就是，具体代码就不写了，以免助长懒人风气。
很简单的东西，而且你已经说的很清楚了，就是你说的那么做。
你最好使用BYTE数组方式读取数据，而且注意文件大小最好不要超过64K。否则文档会无法打开。