欢迎来到技成培训！ []
400-111-4100
您好， [普通学员]
[PLC中高级]
您当前的位置： >>问答详情页
提问者： |分类：
答案最少得6个字哦~
网友回答 (0)
没有技成账号?共有 4254 人关注过本帖
标题：vb提取TXT指定内容字符，保存到另外的 TXT文件里
等　级：新手上路
帖　子：110
结帖率：75%
&&问题点数：0&&回复次数：10&&&
vb提取TXT指定内容字符，保存到另外的 TXT文件里
vb提取&&A.txt&&指定内容字符，保存到另外的 b.txt文件里，一行一条，请大家给指点下
搜索更多相关主题的帖子:
等　级：新手上路
帖　子：110
请高人指定下
来　自：湖北武汉
等　级：业余侠客
帖　子：176
专家分：267
我告诉你个思路
可以先读取整个a.text&&再搜索你需要的字符串&&&然后写入b.text
&&&全世界都颓废了，我拿什么对它说“不”！
等　级：新手上路
帖　子：110
请教下， 能写个 代码吗
我想&&提取 TXT 里 指定的内容，是循环查找指定的内容，如果找到 就把 一行全 保存到 另个 TXT文件里
等　级：小飞侠
帖　子：348
专家分：2026
dim&&str1 as string ,flag as integer,str2 as string
open a.txt for input as #1
open b.txt for output as #2
do while&&not eof(1)
line input #1,str1
flag=instr(str1,指定内容)
if flag&&0 then
str2=str2+str1
write #2,str2
不知道对不对？哈哈
等　级：新手上路
帖　子：110
谢谢，兄弟，你这个 代码，不好用
等　级：贵宾
威　望：66
帖　子：1310
专家分：5312
等　级：新手上路
帖　子：110
A.txt&&内容如下，我就是要搜索 一个关键字，如果搜索到了就把”关键字“这一行所在的 第一个”/“符号前面的字符（淘宝的ID），全都提取出来，保存到B。TXT里&&，这个主要是 根据 游戏的 区和服务器，把客户分出来
海带_/ 18:01:39/100.00/网趣旗舰店/双皇冠 地下城与勇士游戏币 DNF 网通 华北三区 华北3区 2200W
_娃娃愛美丽/ 05:11:37/55.00/johnnyshol/【有现货】DNF 北京一区 地下城与勇士游戏币 北京1区 1000W=55元
lb/ 21:44:34/100.00/johnnyshol/【现货】DNF 西南区 地下城与勇士游戏币 西南一区 元
0510xwp/ 23:05:17/27.50/网趣旗舰店/双皇冠 地下城与勇士游戏币&&DNF 电信 上海一区 上海1区 500W
0woaiyouxi0/ 01:02:37/1.00/johnnyshol/地下城与勇士游戏币地下城与勇士金币DNF游戏币全区全服有货
jiao/ 22:14:40/1.00/水浒店/【皇冠信誉】DNF游戏币地下城与勇士游戏币方便一元贴 1元
he/ 12:18:02/0.55/梦里网商/【双皇冠】DNF江苏一区 地下城与勇士游戏币 电信区 江苏1区 10万
09.07.13 05:53:17/100.00/johnnyshol/地下城与勇士游戏币DNF游戏币华北一区DNF华北1区游戏币1760万
cm/ 19:12:05/48.00/johnnyshol/【有现货】DNF 四川二区 地下城与勇士游戏币 四川2区 1000W=48元
09.08.10 02:06:41/0.10/ljh440522/钻石信誉 地下城与勇士 DNF金币 dnf游戏币 山东三区 现货
1峰老/ 15:44:07/40.00/网趣旗舰店/【双皇冠信誉】地下城与勇士DNF游戏币 电信 湖南四区 1000W
2008shane/ 23:19:50/0.40/梦里网商/【双皇冠】DNF江西一区 地下城与勇士游戏币 电信区 江西1区 10万
2008wangqi_.26 23:40:30/1.00/梦里网商/[梦里网商]梦里网络 DNF游戏币地下城与勇士游戏币 一元1元拍
2008yundong/ 20:55:56/50.00/johnnyshol/【现货】DNF 福建1区 地下城与勇士游戏币 福建一区 1000W=50元
09.08.12 15:05:17/22.00/网趣旗舰店/双皇冠 地下城与勇士游戏币&&DNF 电信 西北一区 西北1区 500W
qq/ 05:45:32/22.00/网趣旗舰店/【双皇冠信誉】地下城与勇士DNF游戏币 电信 西北一区 500W
qwe/ 12:23:52/1.00/梦里网商/[梦里网商]梦里网络 DNF游戏币地下城与勇士游戏币 一元1元拍
love/ 13:22:39/1.00/hld35/地下城与勇士全区全服游戏币 此贴仅为老客户购买专用
qqcom/ 13:51:32/0.54/梦里网商/【双皇冠】DNF 辽宁一区 地下城与勇士游戏币 网通区 辽宁1区10万
9.08.10 03:03:47/25.00/网趣旗舰店/双皇冠 地下城与勇士游戏币&&DNF 电信 上海三区 上海3区 500W
gjx/ 02:40:28/48.00/网趣旗舰店/【双皇冠信誉】地下城与勇士DNF游戏币 网通 河北一区 1000W
2区专卖/ 12:00:43/0.47/梦里网商/【双皇冠】DNF四川二区地下城与勇士游戏币 电信区 四川2区10万
zp/ 22:44:13/1.00/网趣旗舰店/【双皇冠信誉】地下城与勇士DNF游戏币&&全区全服顾客协议价&&1元
3189998zcyb/ 10:26:54/0.10/ljh440522/钻石信誉 地下城与勇士 DNF dnf 游戏币 河北一区 金币 拍前联系
宁宁/ 08:41:17/5.00/水浒店/【皇冠信誉】DNF西北一区地下城与勇士游戏币电信西北1区100w
a/ 21:39:01/6.30/hld35/【量大优惠&DNF】地下城游戏币金币上海2区上海二区 100W
qq/ 07:12:35/53.00/johnnyshol/【现货】DNF游戏币 西北1区 地下城与勇士游戏币 西北一区 1000W
[ 本帖最后由 wuyuede 于
23:59 编辑 ]
来　自：湖北武汉
等　级：业余侠客
帖　子：176
专家分：267
下面是搜索关键字的代码：
Private TargetPosition As Integer
Private Sub FindText(ByVal start_at As Integer)
Dim pos As Integer
Dim target As String
target = Text2.Text
pos = InStr(start_at, Text1.Text, target)
If pos & 0 Then
TargetPosition = pos
Text1.SelStart = TargetPosition - 1
Text1.SelLength = Len(target)
Text1.SetFocus
MsgBox &没找到！&
Text1.SetFocus
Private Sub command1_Click()
FindText 1
Private Sub command2_Click()
FindText TargetPosition + 1
接下来的读取&\& 以前的字符串 相信你可以搞定
&&&全世界都颓废了，我拿什么对它说“不”！
等　级：蝙蝠侠
帖　子：190
专家分：914
看看以下代码！作个参考！
Private Sub Form_Load()
Open &c:\A.txt& For Input As #1
&&& a = StrConv(InputB(LOF(1), 1), vbUnicode)
&&& Text1.Text = a
Private Sub Command1_Click()
str1 = Text1.Text&&&
str2 = Text2.Text&&在Text2中输入关键字
str3 = &/&
Do While Len(str1) & 50
where1 = Len(str1)
where2 = InStr(str1, str2)
where3 = InStr(str1, &/&)
where4 = InStr(str1, vbCrLf)
result = Mid(str1, 1, where3) & vbCrLf
Text3 = Text3 & result&&&&&Text3 为结果，把它保存到.txt中就行了
str1 = Mid(str1, where4 + 1, where1 - where4)
版权所有，并保留所有权利。
Powered by , Processed in 0.024962 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved输入一行字符，统计其中有多少个字母。输入直到文件尾。 程序已经写好了，就是有一个问题_百度知道
输入一行字符，统计其中有多少个字母。输入直到文件尾。 程序已经写好了，就是有一个问题
n'a'int main(){ int n=0; } printf(&='=ch&&ch&&||&#39.h&&lt!='=ch&&ch&A'n&Z&#39,n); while ((ch=getchar());\z') {
n++;;='%d&#92#include&}如何把输入直到文件尾功能实现呢;return 0
重新写程序也行，最好能把改好或写好的程序发出来
提问者采纳
a'int main(){
printf(&='=ch&&ch&&||&#39.h&&lt!=EOF)/=ch&&ch&A'n&Z&#39,n);
while ((ch=getchar());/z'改了这句
n++;;='%d&#92#include&}求采纳;
汗，你都没测试一下就发答案，这个根本连结果都输出不了啊
EOF是要楼主你输入Ctrl+Z 回车
但是我这程序是要提交到网站上由电脑自动校对答案的啊，电脑可不会Ctrl+Z 回车。还差一点，请多多帮忙，可以就采纳
你是做的ACM题目吧EOF是文件结束的标识符，ACM的测试数据是从文件中读取的达到文件末尾时c==EOF你直接交上去吧，必定通过。通过了请采纳，谢谢
真心的Wrong Answer50%啊，通过了早就采纳了，不然不会那么蛋疼地在这里等答案
再试试#include&stdio.h&int main(){
while ((ch=getchar())!=EOF&&ch!='\n')//改了这句
if('a'&=ch&&ch&='z'||'A'&=ch&&ch&='Z')
printf(&%d\n&,n);
return 0;}
提问者评价
唉，还是不行，但是分还是给你吧。再次的Wrong Answer50%
其他类似问题
为您推荐：
其他2条回答
你的程序复制进去运行不起来啊
提示什麽错误？
eof那块的错误。我也不是很清楚，应该是语法错了话说你们都没测试就发的答案么。。。。
来自：求助得到的回答
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁a 使用字符流编程实现以下功能
*从键盘输入姓名、学号、成绩，并保存到文本文件中， Java Develop 238万源代码下载-
&文件名称: a
& & & & &&]
&&所属分类:
&&开发工具: Java
&&文件大小: 1 KB
&&上传时间:
&&下载次数: 6
&&提 供 者:
&详细说明：使用字符流编程实现以下功能
*从键盘输入姓名、学号、成绩，并保存到文本文件中，重复进 行，直到输入空字符串为止
*从文件中读取各学生的成绩，并计算所有学生成绩的平均值、最大值、最小值和总分。
这个程序还有很多可以改进，比如如何确定成绩，当有的成绩大于100时，有的为个位数时又该如何subString,事实上这种截取成绩的方法太拙劣，不合适。 -Character stream programming the following features
From the keyboard and enter your name, student number, results, and save to a text file, repeated until you enter an empty string
* Read from the file of each student s achievements, and calculate the average of all student performance, maximum, minimum, and the total score.
This program can be improved, such as how to determine the results, some results greater than 100, some digits Shiyou how
subString, in fact this interception of the results is too clumsy, inappropriate
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&输入关键字，在本站238万海量源码库中尽情搜索：您的举报已经提交成功，我们将尽快处理，谢谢！
#include&iostream&
#include&string&
int main()
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'