7,763
社区成员
发帖
与我相关
我的任务
分享急！！菜问题！按行读取文本文件“chen.txt”，并按行将数据附给变量string1,.....string10 给100！！
菜问题！按行读取文本文件“chen.txt”，并按行将数据附给变量string1,.....string10 给100！！
...全文
请发表友善的回复…
发表回复
northwolves 2003-09-23
- 打赏
- 举报
前10行就这样：
open "c:\chen.txt" for input as #1
line input #1,string1
line input #1,string2
line input #1,string3
line input #1,string4
line input #1,string5
line input #1,string6
line input #1,string7
line input #1,string8
line input #1,string9
line input #1,string10
close #1
也可以这样：
Private Sub Command1_Click()
Dim s As String
Open "C:\chen.txt" For Binary As 1
s = String(FileLen("c:\chen.txt"), " ")
Get #1, , s
Close #1
temp = Split(s, vbCrLf)
string1 = temp(0)
string2 = temp(1)
'.....
End Sub
open "c:\chen.txt" for input as #1
line input #1,string1
line input #1,string2
line input #1,string3
line input #1,string4
line input #1,string5
line input #1,string6
line input #1,string7
line input #1,string8
line input #1,string9
line input #1,string10
close #1
也可以这样：
Private Sub Command1_Click()
Dim s As String
Open "C:\chen.txt" For Binary As 1
s = String(FileLen("c:\chen.txt"), " ")
Get #1, , s
Close #1
temp = Split(s, vbCrLf)
string1 = temp(0)
string2 = temp(1)
'.....
End Sub
easydone 2003-09-23
- 打赏
- 举报
想复杂了！典型的计算机等级考试2级VB题，通常Chen.txt中的内容是由空格间隔的，然后要求将其内容读到个数组中，并显示出来（通常是分组），呵呵。
答案通常是：
dim arr(10,10)
open "c:\chen.txt" for input as #1
for i=1 to 10
for j=1 to 10
'通常考点在这
input #1,arr(i,j)
next j,i
close #1
呵呵！
答案通常是：
dim arr(10,10)
open "c:\chen.txt" for input as #1
for i=1 to 10
for j=1 to 10
'通常考点在这
input #1,arr(i,j)
next j,i
close #1
呵呵！
viena 2003-09-23
- 打赏
- 举报
楼上是对的，但附给变量的值不包括回车换行符（原文本文件里有的）
yoki 2003-09-23
- 打赏
- 举报
open "c:\chen.txt" for input as #1
line input #1,string1
line input #1,string2
line input #1,string3
line input #1,string4
line input #1,string5
line input #1,string6
line input #1,string7
line input #1,string8
line input #1,string9
line input #1,string10
close #1
line input #1,string1
line input #1,string2
line input #1,string3
line input #1,string4
line input #1,string5
line input #1,string6
line input #1,string7
line input #1,string8
line input #1,string9
line input #1,string10
close #1
Fengq 2003-09-23
- 打赏
- 举报
赋值给变量
open "c:\chen.txt" for input as #1
line input #1,string1
line input #1,string2
line input #1,string3
line input #1,string4
line input #1,string5
line input #1,string6
line input #1,string7
line input #1,string8
line input #1,string9
line input #1,string10
close #1
赋值到数组
dim strt(0 to 9) as string
open "c:\chen.txt" for input as #1
for i = 0 to 9
line input #1,string(i)
next
close #1
如果chen.txt文件不在或者chen.txt行数没10行则会出错
最好加上判断
jary12581 2003-09-23
- 打赏
- 举报
首先将文本框的mulline属性设置为多行文本，
dim strtext as string
dim str() as string
dim i as integer
str=split(strtext,vbcrlf) 'splict函数将每一行文本赋值给数组。
以上代码包你好用，如有不明白之处请回复〉
dim strtext as string
dim str() as string
dim i as integer
str=split(strtext,vbcrlf) 'splict函数将每一行文本赋值给数组。
以上代码包你好用，如有不明白之处请回复〉
射天狼 2003-09-23
- 打赏
- 举报
Option Explicit
Private Sub Command1_Click()
Dim strTmp As String, strArray() As String
Open "C:\chen.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
strArray = Split(strTmp, vbCrLf) '将文件内容按行分别存到数组中,一个数组元素代表一行,不用单个变量了~~
End Sub
Private Sub Command1_Click()
Dim strTmp As String, strArray() As String
Open "C:\chen.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
strArray = Split(strTmp, vbCrLf) '将文件内容按行分别存到数组中,一个数组元素代表一行,不用单个变量了~~
End Sub
zhoujinwei 2003-09-23
- 打赏
- 举报
有没有人啊
很简单的问题竟然没有人告诉我在线等待啊！！
很简单的问题竟然没有人告诉我在线等待啊！！
zhoujinwei 2003-09-23
- 打赏
- 举报
竟然没有人知道
