|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ TXT文件中定位字符
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
495
人关注过本帖,
1
人收藏
标题:
TXT文件中定位字符
只看楼主
加入收藏
ictest
等 级:
论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
结帖率:
70%
楼主
收藏
(1)
已结贴
√
问题点数:20 回复次数:7
TXT文件中定位字符
求助:一个TXT文件内容如下:
36 -10 1
35 -11 1
34 -12 1
33 -13 1
32 -14 1
31 -15 1
30 -16 1
29 -17 1
28 -18 1
27 -19 1
26 -100 1
25 -101 1
24 -102 1
23 -103 1
22 -104 1
21 -105 1
我想将其中第三列的1修改成5,其他两列都不变,如何定位第三列?
搜索更多相关主题的帖子:
如何
2015-10-20 19:17
举报帖子
使用道具
赠送鲜花
风吹过b
等 级:
贵宾
威 望:
364
帖 子:4947
专家分:30084
注 册:2008-10-15
第
2
楼
收藏
得分:0
看起来你每列之间都是用空格分隔的,
会用 split 函数吗?
授人于鱼,不如授人于渔
早已停用QQ了
2015-10-20 20:35
举报帖子
使用道具
赠送鲜花
ictest
等 级:
论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
第
3
楼
收藏
得分:0
哦,我知道这个函数,但不会应用。
2015-10-20 21:14
举报帖子
使用道具
赠送鲜花
exec2000
等 级:
新手上路
帖 子:2
专家分:5
注 册:2015-10-20
第
4
楼
收藏
得分:5
容易,
每读入一行,用instr函数来查找空格,找到了就再从这个位置找下一个空格,这第二个空格后面就是要替换的内容
用mid函数把这个空格左边的内容取出来,加上你想替换的内容
2015-10-20 21:19
举报帖子
使用道具
赠送鲜花
ictest
等 级:
论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
第
5
楼
收藏
得分:0
我程序里有这么一句“hideff.Text = Replace(
hideff.Text
, repalist.List(i), repblist.List(i))”,怎么应用到这句话里呢?
2015-10-20 21:30
举报帖子
使用道具
赠送鲜花
风吹过b
等 级:
贵宾
威 望:
364
帖 子:4947
专家分:30084
注 册:2008-10-15
第
6
楼
收藏
得分:5
读入一行,
使用
dim fj() as string
fj=split(数据," ")
按空格分成三段
if ubound(fj)=2
then
正好三段
fj(2)= "5"
第三段改成5
数据=join(fj," ")
使用空格又拼起来,使用 join 函数
end if
写入数据
授人于鱼,不如授人于渔
早已停用QQ了
2015-10-21 09:26
举报帖子
使用道具
赠送鲜花
wmf2014
等 级:
贵宾
威 望:
216
帖 子:2039
专家分:11273
注 册:2014-12-6
第
7
楼
收藏
得分:5
如果最后一个数据是一位的字符,可以简单逐行解决(假设一行数据已经读入到a中):a=right(a,len(a)-3) & "5" & vbcrlf
能编个毛线衣吗?
2015-10-21 10:58
举报帖子
使用道具
赠送鲜花
xiangyue0510
等 级:
贵宾
威 望:
86
帖 子:939
专家分:5244
注 册:2015-8-10
第
8
楼
收藏
得分:5
转一个角度思考问题,可能就很简单
1. 如果需要替换的1前面总有一个空格,而其他地方的1没有空格的话
a=replace(a," 1"," 5")
2 如果总是最后一位的话(注意后面是不是还有空格)
a=left(a, len(a)-1) & "5"
2015-10-21 14:32
举报帖子
使用道具
赠送鲜花
8
1/1页
1
快速回复:
TXT文件中定位字符
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.039779 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved