QTP Я хочу разбить это число на 13

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

Пробовал немного. Я надеюсь, что это поможет вам.

Let 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 

Answer 3

Предполагая, что ваша строка всегда будет в упаковке 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