VB6提取机器码中的数字，并重新形成一个新的数字

natesc 发布于 2019-11-08 10:25， 2075 次点击

提取机器码中的数字，并重新形成一个新的数字
如：CE552-CED91-EA10C-B925R
应当形成一个5529110925，还有一个特殊情况，如箱一个数字是0，如C0E552-CED91-EA10C-B925R，则把0换成7，应当是75529110925，如何写代码

2 回复

xyxcc1772019-11-17 20:50

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

playbbb2023-02-01 09:04

2楼赞~