- 浏览: 42588 次
最新评论
vb读取txt文件到textbox (一)
2011年05月10日
1.怎么通过代码创建一个文本文件,并读取,更新内容
以上为随即方式打开的文本文件
dim gfilenum as integer
gfilenum = FreeFile
Open "文件路径及文件名" For Random As gfilenum len=3
\'以随即方式打开一文件如果文件不存在就新建
用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作
用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作
close #filenum\'关闭文件
以下为顺序方式打开的文件
dim gfilenum as integer
gfilenum = FreeFile
Open "文件路径及文件名" For output As gfilenum \'以写入方式打开文本
print #gfilenum,要写入的文本
write #filenumber,要写入的文本
dim gfilenum as integer
gfilenum = FreeFile
Open "文件路径及文件名" For input As gfilenum \'以读出方式打开文本
input #gfilenum ,用来放读取的内容的内存变量名
还可用line input#,input()等读取更详细的查msdn
2.VB读取文本文件时,调用TextStream 对象中使用OpenTextFile报错了。[/b]
如果是
Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)
出现错误:
Run-time error \'5\':
Invalid procedure call or argument
如果是
Set f = fs.OpenTextFile("E:\\table\\trace.txt)"
则不会报错。
用文件对象啊FileSystemControl操作就好了啊
再加上一个TextStream读取文件第一行就好了啊。
3.VB通过FileSystemObject,可以读取文本文件(.txt)。对于.bat文件,VB可否直接读取?
bat也属于文本类文件
可以读取
不用FSO也行:
把文本文件内容读取TextBox:
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile
Text1.Text=StrConv(LoadBytes,vbUniCode)
把TextBox内容写入文本文件:
Dim TempFile As Long
Dim SaveBytes() As Byte
SaveBytes=StrConv(Text1.Text,vbFromUniCode)
TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile
[b]4.打开文本文件
open app.path &"/你的文本文件名.txt" for output as #1
Message.Name=text1.text
Message.Phone=text2.text
.......................
message.PostCode=text5.text
Put #1,i,Message \'(此处i=1,如要多次写入,可用循环设置i的值)
close #1
\'写入的同时即已保存
查询的话就取出文本里的内容,用instr()函数就可实现了
5.查找vbCrLf、vbLf换行标记[/b]
[b]6.怎样读取一个文本文件的全部内容[/b]
dim lenfile as integer
dim filenum as integer
filenum=freefile()
open "file.dat" for input as filenum
lenfile=lof(#filenum)
strfile=input(lenfile,#filenum)\'将所有数据放入变量strfile中
close filenum
Private Sub Form_Load()
Const ForReading = 1, ForWriting = 2
Dim fso, f
Dim SkipLineInFile As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, True)
f.Write "Hello world!" & vbCrLf & "VB Script is fun!"
Set f = fso.OpenTextFile("c:\\testfile.txt", ForReading)
SkipLineInFile = f.readall
Debug.Print SkipLineInFile
End Sub
[b]7.把文本文件内容读取TextBox:[/b]
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile
Text1.Text=StrConv(LoadBytes,vbUniCode)
[b]8. 把TextBox内容写入文本文件:[/b]
Dim TempFile As Long
Dim SaveBytes() As Byte
SaveBytes=StrConv(Text1.Text,vbFromUniCode)
TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile
[b]9.已知文本文件,要从中搜索一段特定的字符串信息。如搜索[MAGIC_DATABASES],该怎么做?
dim str as string
open commondialog1.filename for input #1
input #1, str
dim where as integer
where = instr(str,"magic_databases")
10.
Line Input # 语句示例
本示例使用 Line Input # 语句从顺序文件中读入一行数据,并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。
Dim TextLine
Open "TESTFILE" For Input As #1 \' 打开文件。
Do While Not EOF(1) \' 循环至文件尾。
Line Input #1, TextLine \' 读入一行数据并将其赋予某变量。
Debug.Print TextLine \' 在立即窗口中显示数据。
Loop
Close #1 \' 关闭文件。
11.如何操作“文本文件”
fso(Filesystemobject)对象集中的文件集合里有readline方法。
Dim of As Object
Dim fs as Object
dim TextLine as string
Set fs=createobject("scripting.Filesystemobject")
set of=fs.OpenTextFile(app,path+"\\myfile.aaa")
//myfile.aaa 是一个文本文件
textling=of.readline
//如果你要读取第14行,可以用一个循环,跳过前面的13行,如下
dim lop as integer
for lop=0 to 12
of.skip
next
//然后再读取
12.搜索了一下,大家主要用两种方法对文本文件加密。[b][/b]
1.对文本文件的ASC码加减
2.用XOR函数
我发现都有问题举例
1.代码
Public Function nnnn(ByVal s As String) As String \'解密
On Error Resume Next
Dim ss As String, i As Byte, lens As Byte
lens = Len(s)
For i = 1 To lens
ss = ss & Chr(Asc(Mid(s, i, 1)) - lens - i)
Next
nnnn = ss
End Function
Public Function mmmm(ByVal s As String) As String \'加密
On Error Resume Next
Dim ss As String, i As Byte, lens As Byte
lens = Len(s)
For i = 1 To lens
ss = ss & Chr(Asc(Mid(s, i, 1)) + lens + 1)
Next
mmmm = ss
End Function
当文件中有“!~”时出错
XOR加密
Dim I as long
For I=1 To UBound(LoadBytes)
LoadBytes(I)=LoadBytes(I) Xor &HFF
Next I
发表评论
-
“千年传承,再续辉煌”--广东阳江漠阳剑派
2014-10-31 00:33 1重剑无锋,大音希声,周星驰说折凳是最好的武器,我说看似嘻 ... -
数组、字符串
2012-07-06 09:51 7971 一维数组 数 ... -
java中正则表达式运用实例(用String类的matches方法演示)
2012-07-06 09:44 1778java中正则表达式运用实例(参看java中正则表达式运用 ... -
java 正则表达式
2012-07-06 09:37 742[b]Java [/b][b]正则表达式 [/b]在计算机 ... -
Flash CS5 用户自定义Button组件
2012-07-06 09:29 13302010/12/24 Flash CS5 用户自定义But ... -
自己写的自动完成js插件源码
2012-07-05 20:44 631经测试,此插件兼容ie,chrome,firefox。 / ... -
005_《Delphi6组件大全》
2012-07-03 13:42 1018Delphi 教程系列书籍 (005) 《Delphi6组 ... -
005_《Delphi6组件大全》
2012-07-03 12:16 602Delphi 教程系列书籍 (005) 《Delphi6组 ... -
关于flexigrid一点用法
2012-07-02 10:12 836闲来无事在网上找了一个jquery的grid插件 flex ... -
jsp页面
2012-07-02 10:12 716做人,生活,学习,玩.... ... -
Mate-基于标签的框架
2012-07-02 10:12 808Mate 将会成为Flex领域的另一个热点。它使用设置(c ... -
Flex中要想使图表的横坐标轴标签成45度显示(2)
2012-07-02 10:11 845从外部引入样式 1.在外部src/assets目录文 ... -
Flex获取操作XML示例
2012-07-01 09:32 702/****** ".",&qu ... -
The architecture of Flex and Java applications two (Flex 和 Java 应用程序架构 2)
2012-07-01 09:31 957Flex and Java application ... -
Flex编程学习基础
2012-07-01 09:31 769Flex是Adobe公司推出 ... -
使用HTTPService读取远程XML文件为TREE赋值的例子
2012-07-01 09:31 727在FLEX4中 使用一个HTTPService 读取远程的 ... -
flex 通过HTTPService与php通信
2012-07-01 09:31 802最近研究HTTPService与php通信,去网上查了好多 ... -
解决Flex4 发布后访问 初始化极其缓慢的问题
2012-06-30 11:16 1391解决Flex4 发布后访问 初始化极其缓慢的问题 2011年 ... -
flex builder 3, flex builder 4下载与安装
2012-06-30 11:16 950flex builder 3, flex builder 4 ... -
Flex4之使用ActionScript构建组件
2012-06-30 11:16 580Flex4之使用ActionScript构 ...
相关推荐
VB 读取 txt 文件到 textbox 是 VB 编程中的一种常见操作。VB 提供了多种方法来读取 txt 文件,其中包括使用 File 系统对象、TextStream 对象和 FileSystemObject 对象等。 使用 File 系统对象 使用 File 系统对象...
"VB读取TXT文件内容.rar"是一个压缩包,其中包含了实现这个功能的源代码,文件名为"codesc.net"。 首先,我们要了解VB中的FileIO命名空间,它提供了处理文件和目录的类和方法。在这个例子中,我们将使用`My....
在VB(Visual Basic 6.0)编程环境中,动态读取TXT文件是一项基本但至关重要的技能,尤其是在处理日志、配置文件或者简单的数据存储时。本项目提供的代码示例展示了如何利用VB实现这一功能,同时允许用户在文本框...
VB.NET 读写 INI 文件 INI 文件是一种常用的配置文件格式,广泛应用于 Windows 操作系统中。VB.NET 提供了读写 INI 文件的功能,使得开发者可以轻松地实现应用程序的配置管理。本文将详细介绍如何使用 VB.NET 读写 ...
编译并运行应用,尝试从资源管理器或其他位置拖放一个或多个文件到TextBox中,观察文件路径是否正确显示。 通过以上步骤,我们就实现了VB中文件拖拽并显示文件路径的功能。这个功能可以应用于多种情况,如文件上传...
【VB用TextBox做的记事本】是一个简单的编程项目,它使用Visual Basic(VB)的基本控件TextBox来模拟一个基本的文本编辑器,适用于初学者学习和理解VB编程基础。在这个项目中,TextBox作为主要的输入和显示文本的...
### 使用VB快速读取TextBox第N行的数据 在Visual Basic(简称VB)开发环境中,有时我们需要从`TextBox`控件中获取特定行的数据。本文将详细介绍如何利用Windows API函数实现这一功能。 #### 1. 理解TextBox控件 `...
在VB 6工程中,你可以创建一个标准控件如按钮,然后为按钮添加事件代码来读取或写入INI文件。例如: ```vb Private Sub Command1_Click() ' 读取设置 Dim FontSize As Integer Dim FontColor As String ...
在VB(Visual Basic)编程环境中,文件操作是基础且至关重要的技能,这涉及到对文件的打开、修改和保存。在创建图形用户界面(GUI)应用程序时,这些功能常常用于实现文本编辑器或类似的应用。接下来,我们将深入...
### 使用VB创建超精简计算器:仅需一个Textbox控件 在编程领域中,使用简单的控件实现功能强大的工具是一项非常有趣的挑战。本篇文章将详细介绍如何利用Visual Basic(简称VB)仅通过一个Textbox控件来制作一个超...
2. **读取/写入INI文件**:使用`FileSystemObject`的`WriteLine`方法写入数据到文件,`ReadLine`方法读取文件内容。对于INI文件,我们需要按照特定的格式写入,例如 `[Section]`定义节,`Key=Value`定义键值对。 3....
在VB6(Visual Basic 6.0)编程环境中,我们经常需要处理用户输入的数据,并将其保存到文件中以便后续使用或记录。在这个特定的案例中,我们关注的是如何将文本框(Textbox)中的内容保存为TXT文本文件。下面将详细...
在VB(Visual Basic)编程环境中,读取文本文件是常见的任务,这通常涉及到处理文件I/O操作。在VB中,可以使用内置的`OpenTextFileReader`方法来实现这一功能。接下来,我们将深入探讨如何使用VB来读取TXT文本文件。...
在TextBox控件的初始化或加载事件中,我们可以获取TextBox的句柄(hWnd),然后用`GetWindowLong`函数读取当前的扩展样式,接着用`SetWindowLong`函数添加`WS_EX_NOINHERITLAYOUT`样式。代码如下: ```vb Dim hWnd ...
在"入门级教程 VB教程TXT rar"这个压缩包中,提供的是一份以TXT格式编写的VB教程。TXT文件是一种常见的纯文本文件格式,不包含任何格式化元素,这使得文档简洁、易读,对于初学者来说非常适合学习和参考。 VB教程...
我们可以通过DataObject的GetData方法获取文件路径数组,并读取文本文件内容到TextBox中。 ```vb Private Sub Form_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop Dim files() As String =...
【VB小巧的文件浏览器】是一款基于Visual Basic(VB)开发的简易版资源管理器,它为用户提供了浏览和管理电脑文件的基本功能。虽然其功能相对于Windows自带的资源管理器较为有限,但作为初学者了解文件系统操作和VB...