sppk.net
当前位置:首页 >> vB如何读取文本文件中指定内容 >>

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

Dim A, S As String Dim FreeNum As Integer FreeNum = FreeFile 'Freenum表示一个空闲的文件号 open "D:\date.txt" for input as #FreeNum '这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。如果要写入文件则应该用output或...

代码: Private Sub Command_Click() Dim a As String Open "C:\\mytext.txt" For Input As #1 Do While Not EOF(1) Line Input #1, a Text1.Text=Text & a & vbCrLf Loop Close #1

1.读取某个指定字节 Private Sub Command1_Click() Dim a() As Byte, b As Byte, i As Integer, j, S As String 'S = App.Path & "\1.txt" '请修改为实际文件名 S = "C:\Documents and Settings\Administrator\桌面\1.txt" ReDim a(FileLen(S)) ...

读取: Dim StringA As String Open "(此处输入txt路径)" For Input As #1 Input #1, StringA Close #1 Text1.Text = StringA 写入: Open "(此处输入txt路径)" For Output As #1 Input #1, Text1.Text Close #1 Holihand原创,yzhiyu_123的不行...

'这个代码有要求:每个数据不能大于8个字符(tab键默认的所占的字符长度) Private Sub Form_Click() '请点击窗体 Me.Cls Dim xRow, yLine, i, j As Long, Temp As String, Arr(1 To 99) As String xRow = Val(InputBox("输入行数:")) yLine = ...

VB读取dat文件需要看dat文件是如何写成的,通常应该是以二进制方式来读龋用Get语句来将数据从文件读到变量中。 同样将数据写入dat文件也应使用二进制方式写,用Put语句实现。 以下是Get语句和Put语句的使用实例: Option Explicit Private Type ...

新建1个按钮2个编辑框 编辑框改名为txt1,txt2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click txt2.Text = Replace(txt1.Text, "1310000001" & vbCrLf, "") '1-欲被替换的文本 ...

这个很容易的,可惜我的 Win10 还没有 VB。 应该可以读取整个 txt 文档到一个字符串中,然后按换行符号找到那个特定的行,加插入文字。最后把那个字符串存为一个新 txt 文档。

Dim xx() As String, aa As IntegerPrivate Sub Command1_Click()Text1.Text = "" '清空文本框,这样可以多次点击按钮得到不同的内容Dim zz As IntegerRandomizezz = Int(Rnd * aa + 1) '得到一个随机数Text1.Text = xx(zz) '在文本框显示随机数...

用API函数的ReadStringA命令。 这是给的标准例子: Dim TextLine Open "TESTFILE" For Input As #1 ' 打开文件。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 Debug.Print TextLine ' 在立...

网站首页 | 网站地图
All rights reserved Powered by www.sppk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com