如何让vb从txt文件中搜索到关键字时,复制关键字所在的整行。然后显示到text1中去
我的图书馆
如何让vb从txt文件中搜索到关键字时,复制关键字所在的整行。然后显示到text1中去
如何让vb从txt文件中搜索到关键字时,复制关键字所在的整行。然后显示到text1中去。
如何让vb从txt文件中搜索到关键字时,复制关键字所在的整行。然后显示到text1中去。举例: 以下是txt内容 vas9nvxznjklkna9njvzioasuizvxwfaijow9eaf关键字为：
9我现在要按Command1 让vb搜索到关键字 9 然后复制 9所在的整行到text1中去 。也就是说输出的 text1 的内容应该是:vas9nvxznjklkna9ijow9eaf求代码 :)越简单越好。
扫描二维码下载
下载知道APP10分钟有问必答!
建议：可使用微信的“扫一扫”功能扫描下载
提问者采纳
'text1的MultiLine属性 设置为TruePrivate Sub Form_Load()Text1.Text = ""Open "g:\1.txt" For Input As #1While Not EOF(1)Line Input #1, aIf InStr(1, a, "9") & 0 ThenText1.Text = Text1.Text & a & vbCrLfEnd IfWendClose #1End Sub
喜欢该文的人也喜欢求一个VB小程序，单击下一条，TEXT1窗口出现本目录下TXT文件第一行数字，单击复制按钮，（未完）_百度知道
求一个VB小程序，单击下一条，TEXT1窗口出现本目录下TXT文件第一行数字，单击复制按钮，（未完）
求一个VB小程序，单击下一条，TEXT1窗口出现本目录下TXT文件第一行数字，单击复制按钮，直接把TEXT1出现的数字复制到剪切板。谢谢。。或发我邮箱再单击下一条，TEXT1...
求一个VB小程序，单击下一条，TEXT1窗口出现本目录下TXT文件第一行数字，单击复制按钮，直接把TEXT1出现的数字复制到剪切板。谢谢。。或发我邮箱@ qq.
com再单击下一条，TEXT1窗口出现txt文本第二行，依次类推。。
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
zcxlhx知道合伙人
采纳数：78
获赞数：142
Dim j As LongPrivate Sub Command1_Click()Dim b As StringDim c As LongOpen &c:\1.txt& For Input As #1For c = 1 To j + 1If EOF(1) Then Exit ForLine Input #1, bNext cj = j + 1Text1.Text = bClose #1End SubPrivate Sub Command2_Click()Clipboard.ClearClipboard.SetText Text1.TextEnd Sub
运行提示这个错误。。
syx54知道合伙人
采纳数：3531
获赞数：4666
本目录下TXT文件有几个呢？还是只有一个？
只有一个 ，命名为文件1.txt
那我给你一个打开文本文件逐行读取的代码样例：Dim LineStr As StringOpen App.Path & &\文件1.txt& For Input As #1
' 打开文件读。Do While Not EOF(1)
' 循环至文件尾。
Input #1, LineStr
' 从第1行开始，把数据逐行读入变量LineStrLoopClose #1这个样例，给出的是读在同一个变量里，所以最后LineStr只是最后一行的内容，关于把文本框里的内容，复制到剪贴板，要模拟键盘操作：Text1.SelStart = 0
'设置文本框选中的字符从第1个开始Text1.SelLength = Len(Text1.Text)
'设置文本框选中的字符为全部Text1.SetFocus
'设置文本框获得焦点
SendKeys &^{c}&
'用命令，代替键盘按键操作 Ctrl + C，这样就完成了把文本框里的全部内容复制到了剪贴板
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb问题：请问怎么用二进制方式（binary）打开文本文件（txt）并读取里面的文本到文本框text1中？_百度知道
vb问题：请问怎么用二进制方式（binary）打开文本文件（txt）并读取里面的文本到文本框text1中？
网上有很多说的都不能用，请先自己测试一下是否真的可以实现==！谢谢好心人我的源码是：PrivateSubCommand2_Click()DimcharAsByte,n#Open&D:\作业\31\1.txt&ForBinaryAs#1Open&D:\作业...
网上有很多说的都不能用，请先自己测试一下是否真的可以实现 ==！ 谢谢好心人我的源码是：Private Sub Command2_Click()Dim char As Byte, n#Open &D:\作业\31\1.txt& For Binary As #1Open &D:\作业\31\2.txt& For Binary As #2Open &D:\作业\31\3.txt& For Binary As #3Do While Not EOF(1) Get #1, , char Put #3, , charLoopDo While Not EOF(2) Get #2, , char Put #3, , charLoopClose #1, #2, #3用大家给的方法不能完全显示3.txt的内容
有谁能解决这个问题吗？
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
xujmhw6知道合伙人
采纳数：676
获赞数：627
1、在工程菜单中 添加部件 找到 Microsoft common dialog control 选上添加。2、在 form1 中 拖放 text、Command和commondialog 控件，把commondialog的name 属性改为 Cdg1。3、在command1_click &事件中输入代码：Private Sub Command1_Click()Dim FileNam As StringDim tStr() As ByteDim txtStr As StringCDg1.Filter = &*.txt& & ' 文件对话框的默认打开文件类型CDg1.FileName = &*.txt&CDg1.ShowOpenFileNam = CDg1.FileNameOpen FileNam For Binary As #1 '以二进制文件方式打开文件ReDim tStr(n) As ByteGet #1, , tStr & & & & & & & '读取文本Close (1)Text1.Text = StrConv((tStr()), vbUnicode) ' 写入text1End Sub
nefu_知道合伙人
来自电脑网络类芝麻团
采纳数：776
获赞数：1878
参与团队：
如果文本文件有多行，应该把文本框Text1的MultiLine属性设为TrueDim&a()&As&ByteOpen&&a.txt&&For&Binary&As&#1&&ReDim&a(LOF(1)&-&1)&As&Byte&&Get&#1,&,&aClose&#1If&a(0)&&&&&HFF&And&a(0)&&&&&HFE&And&a(0)&&&&&HEF&Then&&Text1.Text&=&StrConv(a,&vbUnicode)Else&&MsgBox&&文本文件不是ANSI编码&End&If如果需要读取非ANSI编码文件，请补充问题。
同样你的方法也只能显示一半内容，我的题目是将两个文本用二进制方法合并成文本文件并显示在文本框中
你的方法可以显示原来的两个文本 但是合并后的文本无法用这种方法全部显示出来 不知道为什么
你原先没有说明你的文本文件是你自己合并成的。你的合并方法有问题，合并后的3.txt比1.txt和2.txt加起来大2字节。要显示你的3.txt，把Text1.Text = StrConv(a, vbUnicode)改成Text1.Text = Replace(StrConv(a, vbUnicode), Chr(0), &&)正确的二进制合并文件代码，把你的两个Do循环改成Do&&Get&#1,&,&char&&If&EOF(1)&Then&Exit&Do&&Put&#3,&,&charLoopDo&&Get&#2,&,&char&&If&EOF(2)&Then&Exit&Do&&Put&#3,&,&charLoop
本回答被提问者采纳
网海1书生知道合伙人
来自电脑网络类芝麻团
采纳数：10448
获赞数：15925
参与团队：
最简单的方法是：Open &123.txt& For Binary As #1Text1.Text = Input(LOF(1), #1)Close #1当然里面的文本文件名自己改
只能读出一部分 不知道 为什么 我的是题目是 ：用二进制读取方法将两个文本里的内容合并将合并内容显示下文本框里用你这个方法 只能显示一半
另一个文本里的内容无法显示
大哥，以后提问题一次性完整提出来好么？你一开始提的问题跟你后面补充的代码意思大相径庭，浪费我们的时间。Private&Sub&Command2_Click()Open&&D:\作业\31\1.txt&&For&Binary&As&#1Open&&D:\作业\31\2.txt&&For&Binary&As&#2Open&&D:\作业\31\3.txt&&For&Binary&As&#3Put&#3,&,&Input(LOF(1),&#1)Put&#3,&,&Input(LOF(2),&#2)Close&#1,&#2,&#3Open&&D:\作业\31\3.txt&&For&Binary&As&#1Text1.Text&=&Input(LOF(1),&#1)Close&#1End&Sub
之前没有说清楚 ，我以为自己合并的txt文本和 原来的txt文本是一样的，我用你写的这个代码写了一下，但是还是没有通过，返回的是一个点，连一半内容也没有了 不过还是谢谢你热心的回答~
qq知道合伙人
采纳数：531
获赞数：823
擅长：暂未定制
Private Sub Command1_Click()Dim b() As Byte, i As LongT = &C:\1.txt&
'文本路径Open T For Binary As #1 b = InputB(LOF(1), #1)Close #1For i = 0 To UBound(b)
T1 = T1 & b(i)NextText1 = T1End Sub'请参考采纳，谢谢！'你试过我给你的方法吗？我已经调试正常的~Private Sub Command2_Click()Dim a() As Byte, b() As ByteOpen &D:\作业\31\1.txt& For Binary As #1Open &D:\作业\31\2.txt& For Binary As #2Open &D:\作业\31\3.txt& For Output As #3a = InputB(LOF(1), #1)b = InputB(LOF(1), #2)For i = 0 To UBound(a)
T1 = T1 & a(i)NextFor i = 0 To UBound(b)
T2 = T2 & b(i)NextPrint #3, T1 & T2Close #1, #2, #3End Sub'试试这个效果怎样，把1.txt 2.txt 转换为二进制把结果保存在3.txt。
其他1条回答
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb 怎样打开文件并把文件内容显示在文本框_百度知道
vb 怎样打开文件并把文件内容显示在文本框
vb里面怎样打开文件，文件类型只能是TXT、DOC等文本文件，就像文件（F）下面的打开一样，打开一个文件选择的框，可以选择文本文件，然后把打开的文件内容显示到文本框中...
vb里面怎样打开文件，文件类型只能是TXT、DOC等文本文件，就像文件（F）下面的打开一样，打开一个文件选择的框，可以选择文本文件，然后把打开的文件内容显示到文本框中
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
windblast知道合伙人
来自知道合伙人认证行家
知道合伙人
软件应用类行家
采纳数：5578
获赞数：8633
毕业于空军第一航空学院电子专业，1991年开始接触电脑，从事多年计算机编程，具有较丰富的经验。
文本框通常用来显示文本字符，以下是用 VB 编写的打开某 txt 文件，并把文件内容显示在文本框的步骤及代码：1、添加必要的组件（文本框、按钮）2、设置属性：3、编写按钮的响应代码：代码如下：Private&Sub&Command1_Click()&&&&Dim&a$&&&&Text1.Text&=&&&&&&&Open&&d:\test.txt&&For&Input&As&#1&&&&&&Do&&&&&&&&Input&#1,&a&&&&&&&&Text1.Text&=&Text1.Text&&&a&&&vbCrLf&&&&&&Loop&Until&EOF(1)&&&&Close&#1End&Sub运行结果：
liuyuwxj知道合伙人
采纳数：604
获赞数：26537
1、单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft&RichText&Box&6.0和公共对话框Microsoft&Common&Dialog&6.0并选中它们，单击“确定”按钮。2、在窗体上绘制RichText&Box和Commn&Dialog。3、右键窗体选择菜单编辑器，编写打开和清空菜单。4、两个按钮代码：Private&Sub&open_Click()CommonDialog1.Filter&=&&文本文件&(*.txt)|*.txt|(*.doc)|*.doc|所有文件|*.*&CommonDialog1.ShowOpenRichTextBox1.Text&=&&&&'清空文本框FileName&=&CommonDialog1.FileNameRichTextBox1.LoadFile&FileNameMe.Caption&=&&超级记事本：&&&&FileNameEnd&SubPrivate&Sub&qk_Click()RichTextBox1.Text&=&&&End&Sub5、注意：打开txt文件时正常的，但是打开word是乱码，因为word的存储方式跟txt文件不一样的，这个是正常的。
本回答被提问者采纳
Master_Chance知道合伙人
Master_Chance
dim str as string
'定义个 str 用来储存读取的文本open &路径& for input as #1
'打开指定路径的文本
input #1, str
'将指定文本读取到 str 变量close #1
'关闭文件text1.text = str
'让text1 等于 str 变量的内容代码要简洁.. 才精致本来是很简单的东西楼上几位还搞了个循环来读，真是浪费系统资源
白费电知道合伙人
采纳数：113
获赞数：1191
单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到公共对话框Microsoft Common Dialog 6.0并选中它，单击“确定”按钮。在工具-菜单编辑器 标题写文件（F），名字文件，再点下下一个，标题写打开，名字打开，再点下向右的箭头Private Sub 打开_Click()With CommonDialog1
.DialogTitle = &打开文件&
.Filter = &文本文件 (*.txt)|*.txt|(*.doc)|*.doc|所有文件|*.*&
.FilterIndex = 0
Dim tmpLoadStr As String
Open .FileName For Input As #1
Do While Not EOF(1)
Line Input #1, tmpLoadStr
text1.Text = text1.Text & tmpLoadStr & vbCrLf
Close #1End WithEnd Sub
杰堂远程教室知道合伙人
杰堂远程教室
采纳数：91
获赞数：270
Open &c:\123.txt& For Input As #1
Do While Not EOF(1)
Input #1, mystring
text1.Text = text1.Text & mystring & vbCrLf
匿名用户知道合伙人
Open &c:\123.txt& For Input As #1
Do While Not EOF(1)
Line Input #1, mystring
text1.Text = text1.Text & mystring & vbCrLf
LoopClose #1这样才对吧。。
其他3条回答
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何把txt文档中数据导入到 VB 的textbox中_百度知道
如何把txt文档中数据导入到 VB 的textbox中
具体就是如何点击command1控件后出现个对话框，把桌面上需要的文本文档导入到VB的textbox里面本人是菜鸟，把代码写上最好谢谢了嘿嘿！！...
具体就是如何点击command1控件后 出现个对话框 ，把桌面上需要的文本文档导入到VB 的textbox里面本人是菜鸟，把代码写上最好 谢谢了 嘿嘿！！
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
匿名用户知道合伙人
首先你需要把文本框text1的Multiline属性设置为true，这样就可以换行了，点击按钮出现对话框，然后选择文件打开，读入它里边的内容Private Sub Command1_Click()With CommonDialog1.DialogTitle = &打开&.FileName = &&
'打开当前工作路径.MaxFileSize = 32767
'缓存区.Filter = &文本文件 (*.txt)|*.txt&.ShowOpenEnd WithOpen CommonDialog1.FileName For Input As #1Do While EOF(1)Line Input #1, Strtext1.Text = text1.Text & Str & vbCrLfLoopClose #1End Sub
匿名用户知道合伙人
Open &test.txt& For Input As #1
Input #1, str1
Close #1text1.text=str1
匿名用户知道合伙人
open &路径& for input as #1do while eof(1)line input #1,strtext1.text=text1.text & str & vbcrlfloopclose #1
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。