前言:
此刻朋友们对“vb怎么读取txt”大致比较讲究,兄弟们都想要学习一些“vb怎么读取txt”的相关资讯。那么小编同时在网上搜集了一些关于“vb怎么读取txt””的相关知识,希望咱们能喜欢,我们一起来了解一下吧!VB小程序,关注我有更多的有趣的VB小程序
题意(仅限于练习):每一本正式的图书都有一个ISBN号码与之对应,ISBN码包括9位数字、1位识别码和3位分隔符,格式如“X-XXX-XXXXX-X”,其中符号“-”是分隔符,紧后一位是识别码。识别码计算方法如下:首位数字乘以1加上次位数字乘以2....以此类推,用所得到的结果除以11,所得的余数妈为识别码,如果余数为10,刚识别码为大写的x。
本节主要学习了,怎么样把txt文件读入到ListBox列表和数组中,着重理解算法,与实际工作中可能不符合。
界面:
控件:两个Label标签,一个Command命令按钮,两个ListBox列表框
代码:
Option Explicit
Dim a(1 To 100) As String '存储ISBN号码
Private Sub Command1_Click()
Dim st As String, ch As String, k As Integer, i As Integer, t As String, j As Integer
Dim sum As Integer, number As Integer, tnum As Integer
For i = 1 To 100
st = a(i)
k = 0: sum = 0
For j = 1 To Len(st) - 2
ch = Mid(st, j, 1)
If ch >= "0" And ch <= "9" Then
k = k + 1
sum = sum + Val(ch) * k
End If
Next j
number = sum Mod 11
t = Mid(st, j + 1, 1)
If t = "X" Then tnum = 10 Else tnum = Val(t)
If number <> Val(tnum) Then List2.AddItem "第" & Str(i) & "条"
Next i
End Sub
Private Sub Form_Load() '读入数据到list中
Dim TextLine$, j%
j = 1
Open "E:\VB教学\练习\txt\ISBN号码.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
a(j) = TextLine '每一行数据读取到数组中
List1.AddItem "第" & j & "条ISBN号码为:" & TextLine '数据读取到list中
j = j + 1
Loop
Close #1
End Sub
练习ISBN号码:
0-342-56743-8
0-256-51243-4
0-416-76489-4
0-548-45287-3
0-968-31473-2
0-432-96452-5
0-317-86572-4
0-186-53764-6
0-486-74356-8
0-286-54625-3
0-254-79668-0
0-246-59672-4
0-246-89762-X
7-302-48145-4
想得到更多的VB小程序,请关注我,点击下方的广告可以更好的支持和鼓励我哦!
标签: #vb怎么读取txt