7517
社区成员
在VB里用浏览选择的TXT方法~~
在VB里用浏览选择的TXT方法~~选择到一个TXT文件~~并将文件全部内容写到TEXT文本~
然后再问一下在TEXT文本改写了怎么保存回原来的文件~
谢谢~~
然后再问一下在TEXT文本改写了怎么保存回原来的文件~
谢谢~~
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
cbm6666 2008-03-19
'添加 Command1 Command2 Text1 CommonDialog1
'Text1的MultiLine 要设为True 文档太大的话可考虑改用 RichTextBox
Dim fname$,FileOS As Boolean
Private Sub Form_Load()
Command1.Caption = "打 开"
Command2.Caption = "保 存"
End Sub
Private Sub Command1_Click()
FileOS = True
Call FOSprog
End Sub
Private Sub Command2_Click()
FileOS = False
Call FOSprog
End Sub
Private Sub FOSprog()
On Error GoTo errhandler
With CommonDialog1
.CancelError = True
.InitDir = App.Path '予设存档路径
.Filter = "文档文件(*.txt)|*.txt"
If FileOS Then
.ShowOpen '打开文件
Else
.ShowSave '保存文件
End If
End With
fname = CommonDialog1.FileName
'从上面打开的记事本文件读入资料
If FileOS Then
Open fname For Input As #1
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
Else
Open fname For Output As #1
Print #1, Text1.Text
End If
Close #1
errhandler:
If Err = 32755 Then Exit Sub '选择了取消
End Sub
'Text1的MultiLine 要设为True 文档太大的话可考虑改用 RichTextBox
Dim fname$,FileOS As Boolean
Private Sub Form_Load()
Command1.Caption = "打 开"
Command2.Caption = "保 存"
End Sub
Private Sub Command1_Click()
FileOS = True
Call FOSprog
End Sub
Private Sub Command2_Click()
FileOS = False
Call FOSprog
End Sub
Private Sub FOSprog()
On Error GoTo errhandler
With CommonDialog1
.CancelError = True
.InitDir = App.Path '予设存档路径
.Filter = "文档文件(*.txt)|*.txt"
If FileOS Then
.ShowOpen '打开文件
Else
.ShowSave '保存文件
End If
End With
fname = CommonDialog1.FileName
'从上面打开的记事本文件读入资料
If FileOS Then
Open fname For Input As #1
Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
Else
Open fname For Output As #1
Print #1, Text1.Text
End If
Close #1
errhandler:
If Err = 32755 Then Exit Sub '选择了取消
End Sub
智能卡_Snooper 2008-03-19
Option Explicit
Private Sub loadfiletotext(ByVal s As String, t As TextBox)
Dim l As Long
l = FileLen(s)
ReDim a(0 To l - 1) As Byte
Open s For Binary As #1
Get #1, , a
Close #1
t.Text = StrConv(a, vbUnicode)
End Sub
Private Sub savetexttofile(t As TextBox, ByVal s As String)
Open s For Output As #1
Print #1, t.Text
Close #1
End Sub
Private Sub Command1_Click()
loadfiletotext "d:\temp001.txt", Text1
End Sub
Private Sub Command2_Click()
savetexttofile Text1, "d:\temp001.txt"
End Sub珍惜生命远离CPP 2008-03-19
API GetOpenFileName
bb524 2008-03-19
还有一个问题就是TXT的文件比较大~~~~~
各位大侠帮帮忙~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~谢谢 ~~
各位大侠帮帮忙~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~谢谢 ~~
VB自制TXT文件分割器 VB自制TXT文件分割器_军刀TXT文件分割器源码，浏览所需要分割的TXT文件，选择分割方式，这里有两种TXT分割方式：1、按文件字节分割，用户自定义每次分割的字节大小，2、按平均分割文本，用户指定分割份数，一般按...
VB6.0 浏览文件夹对话框 选择文件保存路径 转自：http://blog.163.com/headmaster_01/blog/static/475568612011517376117/ VB6.0 浏览文件夹对话框 选择文件保存路径 2011-06-17 15:07:06| 分类： 文件选择对话框 |
VB写的闪电人生，用键盘代替触摸 内容索引:VB源码,其它类别,闪电人生 用键盘代替触摸，充分利用键盘快速浏览、操作您电脑内的文件！ 一、 快速筛选文件（基本操作） 二、 强力删除（慎用，仅针对病毒木马） 三、 灵活的复制（剪切）粘贴...
宽带密码破解器，VB源码实现 单击"浏览"选择一个字典文件(TXT)。然后单击"载入"把文件加入列表。字典文件为(.txt)的绝对路径。 单击"开始"即可! 注：本工程中的xp.res可以直接加入其他工程进行编译以使其具备XP风格 注意加入资源文件时...
VB写的闪电人生，用键盘代替触摸控制.rar 用键盘代替触摸，充分利用键盘快速浏览、操作您电脑内的文件! 一、 快速筛选文件(基本操作) 二、 强力删除(慎用，仅针对病毒木马) 三、 灵活的复制(剪切)粘贴(模拟触屏复制粘贴) 四、 “一键”打开指定文件或...
如何将一个TXT文档里内容导入到文本框里 (此页是用ASP中的FSO来读取txt文本文件中的内容并输出，为ajax_txt.asp这个页面的AJAX异步获取提供数据) '//禁止缓存该页 让AJAX读取该页始终为最新而非过期缓存页 Response.Expires = 0 Response....
JAVA上百实例源码以及开源项目源代码 得到RSA密钥对，产生Signature对象,对用私钥对信息(info)签名，用指定算法产生签名对象，用私钥初始化签名对象，将待签名的数据传送给签名对象(须在初始化之后)，用公钥验证签名结果，使用公钥初始化签名对象,用于...
Adsl宽带密码破解程序，VB开发的源代码.rar 单击"浏览"选择一个字典文件(TXT)。然后单击"载入"把文件加入列表。字典文件为(.txt)的绝对路径。 单击"开始"即可! 注：本工程中的xp.res可以直接加入其他工程进行编译以使其具备XP风格 注意加入资源文件时要同时...
VB.NET提取TXT文档指定内容 今天有浏览论坛时，又看见一篇是读取TXT文本文件的论题。Insus.NET也想以自己的想法来实现，并分享于此。文本文件是比较复杂，获取数据也是一些文本行中取其中一部分。为了能够取到较精准的数据，Insus.NET分写几步...
VB.net 里的WebBrowser 怎么使用-WebBrowser指南 首先，必须有COM的基础知识，因为IE本身就是COM技术的典型应用。我们看到最上层是WebBrowser的宿主（Host），也就是任何你想重用 (ReUse)webbrowser control的应用程序，可以是vb程序，也可以是
VB常用控件介绍 Text 属性可以在设计时使用【属性】窗口设置，也可以在运行时用代码设置或者通过用户输入来设置。可以在运行时通过读取Text 属性来获得文本框的当前内容。 （2）MaxLength 属性：用来设置文本框允许输入字符的...
使用VB 6.0使用XML和文本文件进行数据管理：第一部分 续自： ... 尝试获取Access中存储的数据： （1）该程序尝试在Access数据库中搜索实际数据 （2）用5个文本字段构建一个Access数据库表 （3）阅读下面的代码，添加以Your_Price开头...
在一小时内学会 C#(txt版本) 如果你已经知晓 C++ 语言，本文将在不到一小时的时间内带你快速浏览 C# 的语法。如果熟悉 Java 语言，Java 的编程结构、打包和垃圾回收的概念肯定对你快速学习 C# 大有帮助。所以我在讨论 C# 语言构造的时候会假设你...
JAVA上百实例源码以及开源项目 得到RSA密钥对，产生Signature对象,对用私钥对信息(info)签名，用指定算法产生签名对象，用私钥初始化签名对象，将待签名的数据传送给签名对象(须在初始化之后)，用公钥验证签名结果，使用公钥初始化签名对象,用于...
