精华内容
下载资源
问答
  • VB读写文本文件

    千次阅读 2019-11-14 08:59:08
    把字符串保存到.txt文本文件。 读取文本文件(或读取某一行)参考这篇 1、代码 '----------------------- '把文本输出到文本文件 '----------------------- Function WriteTxt(FilePath As String, str As String) ...

    把字符串保存到.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语句通常用于写入文件的数据以后要被显示或打印出来时,作为格式输出语句。

    展开全文
  • 记得以前使用vb6.0的时候,对文本文件的操作挺麻烦的,特别是在文件的时候,需要区分什么顺序文件、随机文件,很教材都专门针对文本文件的读写开辟了一个章节来讲解,够麻烦的了。现在使用.net读写文本文件,因为...

    作者: ll_efort 发布时间:2008-08-11 09:00:24 来源: 网络
    工作需要,小编需要使用vb.net对文本文件进行读写操作。编程需要完成如下工作:
    1、把程序执行错误追加到错误日志中
    2、使巧巧读书网的编辑能够读取错误日志
    记得以前使用vb6.0的时候,对文本文件的操作挺麻烦的,特别是在写文件的时候,需要区分什么顺序文件、随机文件,很教材都专门针对文本文件的读写开辟了一个章节来讲解,够麻烦的了。现在使用.net读写文本文件,因为时间仓促,没来得及细看MSDN,同时受到6.0的思路影响,把问题复杂化了,在追加记录到文本文件尾部的时候就写不下去了,后来仔细看了一下MSDN中例子,问题终于得到了解决。
    好了下面进入正题,分别把VB.NET中对文本文件进行读和写的通用操作做个示例,免得后来新手多走弯路。
    我们这里是对文件流进行操作,所以模块前面要加上:
    Imports System.IO
    1、写操作:
    使用System.IO的StreamWriter,下面是代码:
    Dim strFilePath As String = SaveFileDialog1.FileName
    Dim sw As StreamWriter = New StreamWriter(strFilePath, True)'true是指以追加的方式打开指定文件

    For i = 0 To j
        temp = i.ToString
        sw.WriteLine(temp)
        sw.Flush()
    Next
    sw.Close()
    sw = Nothing
    

    首先要说明的是构造函数new
    Public Sub New(path, append, Encoding)
    path:要打开文件的完整路径,如果文件不存在则自动建立一个新的文件。
    append:缺省值为false,指示是否以追加方式打开指定文件。false–如果存在path指定的文件,则覆盖原文件,否则建立一个新文件;true—如果存在path指定的文件,则打开该文件,以追加数据的方式在文尾写数据,否则建立一个新文件。
    Encoding:缺省值为System.Text.Encoding.Default,即使用系统缺省的编码,指示以什么样的编码写文件。
    WriterLine(str):在文本中添加一个新行,同时在行尾加上回车换行符
    2、读操作

    Dim line As String
    Dim sr As StreamReader = New StreamReader(strPath, System.Text.Encoding.Default)
    Do While sr.Peek() > 0
         line = sr.ReadLine()
    Loop
    sr.Close()
    sr = Nothing
    

    构造函数new

    Public Sub New(Path, Encoding)
    

    path:要打开文件的完整路径,如果文件抛出一个错误。
    Encoding:缺省值为System.Text.Encoding.Default,即使用系统缺省的编码,指示以什么样的编码读文件。
    到这里就把VB.NET里对文本文件的读写操作示例讲解完了,其实.net中对文件的读vb.net教程写还有其它的办法,这里讲的只是最实用的办法,其它的有待读者进一步研究!

    展开全文
  • 主要介绍了VB实现按行读取文本文件的方法,涉及使用VB操作文件读取的相关技巧,需要的朋友可以参考下
  • vb.net读写TXT文件示例

    2018-06-21 15:39:01
    一个简单的VB读写TXT文件的源码,可以实现对txt文件的一般性操作
  • 一个简单的倒计时小工具,基于VB开发的,设计思路是:根据TXT文本中的设定的时间进行倒计时,由于开发比较匆忙,因此没有给程序增加退出的按钮,因此请您结束任务吧,哈哈!
  • vb.net 对文本文件的操作

    千次阅读 2019-01-01 16:07:48
    '引入命名空间 Imports System.IO Imports System.Text ...对文本文件的全部读取</summary> Public Function TxtReader(ByVal Parth As String) As String() Dim StrReader As String = vbNull ...
    '引入命名空间
    Imports System.IO
    Imports System.Text
     ''' <summary>对文本文件的全部读取</summary> 
    Public Function TxtReader(ByVal Parth As String) As String()
            Dim StrReader As String = vbNull
            Dim StrArray() As String = Nothing
            Try
                StrReader = My.Computer.FileSystem.ReadAllText(Parth)
                StrArray = StrReader.Split(vbCrLf)
            Catch ex As Exception
                MsgBox("加载文件出错,请检查文件路径或文件名")
            End Try
            Return StrArray
        End Function
    
    
    ''' <summary>对文本文件的全部写入,如果文件不存在,自行创建文件写入</summary> 
    Public Sub TxtWriter(ByVal Parth As String, ByVal StrWriter As String, ByVal TrueOrFalse As Boolean)
            Try
                My.Computer.FileSystem.WriteAllText(Parth, StrWriter, TrueOrFalse)
            Catch ex As Exception
                MsgBox("加载文件出错,请检查文件路径或文件名")
            End Try
        End Sub
    
    
    ''' <summary>删除文本文件指定行,注意:行号是从0开始记数</summary> 
     Public Sub TxtWriter(ByVal Parth As String, ByVal DeleLine As Integer)
            Dim StrReader As String = Nothing
            Dim StrArray() As String = Nothing
            Dim str As String = Nothing
            Try
                '读取文本
                StrReader = My.Computer.FileSystem.ReadAllText(Parth)
                '文本分割给数组,以回车符分割
                StrArray = StrReader.Split(vbCrLf)
                '在数组里查找指定下标的数组元素,然后重新创建数组
                Dim a() As String = StrArray.Where(Function(x) x <> StrArray(DeleLine)).ToArray
                '将数据重新写入文本
                If a.Count > 0 Then
                    For Each i In a
                        str += i & vbCrLf
                     Next
                End If
                My.Computer.FileSystem.WriteAllText(Parth, str , False)
            Catch ex As Exception
                MsgBox("加载文件出错,请检查文件路径或文件名")
            End Try
        End Sub
    
    ''' <summary>在文本文件指定位置插入行,注意:行号是从0开始记数</summary> 
    Public Sub TxtInsertLine(ByVal Parth As String, ByVal LineNumbers As Integer, ByRef StrInsert As String)
            Dim StrReader As String = Nothing
            Dim StrArray() As String = Nothing
            Dim str As String = Nothing
            Try
                '读取文本
                StrReader = My.Computer.FileSystem.ReadAllText(Parth)
                'My.Computer.FileSystem.WriteAllText(Parth, i.ToString & vbCrLf, True)
                '文本分割给数组,以回车符分割
                StrArray = StrReader.Split(vbCrLf)
                '将数组里的元素复制给数组集Newlist
                Dim NewList As List(Of String) = StrArray.Select(Function(x) x.ToString).ToList
                '在指定位置插入行
                NewList.Insert(LineNumbers, StrInsert)
                '将数据重新写入文本
                If NewList.Count > 0 Then
                    For Each i In NewList
                        str += i.ToString & vbCrLf
                    Next
                End If
                My.Computer.FileSystem.WriteAllText(Parth, str, False)
    
            Catch ex As Exception
                MsgBox("加载文件出错,请检查文件路径或文件名")
            End Try
        End Sub
    
    ''' <summary>在文本文件末尾添加一行,注意:行号是从0开始记数</summary> 
    Public Sub TxtAddLine(ByVal Parth As String, ByRef StrInsert As String)
            Dim StrReader As String = Nothing
            Dim StrArray() As String = Nothing
            Dim str As String = Nothing
            Try
                '读取文本
                StrReader = My.Computer.FileSystem.ReadAllText(Parth)
                'My.Computer.FileSystem.WriteAllText(Parth, i.ToString & vbCrLf, True)
                '文本分割给数组,以回车符分割
                StrArray = StrReader.Split(vbCrLf)
                '将数组里的元素复制给数组集Newlist
                Dim NewList As List(Of String) = StrArray.Select(Function(x) x.ToString).ToList
                '在数组集尾添加一行数据
                NewList.Add(StrInsert)
                '将数据重新写入文本
                If NewList.Count > 0 Then
                    For Each i In NewList
                        str += i.ToString & vbCrLf
                    Next
                End If
                My.Computer.FileSystem.WriteAllText(Parth, str, False)
            Catch ex As Exception
                MsgBox("加载文件出错,请检查文件路径或文件名")
            End Try
        End Sub
    
    
      ''' <summary>文件路径,ReaderModel为空时表示全部读取;1,读取一个字符;2读取一行;3,全部读取</summary>  
        Public Function TxtReader(ByVal TxtPath As String, ByVal ReaderModel As Integer) As String
            Dim reader As StreamReader
            Dim openF As New OpenFileDialog
            Dim file As FileStream
            Dim oneC As Char
            Dim oneL As String
            Dim strL As String
            TxtReader = Nothing
            'openF.ShowDialog()  '可以打开一个选择文件的对话框
            Try
                openF.FileName = TxtPath           '用了这个就不打开对话框,直接打开
                file = New FileStream(openF.FileName, FileMode.OpenOrCreate, FileAccess.ReadWrite)
                reader = New StreamReader(file, Encoding.Default)
                If Not reader.EndOfStream Then
                    If ReaderModel = "" Then
                        strL = reader.ReadToEnd
                        TxtReader &= vbCrLf & strL
                    Else
                        Select Case ReaderModel
                            Case 1
                                oneC = ChrW(reader.Read)
                                TxtReader &= vbCrLf & oneC
                            Case 2
                                oneL = reader.ReadLine
                                TxtReader &= vbCrLf & oneL
                            Case 3
                                strL = reader.ReadToEnd
                                TxtReader &= vbCrLf & strL
                        End Select
                    End If
                    'TextBox1.Text &= vbCrLf & oneL
                End If
                reader.Close()
                reader = Nothing
            Catch ex As Exception
                MsgBox("can not open file:" + openF.FileName)
                Return ""
                Exit Function
            End Try
            Return TxtReader
        End Function
    
     ''' <summary>文件路径加文件名,要写入的字符串,布尔型:为空时为true;true为追加,fale为覆盖</summary>  
        Public Sub TxtWriter(ByVal txtnamepath As String, ByVal str As String, ByRef B_boolen As Boolean)
            Dim openF As New SaveFileDialog
            Dim writer As StreamWriter
            'Dim file As FileStream
            openF.FileName = txtnamepath
            Try
                'file = New FileStream(openF.FileName, FileMode.OpenOrCreate, FileAccess.ReadWrite)
                If B_boolen = "" Or B_boolen = True Then
                    writer = New StreamWriter(openF.FileName, True)
                    writer.WriteLine(str)
                    writer.Flush()
                    writer.Close()
                Else
                    writer = New StreamWriter(openF.FileName, False)
                    writer.WriteLine(str)
                    writer.Flush()
                    writer.Close()
                End If
                writer = Nothing
            Catch ex As Exception
                If txtnamepath = "" Or str = "" Then
                    MsgBox("文件路径或字符串变量不正确")
                End If
                MsgBox("路径填写可能不正确")
            End Try
        End Sub
    

     

    展开全文
  • VB将数据库导出到TXT文本文件中

    热门讨论 2010-11-29 13:40:52
    VB将数据库导出到TXT文本文件中,注意一般文件路径正确的话,就可以顺利导出成功
  • vb中读写文本文件

    千次阅读 2013-03-14 23:36:09
    Dim str As String Private Sub Command1_Click() ... cdc.DialogTitle = "选择你要打开的文件"  cdc.InitDir = "c:\"  cdc.Filter = "*.txt|*.txt"  cdc.ShowOpen  Open cdc.FileName

    Dim str As String
    Private Sub Command1_Click()
    On Error GoTo err
        cdc.DialogTitle = "选择你要打开的文件"
        cdc.InitDir = "c:\"
        cdc.Filter = "*.txt|*.txt"
        cdc.ShowOpen
        Open cdc.FileName For Input As #1
        If LOF(1) > 0 Then
          Text1.Text = ""
         While Not EOF(1)
          x = DoEvents
          Line Input #1, str
          Text1.Text = Text1.Text + str + vbCrLf
    '     Debug.Print str
         Wend
        End If
        Close #1
        Exit Sub
    err:
        MsgBox "open file error"
        Unload Form1
    End Sub

    Private Sub Command2_Click()
    On Error GoTo err
        cdc.DialogTitle = "选择你要保存的文件"
        cdc.InitDir = "c:\"
        cdc.Filter = "*.txt|*.txt"
        cdc.ShowSave
        Open cdc.FileName For Output As #2
        Print #2, Text1.Text
        Close #2
        Exit Sub
    err:
        MsgBox "open file error"
        Unload Form1
    End Sub

    <script type=text/javascript charset=utf-8 src="http://static.bshare.cn/b/buttonLite.js#style=-1&uuid=&pophcol=3&lang=zh"></script> <script type=text/javascript charset=utf-8 src="http://static.bshare.cn/b/bshareC0.js"></script>
    阅读(12064) | 评论(1) | 转发(0) |
    给主人留下些什么吧!~~

    chinaunix网友2006-05-27 16:01:26

    Good!!!

    评论热议
    展开全文
  • 删除文本文件重复行,效率很高,40万行的数据,在我的电脑上只用了40秒 请注意:在输入文件不能有空行,否则会出错 另外,里边用上了自编获取文件路径名和扩展名函数 发布前专门测试通过,有需要的朋友可以直接...
  • 本人利用VB.NETFileOpen()函数编写对文本文件的逐行写入和逐行读取的小程序,而且的文本没有双引号,很实用的
  • VB.NET读取文本(解决乱码),实用性代码。
  • VB .NET-文本文件读写

    千次阅读 2019-07-17 14:28:55
    读取指定分隔符格式文本文件: Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\TestFolder\test.txt") MyReader.TextFieldType = FileIO.FieldType.Delimited MyReader.SetDelimiters...
  • 内容索引:VB源码,文件操作,文本 自己封装一个用VB读写TXT文本文件类文件,含示例源码,方便基础不好的朋友使用。的目的其实很简单,从自己编程的经历来看,经常要用到文本文件的读写,有时候是需要一个功能就一...
  • VB读写txt文档源代码

    2013-02-18 13:07:49
    vb操作txt文本数据代码,详细明了,只供学习交流,严禁进行商业用途!
  • vb:读写文本文件

    2012-03-04 21:23:21
    VB读写文件要用到以下语句: 1、Open语句打开文件。 2、读文件使用Line Input、Input #,(以上为文本方式)和Get(以上为二进制方式)。 3、文件使用Print #、Write(以上为文本方式)和Put... 文本文件的示例: ...
  • 以前vb6的读写老错,进入vb2010终于有些明白了。好,正戏开场: 主演: my.computer.filesystem  system.io.streamReader  system.io.streamWriter 配角:OpenFileDialog  SaveFileDialog 剧情一般都是...
  • vb.net 读取txt文件的几种方式
  • 通过自己修改代码可以给word的表格任意行列写入内容,调整字体大小等等
  • VB.net 2010 读写txt文件

    2021-05-02 21:05:05
    VB2010读写txt数据,把txt文件格式的内容读取出来,没有什么好说的,源代码,vb6.0不能打开本项目。 运行环境:Visual Studio2010
  • NI文件的读取 INI文件是Windows系统最早采用的文本文件格式,在C:驱动器根目录往往都会存在着一个隐藏的boot.ini文件,它用来定义计算机启动时显示的系统... 一个ini文件读写类的设计和实现 bichengguibichenggui ...
  • '配件文件 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() ...
  • vb 文本写word文档Word allows you to hide content in your document from viewing or printing. However, if you’re going to distribute the document, any hidden text can easily be displayed and viewed by ...
  • 文本文件A和B,为已知的导入文件,将A.B文件,汇总导出文本文件C
  • VB6 写文件

    2016-02-23 14:03:00
    Private Sub Form_Load() ...write #1 ,Temp '要写入的变量 close #1 Open "文件完整名.txt" for input as #1 input #1,Temp '要读入的变量 close #1 转载于:https://www.cnblogs.com/wgscd/p/5209699.html
  • 内容索引:VB源码,文件操作,vb读取TXT 一个VB初学者的小实例,读取TXT文本文件,程序非常简单,除了读取TXT之外没有其它的功能,VB编程高手可以跳过,这主要是对VB新手朋友来的,帮助理解VB操作文件的相关知识。
  • VB中如何创建并写入txt文件

    千次阅读 2014-05-03 16:16:56
    Private Sub Command2_Click()  Open "F:\TEST\b.txt" For Output As #1  Print #1, Text1.Text ...以上代码可以创建一个txt文件 Private Sub Command1_Click()  Dim str  Open "F:\TEST\a.t
  • 利用VB存取数据库BLOB数据,此文档仅提供了一种方法,仅供需要者参考(文档来源于网络,供大家参考学习使用)
  • vb用fso读写文本文件

    2019-10-01 05:50:21
    得到选择的文件 If Not fso.FileExists(fileName) Then fso.CreateTextFile fileName End If Set oText = fso.OpenTextFile(fileName, ForReading, False , TristateUseDefault) While Not ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 27,568
精华内容 11,027
关键字:

vb中如何写入文本文件