VB中如何同时打开多个文件

答案:6 悬赏:60 手机版

解决时间 2021-02-27 18:49

提问者网友：临风不自傲
2021-02-27 04:35

VB中如何同时打开多个文件

最佳答案

五星知识达人网友：未来江山和你
2021-02-27 04:56

sub openfile()
n=5
dim p(1 to n) as string
p(1)="c:\abcd\1.txt"
...
p(n)="newfile.txt"
open p(1) for input as #1
open p(2) for append as #2
...
open p(n) for output as ...
end sub

全部回答

1楼网友：上分大魔王
2021-02-27 09:51

txt路径写在text里吗？
假设有两个txt
Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1
Line Input #1, b
a = a & b
Open "d:\2.txt" For Input As #2
Line Input #1, b
a = a & b
Close (1)
Close (2)
text1.Text = b
End Sub

2楼网友：我住北渡口
2021-02-27 08:42

叫别人详细点，你自己呢，也要把问题说明详细点啊
你一次性设置N个路径，你是怎么设置，在哪里设置
还有你会不会读txt文件。

3楼网友：酒安江南
2021-02-27 07:48

如果是exe文件的话把下面一段加入你的程序:
sub command1_click()
shell "<你想打开的文件的目录及名字>"
end sub
如果是txt文件的话把下面一段加入你的程序:
sub command1_click()
shell "C:\WINDOWS\notepad.exe <你想打开的文件的目录及名字>"
end sub
如果是其他格式的话在shell语句中先输入用什么exe打开此文件,再输入一个空格,再输入想打开的文件的目录及名字。
示范：
sub command1_click()
shell "C:\a.exe"
end sub
sub command2_click()
shell "C:\WINDOWS\notepad.exe C:\a.txt"
end sub
sub command3_click()
shell "C:\Program Files\Adobe\acrobt\acropdf.exe C:\a.pdf"
end sub
请参考

4楼网友：摆渡翁
2021-02-27 07:31

同时打开多个，只能多次open，就算你用别的语言多线程操作，也是需要多次open
除非你是直接读硬盘扇区什么的，不过这个比较难，无力帮到你~.~

5楼网友：爱难随人意
2021-02-27 05:56

TXT文件路径存放到数组里，然后循环数组打开文件
sub a()
dim p(1 to n) as string
dim i as long
p(1)=path1
...
p(n)=pathn
for i=1 to n
open p(n)...
next i
end sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息