每筆記錄以一行表示,每筆記錄的欄位已"@"符號區分.每個欄位的長度皆有其最長的限制.且欄位的定義是以區隔符號位置計算,若該記錄於某欄位後放置分行符號,則其後未填入的欄位以空值填入.
'content 一行记录内容
'contents 全部记录内容数组
'i contents动态数组的长度
Dim content As String
Dim contents() As String
Dim i As Integer
' Function writeTxt 生成文件名为Filename的txt文件,内容为currenttxts
Function writeTxt(Filename As String, currenttxts As Variant)
Dim j As Integer
'Filename其实是文件路径,currenttxts是一个数组
Filename = "C:\" & Filename & ".txt"
'UBound取得currenttxts数组的长度
Debug.Print UBound(currenttxts)
'Open文件For 后面的属性有三个
'append 是在原来内容的基础上添加
'output 重写多行内容
'input 重写记录,并且写记录指针不下移,固定指在第一行
Open Filename For Output As #1
For j = 1 To UBound(currenttxts)
Print #1, currenttxts(j)
Debug.Print currenttxts(j)
Next
Close #1
'打开该TextDocument 文件
Shell "notepad " & Filename
End Function
'读取Field的Value field
Function writeField(field As String)
Dim nField As String
nField = fieldIsEmpty(field)
content = content & nField & "@"
Debug.Print content
End Function
Function writeLine(contenttxt As String)
i = i + 1
'动态定义数组
ReDim Preserve contents(i)
contents(i) = contenttxt
Debug.Print contents(i)
End Function
'判断Field是否为Null或者为""
Function fieldIsEmpty(field As String) As String
Dim mField As String
If field = Null Or field = "" Then
mField = ""
Else
mField = field
End If
fieldIsEmpty = mField
End Function
'生成一个Txt文件
Function createText(sCompany As String, sFileName As String)
Dim rsData As adodb.Recordset, rptCond As clsSQLGenerator, sCommand As String
Set rptCond = New clsSQLGenerator
Call rptCond.sqlRangeCond("MemberID", sMemberID)
Call rptCond.sqlRangeCond("CompanyID", sCompany)
sCommand = "select * from glVoucherDetails " & rptCond.sqlWhereClause(True)
'abPublic是一个数据库连接模块,clsSQLGenerator也是一个sql语句生成模块
Set rsData = dbPublic.ReadSelectCmd(sCommand)
While Not rsData.EOF
Me.writeField (rsData("CompanyID"))
'Me.writeField (rsData("Voucher"))
Me.writeField (rsData("AccountCode"))
Me.writeField (rsData("Currency"))
content = Left(content, Len(content) - 1)
Me.writeLine (content)
content = ""
rsData.MoveNext
Wend
Dim s As String
s = Me.writeTxt(sFileName, contents)
End Function
分享到:
相关推荐
VB读写txt文档源代码 本文档提供了VB中读写txt文档的源代码,涵盖了读写txt文档的详细实现过程,以及相关的知识点和技术要点。 一、VB中读写txt文档的基本概念 VB中读写txt文档需要使用文件操作命令,包括Open、...
在VB(Visual Basic)编程中,读取TXT文件是常见的任务,主要涉及到文件操作和文本流处理。这里我们将深入探讨几种不同的方法来实现这个功能。 1. 随机方式和顺序方式读取TXT文件: - 随机方式打开文件时,你可以...
"VB 读取 txt 文件到 textbox" VB 读取 txt 文件到 textbox 是 VB 编程中的一种常见操作。VB 提供了多种方法来读取 txt 文件,其中包括使用 File 系统对象、TextStream 对象和 FileSystemObject 对象等。 使用 ...
在VB(Visual Basic)编程环境中,读取TXT文件内容是一项基本操作,对于处理文本数据尤其常见。本示例提供了一个简单实例,展示了如何利用VB来读取TXT文件。"VB读取TXT文件内容.rar"是一个压缩包,其中包含了实现这...
读取TXT文件内容 ```vb Dim fs, a, retstring Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False) Do While a.AtEndOfLine <> True retstring ...
在VB(Visual Basic)编程中,读取记事本文件并确保无乱码是一项常见的任务。这主要涉及到文本文件的I/O操作以及字符编码的理解。记事本默认使用的是ANSI编码,但在处理多语言或者非ASCII字符时,可能会出现乱码问题...
在VB.NET中,读写TXT文件是常见的任务,主要用于数据存储和日志记录等场景。以下将详细讲解如何使用VB.NET进行TXT文件的读写操作,以及相关的关键知识点。 首先,打开TXT文件进行读取。在VB.NET中,我们可以使用`...
标题中的“VB6.0编写的读取txt文件内容参考程序”指的是使用Visual Basic 6.0(简称VB6.0)开发的一个应用程序,它的功能是读取TXT文本文件的内容。VB6.0是Microsoft公司推出的一种面向对象的编程语言,广泛应用于...
在VB.NET中,读取TXT文件是常见的任务,可以用于数据处理、日志分析等多种场景。下面我们将详细探讨几种不同的方法来实现这个功能。 1. **使用StreamReader** 使用`System.IO.StreamReader`类是最基本的读取文本...
VB.NET读取TXT文件内容并显示中文 VB.NET是一种功能强大的编程语言,可以轻松地读取TXT文件的内容并将其显示在界面上,无论内容是中文还是字符。本文将详细介绍如何使用VB.NET读取TXT文件内容,并正确地显示中文...
在VB6.0环境下,开发一个程序来读取TXT文件中的坐标数据并绘制图形是一项基础且实用的任务。这里,我们将详细探讨如何实现这个过程,包括理解VB6.0的基础知识,解析TXT文件,创建坐标系,以及绘制点或线条。 首先,...
### 在VB.NET中读取TXT文件内容按行 在Visual Basic .NET(简称VB.NET)中,读取文本文件是一项常见的任务,特别是在处理数据输入输出的过程中。本文将详细介绍如何使用VB.NET来逐行读取一个TXT文件,并将其内容...
在VB.NET中,读取TXT文本文件是常见的任务,尤其对于数据处理、日志分析或者简单的数据输入输出来说。下面将详细介绍如何使用VB.NET来读取TXT文本文件,并提供相关的程序源代码示例。 首先,我们需要了解VB.NET中的...
### VB读写INI文件知识点详解 #### 一、概述 在Visual Basic(简称VB)编程环境中,读写INI文件是一种常见的需求,特别是在配置文件管理、软件设置存储等方面有着广泛的应用。本文将详细介绍如何使用VB来读取和写入...
最简单的 读写txt数据程序,里面添加了 OpenFileDialog控件,SaveFileDialog控件虽然添加了但是没有应用。 基本思想: 1. 利用Openfiledialog得到 filename 2. 然后利用定义 的 Streamreader 读取里面的 txt数据 到...
VB.NET读写txt文件源码
- **读取TXT文件**:同样,可以使用`StreamReader`或`FileSystemObject`来读取TXT文件。`StreamReader`的`ReadLine`方法逐行读取文件内容,而`FileSystemObject`提供了更丰富的文件操作接口。 3. 三维点云数据: ...
总之,VB6.0提供了强大的文件操作功能,`Seek`、`Line Input #`和`EOF`函数是读取TXT文件的核心工具。熟练掌握这些函数,能让你在处理文本数据时更加游刃有余。如果你在实践中遇到问题,记得查阅相关文档或在线资源...