Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 242
  • Last Modified:

how to cut a string by fixed length

I need to judge a string,
if it is longer than 10000, then the first 1-10000 will put into one string.
Then judge on the rest and if longer than 10000, repeat the same.

May I know how to do it in vb6, thanks
0
turbot_yu
Asked:
turbot_yu
  • 2
1 Solution
 
Ryan ChongCommented:
try something like this, i split the string and put into an array.. :

Dim strArr() As String, bigString As String, cnt As Integer
    bigString = "Bla..... very long..."
    cnt = 0
    Do While Len(bigString) > 10000
        ReDim Preserve strArr(cnt)
        strArr(cnt) = Left$(bigString, 10000)
        bigString = Mid$(bigString, 10001)
        cnt = cnt + 1
    Loop
   
    'Last string
    If bigString <> "" Then
        ReDim Preserve strArr(cnt)
        strArr(cnt) = bigString
    End If
0
 
Ryan ChongCommented:
to get the splitted string, try something like:

For i = 0 To UBound(strArr)
        Debug.Print strArr(i)
    Next i
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now