| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 57 人关注过本帖
标题:VB6提取机器码中的数字,并重新形成一个新的数字
只看楼主 加入收藏
natesc
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2013-9-15
结帖率:37.5%
  问题点数:0  回复次数:1   
VB6提取机器码中的数字,并重新形成一个新的数字
提取机器码中的数字,并重新形成一个新的数字
如:CE552-CED91-EA10C-B925R
应当形成一个5529110925,还有一个特殊情况,如箱一个数字是0,如C0E552-CED91-EA10C-B925R,则把0换成7,应当是75529110925,如何写代码
搜索更多相关主题的帖子: 重新 提取 机器码 VB6 数字 
2019-11-08 10:25
xyxcc177
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:23
帖 子:173
专家分:1145
注 册:2017-7-8
  得分:0 
Function GetNewNumber(Byval strNum As String) As String
Dim iLen,i As Integer
Dim strTmp As String
iLen=Len(strNum)
For i=1 to iLen
  strTmp =Mid(strNum,i,1)
     IF isNumeric(strTmp) Then
        GetNewNumber=GetNewNumber & strTmp
     End IF
Next
 If Left(GetNewNumber,1)="0" Then GetNewNumber="7" & Mid(GetNewNumber,2)
End Function
前天 20:50
快速回复:VB6提取机器码中的数字,并重新形成一个新的数字
数据加载中...
 
   



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

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