| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1216 人关注过本帖
标题:请问VB6.0如何批量修改text中的字符
只看楼主 加入收藏
jingfang_434
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2009-10-24
结帖率:33.33%
收藏
已结贴  问题点数:10 回复次数:4 
请问VB6.0如何批量修改text中的字符
例如:我的text控件的内容如下:
1
6
10
20
50
如何让以上数字变为:
0001
0006
0010
0020
0050
搜索更多相关主题的帖子: 批量 字符 text VB6.0 修改 
2021-07-16 19:45
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
程序代码:
Const 前导长度 = 4                      '关键数据,指定为常量
Const 前导字符 = "0"

Dim s() As String
Dim i As Long

s = Split(Text1.Text, vbCrLf)           '拆分为每一行
For i = 0 To UBound(s)                  '遍类所有元素,0到最大下标
    If IsNumeric(s(i)) Then             '如果为数值类型
        If Len(s(i)) < 前导长度 Then    '如果长度小于指定长度
            s(i) = String(前导长度 - Len(s(i)), 前导字符) & s(i)      '增加前导字符,这里是0
        End If
    End If
Next i
Text1.Text = Join(s, vbCrLf)             '合并


好像用到的处理方法都很简单,主要是想到怎么处理。

授人于鱼,不如授人于渔
早已停用QQ了
2021-07-16 20:27
jingfang_434
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2009-10-24
收藏
得分:0 
回复 2楼 风吹过b
非常非常感谢!!!
2021-07-17 08:51
hnhhzhb1977
Rank: 2
等 级:论坛游民
威 望:1
帖 子:18
专家分:19
注 册:2021-9-2
收藏
得分:0 
太麻烦了吧
Right$("00000000" & I, 4)
2021-09-26 15:48
sysdzw
Rank: 1
等 级:新手上路
威 望:1
帖 子:3
专家分:0
注 册:2019-10-17
收藏
得分:0 
楼上的还是麻烦,直接:
Format(i, "0000")
收到的鲜花
  • yuma2021-11-19 20:07 送鲜花  1朵   附言:正解
2021-11-18 03:36
快速回复:请问VB6.0如何批量修改text中的字符
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017284 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved