- 浏览: 42089 次
-
最新评论
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 7901 一维数组 数 ... -
java中正则表达式运用实例(用String类的matches方法演示)
2012-07-06 09:44 1533java中正则表达式运用实例(参看java中正则表达式运用 ... -
java 正则表达式
2012-07-06 09:37 735[b]Java [/b][b]正则表达式 [/b]在计算机 ... -
Flash CS5 用户自定义Button组件
2012-07-06 09:29 13202010/12/24 Flash CS5 用户自定义But ... -
自己写的自动完成js插件源码
2012-07-05 20:44 628经测试,此插件兼容ie,chrome,firefox。 / ... -
005_《Delphi6组件大全》
2012-07-03 13:42 1011Delphi 教程系列书籍 (005) 《Delphi6组 ... -
005_《Delphi6组件大全》
2012-07-03 12:16 597Delphi 教程系列书籍 (005) 《Delphi6组 ... -
关于flexigrid一点用法
2012-07-02 10:12 823闲来无事在网上找了一个jquery的grid插件 flex ... -
jsp页面
2012-07-02 10:12 713做人,生活,学习,玩.... ... -
Mate-基于标签的框架
2012-07-02 10:12 796Mate 将会成为Flex领域的另一个热点。它使用设置(c ... -
Flex中要想使图表的横坐标轴标签成45度显示(2)
2012-07-02 10:11 841从外部引入样式 1.在外部src/assets目录文 ... -
Flex获取操作XML示例
2012-07-01 09:32 695/****** ".",&qu ... -
The architecture of Flex and Java applications two (Flex 和 Java 应用程序架构 2)
2012-07-01 09:31 952Flex and Java application ... -
Flex编程学习基础
2012-07-01 09:31 761Flex是Adobe公司推出 ... -
使用HTTPService读取远程XML文件为TREE赋值的例子
2012-07-01 09:31 724在FLEX4中 使用一个HTTPService 读取远程的 ... -
flex 通过HTTPService与php通信
2012-07-01 09:31 797最近研究HTTPService与php通信,去网上查了好多 ... -
解决Flex4 发布后访问 初始化极其缓慢的问题
2012-06-30 11:16 1386解决Flex4 发布后访问 初始化极其缓慢的问题 2011年 ... -
flex builder 3, flex builder 4下载与安装
2012-06-30 11:16 947flex builder 3, flex builder 4 ... -
Flex4之使用ActionScript构建组件
2012-06-30 11:16 576Flex4之使用ActionScript构 ...
相关推荐
VB 读取 txt 文件到 textbox 是 VB 编程中的一种常见操作。VB 提供了多种方法来读取 txt 文件,其中包括使用 File 系统对象、TextStream 对象和 FileSystemObject 对象等。 使用 File 系统对象 使用 File 系统对象...
VB.NET 读写 INI 文件 INI 文件是一种常用的配置文件格式,广泛应用于 Windows 操作系统中。VB.NET 提供了读写 INI 文件的功能,使得开发者可以轻松地实现应用程序的配置管理。本文将详细介绍如何使用 VB.NET 读写 ...
编译并运行应用,尝试从资源管理器或其他位置拖放一个或多个文件到TextBox中,观察文件路径是否正确显示。 通过以上步骤,我们就实现了VB中文件拖拽并显示文件路径的功能。这个功能可以应用于多种情况,如文件上传...
【VB用TextBox做的记事本】是一个简单的编程项目,它使用Visual Basic(VB)的基本控件TextBox来模拟一个基本的文本编辑器,适用于初学者学习和理解VB编程基础。在这个项目中,TextBox作为主要的输入和显示文本的...
在VB(Visual Basic)编程环境中,文件操作是基础且至关重要的技能,这涉及到对文件的打开、修改和保存。在创建图形用户界面(GUI)应用程序时,这些功能常常用于实现文本编辑器或类似的应用。接下来,我们将深入...
2. **读取/写入INI文件**:使用`FileSystemObject`的`WriteLine`方法写入数据到文件,`ReadLine`方法读取文件内容。对于INI文件,我们需要按照特定的格式写入,例如 `[Section]`定义节,`Key=Value`定义键值对。 3....
精彩编程与编程技巧-用VB快速读取TextBox第N行的数据 ...
在TextBox控件的初始化或加载事件中,我们可以获取TextBox的句柄(hWnd),然后用`GetWindowLong`函数读取当前的扩展样式,接着用`SetWindowLong`函数添加`WS_EX_NOINHERITLAYOUT`样式。代码如下: ```vb Dim hWnd ...
在"入门级教程 VB教程TXT rar"这个压缩包中,提供的是一份以TXT格式编写的VB教程。TXT文件是一种常见的纯文本文件格式,不包含任何格式化元素,这使得文档简洁、易读,对于初学者来说非常适合学习和参考。 VB教程...
在VB中,可以使用多种控件创建一个直观的界面,比如,使用`ListBox`或`TreeView`显示文件目录结构,`TextBox`供用户输入文件名,`Button`执行文件操作,`Label`展示相关信息。 5. **数据库操作** 在Access数据库中...
我们可以通过DataObject的GetData方法获取文件路径数组,并读取文本文件内容到TextBox中。 ```vb Private Sub Form_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop Dim files() As String =...
VB中的Seek语句可以改变文件指针的位置,允许我们在文件的不同位置进行读写操作。 5. **多遍覆写**:为了提高文件粉碎的效率和安全性,通常会进行多次覆写。每遍覆写都使用不同的随机数据,这样即使使用数据恢复...
考虑到文件的分块传输和错误处理,源码中可能包含对大文件的拆分和重组逻辑,以及错误重试机制。VB的`Try...Catch...Finally`语句用于捕获和处理可能出现的异常,确保文件传输的可靠性。 安全性和权限管理也是文件...
标题 "VB实现文件" 涉及到的是使用Visual Basic(VB)编程语言来处理文件操作,特别是关于计算文件大小和程序运行时间的方面。在VB中,这通常涉及到I/O流、文件属性访问以及时间戳的使用。下面将详细讨论这些知识点...
在VB(Visual Basic)编程环境中,实现文件传输功能,特别是在局域网环境下,是一种常见的需求。这主要涉及到网络通信和文件操作的相关知识。下面将详细解释这个过程,并提供相关技术要点。 1. **网络通信基础**: ...
在VB(Visual Basic)编程中,与Excel文件进行交互是一项常见的任务,这通常涉及到读取、写入或修改Excel工作簿中的数据。本教程将详细讲解如何使用VB控制Excel文件进行写操作,以便开发者能够更好地理解和应用这项...
在VB的窗体应用中,常常会使用到诸如`TextBox`、`OpenFileDialog`、`SaveFileDialog`等控件配合进行文件操作。例如,用户可以通过`OpenFileDialog`选择文件,然后打开并读取其内容。 10. 异常处理: 文件操作过程...