QTP Ich möchte diese Nummer in 13

Question

teilen unter Nummer hat Länge von 39, ich möchte das auf Länge 13 teilen und möchte diese Werte erhalten. Also sollte ich 3 Werte wie A = 0001098600250, b = 0001098600602, c = 0001098600763 bekommen. Können Sie mir bitte dabei helfen? 000109860025000010986006020001098600763

Answer 1

Ich weiß nicht, was Sie genau erreichen wollen, aber das folgende sollte Ihnen die gewünschten Ergebnisse geben.

Dim reqnumber,A,B,C 

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

Answer 2

Versuchtes bisschen. Ich hoffe, dies wird dir helfen.

Lassen Sie varNum ist diese Nummer. Die fertige Ausgabe arrNums ist Array von Zahlen nach dem Aufspalten

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

Unter der Annahme, dass die Zeichenfolge immer ein Vielfaches von 13 sein wird

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