①.、实现上传按钮方法代码.
Imports?System.IO
Public?Class?Form1
Private?Sub?Form1_Load(sender?As?System.Object,?e?As?System.EventArgs)?Handles?MyBase.Load
Dim?sr?As?New?StreamReader("d:\test.csv")
Do?Until?sr.EndOfStream
Dim?str?As?String?=?sr.ReadLine
Dim?s()?As?String?=?str.Split(",")
ListBox1.Items.Add(s(0))
Loop
arr1?=?CType(a1.ToArray(GetType(Integer)),?Integer())
sr.Close()
End?Sub
End?Class
Private Sub Command1_Click()
Dim strFile? ? ?As String
Dim intFile? ? ?As Integer
Dim strData? ? ?As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
以上就是土嘎嘎小编为大家整理的vb.net操作文本文件相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!