Question

以下数字的长度为39，我想将其除以13的长度并希望获得该值。所以我应该得到3个值，如A = 0001098600250，b = 0001098600602，c = 0001098600763。你可以帮我解决这个问题。 000109860025000010986006020001098600763

Answer 1

我不知道你想要达到的目标，但以下内容可以给你想要的结果。

Dim reqnumber,A,B,C

reqnumber =  000109860025000010986006020001098600763
A = Left(reqnumber,13)  
B= Mid(reqnumber,14,27)
C= Right(reqnumber,26)

Answer 2

假设你的字符串总是以13的倍数

butreqnumber = "000109860025000010986006020001098600763"

Dim arr()
ReDim arr(Len(butreqnumber) / 13)
j = 1

For i = 0 To (UBound(arr) - 1)
    arr(i) = Mid(butreqnumber,j,13)
    j = j+13
Next

Answer 3

尝试了一下。我希望这会对你有帮助。

让varNum为该数字。最终输出arrNums是分割后的数字数组

intLen= Len(varNum) ' get lenth of the variable
varNum=Cint(varNum) ' covert to integer
If(intLen Mod 13) then ' if it is not multiple of 13
  msgbox "number length is not multple of 13"
Else     ' if it is multiple of 13
  Dim arrNums()   ' initialsie array to store numbers
  cnt=intLen/13   ' get count of numbers to be splitted
  redim arrNums(cnt-1) 
  For i=1 to cnt   ' loop and split the variable
    arrNums(i-1)=Mid(varNum, 13*(i-1)+1, 13) ' store number in array
    'i=i+1
  Next   
End if

QTP我想将这个数字拆分为13

3 个答案: