- 浏览: 18784 次
最新评论
vb读取txt文件到textbox (一)
- 博客分类:
- 技术杂绘
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
发表评论
-
用Wscript的Arguments属性实现vbs的命令行参数形式启动
2012-01-20 09:56 1184用Wscript的Arguments属性实现vbs的命令行参数 ... -
VBS--自动定时截图工具
2012-01-20 09:56 874VBS--自动定时截图工具 2010年09月01日 一、 ... -
使用 Iisftp.vbs 创建 FTP 站点
2012-01-20 09:56 628使用 Iisftp.vbs 创建 FTP ... -
CuteFTP上传脚本(VBS)
2012-01-20 09:56 679CuteFTP上传脚本(VBS) 2010年08月13日 ... -
VBS脚本常用经典代码收集
2012-01-20 09:56 939VBS脚本常用经典代码收集 2010年06月21日 1. ... -
2011-12-30
2012-01-19 15:00 5722011-12-30 2011年12月30日 用vbs来 ... -
VBScript+Asp(15)
2012-01-19 15:00 604VBScript+Asp(15) 2011年07月18日 ... -
read.asp
2012-01-19 15:00 645read.asp 2011年04月20日 ... -
FSO 读写文本文件
2012-01-19 15:00 565FSO 读写文本文件 2010年06月06日 Optio ... -
显卡3D管理程序设置与游戏画质的关系
2012-01-17 04:45 3457显卡3D管理程序设置与 ... -
SDL video子系统学习 (1)
2012-01-17 04:43 1761SDL video子系统学习 (1) 2 ... -
opengl........
2012-01-17 04:43 673opengl........ 2010年06月30 ... -
狂飙GMA900/950 OpenGL性能.(CS玩家必看)
2012-01-17 04:43 1572狂飙GMA900/950 OpenGL性能.(CS玩家必看) ... -
一个Vislau Studio 2010 C++环境下基于OpenGL API 三维编程的实例(原创)
2012-01-17 04:43 682一个Vislau Studio 2010 C++环境下基于Op ... -
Nutch源代码学习-解读Nutch-运行,爬行过程
2012-01-16 03:38 560Nutch源代码学习-解读Nutch-运行,爬行过程 201 ... -
ASP.NET考试资料
2012-01-16 03:37 671ASP.NET考试资料 2009年06 ... -
.net开发工程师应该知道些什么
2012-01-16 03:37 1093.net开发工程师应该知道些什么 2010年05月29日 ... -
c# 面试题目
2012-01-16 03:37 732c# 面试题目 2009年11月13日 问答题沿用 ...
相关推荐
vb读取txt文件到textbox
VB,实现拖拽到文本框,并在文本框显示文件路径
精彩编程与编程技巧-用VB快速读取TextBox第N行的数据 ...
快速读取 TextBox 第 N 行的资料 VB技术很实用的源码这个是很经典的例子,大家做软件可能用到,欢迎下载
在vb读取excel中的数据并在窗体上显示 Public ExcelTable As Workbook 'excel 工作表对象 Private TextBoxA() As Control '以编辑框为基础动态构造数据网格 Private FormWidth As Integer '窗体宽度 '以下子程序是...
简单的一个例程,使用VB2010将Excel2007中的数据读取出来显示在textbox中
VB之精彩编程参阅资料-快速读取TextBox第N行的数据
如何强制文件对话框再次读取正确的磁盘 55 , 55.txt 如何取得RichTextBox控件中光标所在行的值? 56 , 56.txt 如何让用户自行输入方程式,并计算其结果? 57 , 57.txt 如何设定 MsgBox 在若干时间之后若无回应則自动...
VB2010读取指定字符串。 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load '定义变量的类型很重要,关系到计数的开始,如果数整型,则开始的0不...
'若用户选择读取文件,则从我的电脑中打开一个文本文档 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ' Displays an OpenFileDialog so the...
如何直接开启一个文件 设定Mouse 在某个固定范围 隐藏Mouse 显示、隐藏win95任务栏 建立Floating Window(Top Most的window) 建立与读取.ini文件 检查开机方式及Mouse Buttons个数 如何将整个画面暗下来,如同...
在textbox1中输入快捷方式lnk文件路径,点击按钮,textbox2中将显示该快捷方式指向的文件路径
vb6 modbus 进行轮询读取 接收数据长度正确后再轮询 并将接收数据依次写入三个textbox中
vb.net连接access数据库(mdb后缀名),读取记录到textbox中。
那么大致有以下几步: 读取文件 -- 格式化数据 -- 关闭文件 -- 使用数据 如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个 临时文件来存放有用的数据,这样可大大提高程序的效率....
10、很多软件都有鼠标在文本框TextBox一按下,就选中所有文字的功能,是怎么实现的? 引用: Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) ’过程调用 End Sub ...
PrintLine(1, Myword(i, 0) & " " & Myword(i, 1)) '数组里的单词写入文本文件(TXT) Next FileClose(1) '文件将会关闭 ListBox1.Items.Clear() Form1_load(sender, e) MessageBox.Show("添加成功") Exit ...