精华内容
下载资源
问答
  • VB读写文本文件
    千次阅读
    2019-11-14 08:59:08

    把字符串保存到.txt文本文件。

    读取文本文件(或读取某一行)参考这篇

    1、代码

    '-----------------------
    '把文本输出到文本文件
    '-----------------------
    Function WriteTxt(FilePath As String, str As String)
        Open FilePath For Append As #1
        Print #1, str
        Close #1 '
    End Function
    

    2、测试代码

     Dim data_str As String
     data_str="我是测试字符串" &  vbCrLf
     noth = WriteTxt("test.txt", data_str) '把data_str字符串输出到test.txt文本文件
    

    写操作语句:

    Print语句和Write语句: 格式:Print #文件号,[表达式表],Write #文件号,[表达式表] 两者差别:
    ※Write语句通常用紧凑格式输出,即各数据项之间用逗号分割,在写入文件时,数据项之间会自动用逗号作为分界符分割开。而Print语句中的表达式之间因所用分隔符逗号或分号的不同,其数据项间的位置不同,且不会自动加入定界符。
    ※Write语句通常与Input#读语句配合使用,Print语句常与Line Input读语句配合使用。
    ※Write语句通常用于数据写入文件后还要用VB程序读出时;而Print语句通常用于写入文件的数据以后要被显示或打印出来时,作为格式输出语句。

    更多相关内容
  • vb读取txt文件

    2013-12-12 18:40:48
    总结了vb语言读取txt文件的各种方法,不是很完善,供各位亲们参考
  • VB读取TXT文件内容.rar

    2019-07-10 19:43:54
    VB读取TXT文件内容,读取文件的一个例子,将一段文字保存在“vb100例.txt”中,程序运行后,通过点击“读取文本”按钮,可直接读取出TXT文件中的内容。
  • vb读取txt文件到textbox
  • vb.net读写TXT文件示例

    2018-06-21 15:39:01
    一个简单的VB读写TXT文件的源码,可以实现对txt文件的一般性操作
  • vb.net 读取txt文件的几种方式
  • VB.net 2010 读写txt文件

    2021-05-02 21:05:05
    VB2010读写txt数据,把txt文件格式的内容读取出来,没有什么好说的,源代码,vb6.0不能打开本项目。 运行环境:Visual Studio2010
  • VB读取txt文件的方法

    2022-04-26 21:51:22
    VB读取TXT文件的方法

    '第一种方法:
    Public Function ByteOpenFile(FilePath As String) As String
    Dim tmp() As Byte
    Open FilePath For Binary As #1
    ReDim tmp(LOF(1) - 1)
    Get #1, , tmp
    ByteOpenFile = StrConv(tmp, vbUnicode)
    Close #1
    End Function


    '第二种方法:
    Private Sub Command4_Click() '读取整个TXT文件
    Dim fso As Object, ts As Object
    Text1 = “”
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set ts = fso.opentextfile(App.Path & “\test.txt”, 1)
    Do While ts.AtEndofStream <> True
    Text1 = Text1 & ts.ReadLine & vbCrLf
    Loop
    ts.Close
    Set ts = Nothing
    Set fso = Nothing
    End Sub


    '第三种方法:
    Private Sub Command1_Click()
    Dim txt As String
    Close #1
    Text1.Text = “”
    Open “D:\gfhgfh.bmp” For Input As #1
    Do While Not EOF(1)
    Input #1, txt
    Text1.Text = Text1.Text & txt & Chr(13) & Chr(10)
    Loop
    End Sub


    '第四种方法:
    快速读写
    Option Explicit
    Private Sub Command1_Click()'读
    Text1.Text = CreateObject(“scripting.filesystemobject”).opentextfile(“c:\1.txt”).readall '这句用来读取制定TXT,会返回内容
    End Sub

    Private Sub Command2_Click()'存
    Call CreateObject(“Scripting.FileSystemObject”).createtextfile(“c:\1.txt”).writeline(Text1.Text)
    End Sub


    '第五种方法:
    Private Sub Command2_Click()
    Open “C:\Documents and Settings\Administrator\桌面\5笔\TANYITXT32\2512.txt” For Binary As #1
    Text1 = StrConv(InputB$(LOF(1), 1), vbUnicode)
    Close #1
    End Sub


    '第六种方法:
    读取到数组变量里

    Dim Txt() As String
    Private Sub Form_Load()
    Dim arr, i As Long
    arr = Split(CreateObject(“scripting.filesystemobject”).opentextfile(“c:\123.txt”).readall, vbNewLine)
    For i = 0 To UBound(arr)
    ReDim Preserve Txt(i)
    Txt(i) = arr(i)
    List1.AddItem Txt(i)
    Next
    End Sub

    获得总行
    Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Const EM_GETLINECOUNT = &HBA
    Private Sub Command1_Click()
    s = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
    Text2 = s
    End Sub


    '第七种方法:其他

    清空一个TXT文件内容
    Private Sub Command1_Click()
    Shell “cmd /c echo off>e:\xixihaha1.txt”, 0
    End Sub


    指定读取某行的数据:
    1、自己定义一个函数:
    Private Function GetTxt(TxtPath As String)
    Dim i%
    i = FreeFile
    Open TxtPath For Input As #i
    GetTxt = StrConv(InputB(LOF(i), i), vbUnicode)
    Close #i
    End Function

    2、调用:
    Private Sub Command1_Click()
    MsgBox Split(GetTxt(App.Path & “\test.txt”), vbCrLf)(1)
    End Sub

    展开全文
  • 使用VB读写txt文件的小程序,程序简单,实用,可供参考
  • 自定义VBA读写TXT文件加密解密函数....
  • VB.NET读写txt文件源码
  • No.7 读写txt文件​mp.weixin.qq.com许多程序需要读写数据,比如商品管理,图书管理,学生档案等,当需要查询的时候,就是读取数据,新增或者更改就需要写数据,VB来讲,中小型的数据一般用Access数据库,大型的数据...

    f591cc2627aa263e69ed8e86bb570dce.png
    No.7 读写txt文件​mp.weixin.qq.com
    75f1563f2ae913951c8d7a38558c167e.png

    许多程序需要读写数据,比如商品管理,图书管理,学生档案等,当需要查询的时候,就是读取数据,新增或者更改就需要写数据,VB来讲,中小型的数据一般用Access数据库,大型的数据多用SQL server数据库,这些以后再讲,今天主要了解如何读写txt文本文件。

    如何读取txt

    在生活中,我们要看一本书,先找到这本书,然后打开,开始读,读完了要合上书,放回原处,然后别人再读。在程序中,过程是一样的,我们新建一个工程,在窗体上放一个label标签控件,一个Text文本框控件,一个Command按钮控件,在C盘根目录新建一个文本文件,重命名为1.txt,在txt中写入张明并保存,如图设置:

    1612de4274ccfbe15895a065ec78b21b.png

    2a40732fa8fbb2ed88d215adae574a97.png

    在Command1的单击事件中写下面的代码:

    663bc7dc9d04e32235b59b93ee6a7a27.png

    我来解释每一个代码的含义:

    Open 是打开文件,相当于你读书前要翻开书一样。

    "C:1.txt" 是文件的地址,就像你读书前要知道这本书在哪一样。

    For Input 是打开的方式,Input是读取,以这种方式打开文件时,文件必须存在,否则会产生错误。也就是说,刚才如果C盘根目录没有这个1.txt程序就会报错。

    As #1 为打开的文件指定文件号.对文件进行读写操作时,要用文件号表示该文件.文件号是介于1~511之间的整数。

    Line Input #1, a 的意思是读取第一行并赋值给a。

    Close #1 是关闭这个文件,然后释放文件号,也就是你看完书,合上,放回原处。

    运行效果:

    c2692f2651b37011d84f765d04e0d2db.gif

    如何写入txt

    我们在原有的窗体上再加上一个标签,一个文本框,一个按钮,如图:

    4cd8b8e8a802b0ea3888192bc6bf2ba2.png

    然后在"写入"按钮的单击事件中写入如下代码:

    88064a45039f1834d8453c745d0c2e7e.png

    我们发现只有两处代码不一样,其他都一样,相同的部分我们就不解释了,我们来看不同的:

    For Output表示向打开的文件中写入数据。以这种方式打开文件时,文件中原有的数据将被覆盖,新的数据将从文件开始写入。如果文件不存在,则创建一个新文件。如果刚才C盘根目录没有1.txt,程序就会自动创建一个。

    Print #1, a ,这里Print是输出,也就是把a写入到#1里面。

    用这种方式打开文件,写入的时候会覆盖原有的数据,形成一个新的数据,比如原来的txt文件里面是张明,我们写入"李亮"以后,就会把"张明"覆盖,看下运行效果:

    b1296f26fb0dce21f023c762775eb868.gif

    读取方式还有一种:

    For Append,表示向打开的文件中添加数据。以这种方式打开时,文件中原有的数据将被保留,新的数据将从文件开始添加。如果文件不存在,则创建一个新文件。

    我们把写入的读取方式改为For Append ,用这种方式打开文件,写入"李亮"的时候,会在原有的数据上增加,并不会把"张明"覆盖。我们看下效果:

    我们把打开方式改为 Append :

    ccbcc15b178808a4d6964d6e371a7880.png

    效果图:

    e2d33d1e5c3d1ee65abd2be56519f092.gif

    读写txt有什么用

    虽然txt用来储存数据不规范,但是也有一定的用途,比如可以当做程序的配置文件,举个例子,我们把上面的代码稍加改动,在窗体加载的时候读取"C:1.txt"里面的数值,并把按钮的字体大小设置成这个数值,就可以当一个简易的程序配置文件:

    代码:

    d5a7b37134dfe075f7a71becf50ab236.png
    展开全文
  • 内容索引:VB源码,文件操作,文本数据库 VBTxt文件用作数据库的范例程序,可用于数据量较小的存储介质,速度快,不占资源,移植方便,程序将数据以一定规则写入到TXT文本中,运行截图如上示。
  • vb读取文本文件某行的内容

    千次阅读 2019-11-09 14:12:18
    VB可以使用二进制方式打开文本文件,以Get 语句读到字节数组,再使用StrConv 函数将其转换为字符串,而后使用Split函数文本的字符串数组及总句数,使用InputBox 函数来输入需要读某行文本。 Get 语句 将一个已打开的...

    VB可以使用二进制方式打开文本文件,以Get 语句读到字节数组,再使用StrConv 函数将其转换为字符串,而后使用Split函数文本的字符串数组及总句数,使用InputBox 函数来输入需要读某行文本。

    Get 语句
    将一个已打开的磁盘文件读入一个变量之中。
    StrConv 函数
    返回按指定类型转换的 Variant (String)。
    Split函数

    返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
    InputBox 函数

    在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的 String。

    以下是使用上述函数等的具体代码:

    Private Sub Command3_Click()
        Dim strWj As String
        Dim strJ() As String
        Dim aryContent() As Byte
        Dim i As Long
        Dim j As Long
        CommonDialog1.CancelError = True ' 设置“CancelError”为 True
        On Error GoTo ErrHandler
        CommonDialog1.Flags = cdlOFNHideReadOnly    ' 设置标志
        ' 设置过滤器
        CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
        CommonDialog1.FilterIndex = 2    ' 指定缺省的过滤器
        CommonDialog1.ShowOpen    ' 显示“打开”对话框
        ' 显示选定文件的名字
        'MsgBox CommonDialog1.FileName
        Open CommonDialog1.FileName For Binary As #1
            ReDim aryContent(LOF(1) - 1)
            Get #1, , aryContent
        Close #1
        strWj = StrConv(aryContent, vbUnicode)
        Text1 = strWj
        strJ = Split(strWj, vbCrLf)
        i = UBound(strJ)
        Text2 = i + 1
        j = InputBox("输入需要显第几句", j)
        j = j - 1
        Label1.Caption = j + 1 & ":" & strJ(j)
        Exit Sub
    ErrHandler:
        ' 用户按了“取消”按钮
        Exit Sub
    End Sub
    

    在这里插入图片描述

    展开全文
  • VB循环读写TXT文件

    千次阅读 2014-12-17 15:34:26
    Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 Debug.Print TextLine ' 在调试窗口中显示数据。 可这种方法却忽略了一种情况,导致会出错。 新建一个TXT文档...
  • 内容索引:VB源码,文件操作,vb读取TXT 一个VB初学者的小实例,读取TXT文本文件,程序非常简单,除了读取TXT之外没有其它的功能,VB编程高手可以跳过,这主要是对VB新手朋友来写的,帮助理解VB操作文件的相关知识。
  • 主要介绍了VB实现按行读取文本文件的方法,涉及使用VB操作文件读取的相关技巧,需要的朋友可以参考下
  • VB如何读取TXT文件: 首先我们在C盘建立一个vm888.txt文件。通过下面实例进行读取: Dim data As String '定义变量 Dim buffer As String '定义变量 Open "c:\vm888.txt" For Input As #1 '打开文件 Do ...
  • 摘要:VB源码,文件操作,读取文件 Vb读取TXT文本内容的字节长度,文件对象为TXT文本,可读取到文本文件数据长度,小钟VB源码下载,是一个较简单的VB初学者实例。
  • 内容索引:VB源码,数据库应用,数据库 VB将数据库导出到TXT文本文件中,注意一般文件路径正确的话,就可以顺利导出成功,虽然还不太完善,不过交待了最重要的原理及实践代码。
  • 怎样用vb读取文件数据txt,怎样编程通过读取i,j,来提取data数据
  • 你的INI文件是什么编码。打开INI文件,另存为,下面...如果你的程序非UNICODE,就选择ANSI,如果你的程序时UNICODE就选择UNICODE,另存为以后再读取。UTF-8的编码在VC里面无法正常显示。需要转换为ANSI或UNICOD ...
  • vb读取txt文件到textbox (一)

    千次阅读 2012-01-19 13:52:54
    vb读取txt文件到textbox (一) 2011年05月10日  1.怎么通过代码创建一个文本文件,并读取,更新内容  以上为随即方式打开的文本文件  dim gfilenum as integer  gfilenum = FreeFile  Open "文件...
  • Visual Basic关于txt文本文件指定行修改的一段代码。对于处理txt文本文档进行简化,可直接修改指定行。
  • VB读写TXT文件

    万次阅读 2008-01-07 13:30:00
    Private Sub Command1_Click() 读文件Open "d:a.txt" For Input As #1 Dim Lines As StringDim NextLine As StringDim i As IntegerDo While Not EOF(1) On Error Resume Next Line ...
  • 利用VB6.0建立坐标系,读取已存在的TXT坐标数据,并在坐标系中绘图
  • 实现读取excel或者txt文档的具体内容!
  • '写配件文件 Private Sub saveIni(ByVal filePath As String, ByVal str As String) Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件 sw.WriteLine(str) sw.Flush() ...
  • list读取TXT文件

    2010-09-01 12:01:02
    list读取TXT文件,vb中list读取TXT文件

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,983
精华内容 3,193
关键字:

vb读取txt文件

友情链接: huiduxiuzheng.rar