vb读取文本内容

软件 2025-02-11

VB如何读文本文件？

读文件
DimsAsString
DimfilenameAsString
filename=shuxiang&xingzuo&".txt"
OpenfilenameForInputAs#1
DoWhileNotEOF(1)
LineInput#1,s
Prints
Loop
Close#1
追加写文件
DimiAsInteger,nAsInteger,a(6)AsInteger
n=6
Open"D:\1122.txt"ForAppendAs#1
Randomize
Fori=1Ton
a(i)=Int(Rnd*1000+1)
Print#1,a(i)
Nexti
Close#1
覆盖写文件
DimiAsInteger,nAsInteger,a(6)AsInteger
n=6
Open"D:\1122.txt"ForoutputAs#1
Randomize
Fori=1Ton
a(i)=Int(Rnd*1000+1)
Print#1,a(i)
Nexti
Close#1
'函数：一次性读文件至变量，非常快FunctionGetFile(FileNameAsString)AsStringDimiAsInteger,sAsString,BB()AsByteIfDir(FileName)=""ThenExitFunctioni=FreeFileReDimBB(FileLen(FileName)-1)OpenFileNameForBinaryAs#iGet#i,,BBClose#is=StrConv(BB,vbUnicode)GetFile=sEndFunction'调用举例：dimsasstrings=GetFile("c:\1.txt")

vb取文本文件的内容

这个不难，我先说思路。一次性把文件内容独到一个字符串里用你的分隔符将字符串分成字符串数组分别赋值给标签（如果你的标签也是数组控件，将会更好。）下面是代码： Private Sub Command1_Click() Dim 全部内容 As String Dim 分句内容 '注意，这个变量时变体类型 Open "123.txt" For Input As #1 '这里的123.txt要加上文件的路径！！切记 Input #1, 全部内容 Close #1 分句内容 = Split(全部内容, "|") Label1 = 分句内容(0) Label2 = 分句内容(1) Label3 =

VB 怎样将文本框的数据读取和保存到文本文件中?

VB将文本框的数据读取和保存到文本文件中，实际上就是VB对txt的读写操作。相关代码如下： 1、vb读取txt文件内容，以下代码实现把电脑txt中的内容读取到程序文本框text1中。 Private Sub Command1_Click() Open App.Path & "\123.txt" For Input As #1 '备注：App.Path & "\123.txt"是程序目录下的123.txt Dim Lines As String Line Input #1, Lines '读取文本内容 Close #1 text1.Text = Lines End Sub 2、vb写入txt内

vb程序中如何读取文本文件指定行指定位置的数据？

1。以二进制方式打开文本文件，将其内容全部或分段读入字串变量； 2。用instr语句搜索“tab”的位置，以确定行次（或以搜索相应的分行标志确定行次）； 3。以mid$读取指定位置的数据。

vb如何读取文本文件中指定内容

哦，假设你的加密文件的路径是c:\1.txt,用以下代码读入变量进行操作。 dim a() as string,r as integer '全局变量，写在通用处 dim t as string,i as integer open "c:\1.txt" for input as #1 while not eof(1) '计算文件的行数 line input #1,t i=i+1 wend r=i redim a(i) i=0 while not eof(1) '将文件读入字符数组 line input #1,a(i) i=i+1 wend close #1 现在数组a中的就是你的txt的内容了，

标签：编程编程语言信息技术 vb 文本文件