Question

VB中如何批量添加数字文本？高分悬赏...

我在txt、doc、excle中添加众多数字，比如：
192 168 0 1
192 168 0 2
......
192 168 0 255

如何批量加载到vb中？
加载进去需要依次提取并使用的...

Answer 1

以txt为例：

Sub szcl()
Dim txts As String, sz() As String
'打开txt文件（假定文件名为abc.txt）
Open "abc.txt" For Input As #1
Do Until EOF(1)
'读取一行
Line Input #1, txts
'分解成四个数字
sz = Split(txts, " ")
'这里放置你对这些数字进行处理及使用的语句
'其中sz(0)是第一个数字(192)，sz(1)是第二个数字(168)，sz(2)是第三个数字(0)，sz(3)是第四个数字(1)
Loop
Close #1
End Sub

Word和Excel可以另存为txt文件再来处理，最佳的办法是用Word和Excel内置的VBA直接处理，用法和上面VB语句大致一样

Answer 2

使用字符串数组。
dim ip(256) as string

或者可以动态设置数组的维数
参考redim（）

Answer 3

从TXT文件里读出来啊。。