Streng(string)

[asware]

Jeg har en streng som jeg vil dele etter hvert 5. tegn. Hvordan gjør jeg dette?

 

 

Eks:

 

streng = abcdefghijklmnopqr

 

 

Etter at den er delt, skal jeg få ut dette i fire forskjellige msgboxer:

abcde

fghij

klmno

pqr

[abcd423417984]

jeg ville lagd en loop som bruker Left() for å hente ut 5 og 5 bokstaver

[asware]

Ja, det er jo en mulighet... Prøver det jeg...

[GeirGrusom]

mid funksjonen fungerer jo bra da.

Left vil altid begynne på 1.

[aadnk]

Jeg har laget en funksjon som forenkler nettopp dette. Den fungerer omtrent som Split:

 

Public Function EqualSplit(Expression As String, ByVal Delay As Long, Optional Limit As Long = -1) As Variant

Dim Tell&, Lng&, Cnt&, sLenght&, Tmp()

sLenght = Len(Expression)
Lng = 3

For Tell = 1 To sLenght Step Delay
   If Limit > -1 Then
       If Cnt >= Limit Then
           Exit For
       End If
   End If
   
   If Tell + Lng > sLenght Then
       Lng = sLenght - Tell + 1
   End If
   
   ReDim Preserve Tmp(Cnt)
   Tmp(Cnt) = Mid(Expression, Tell, Lng)
   
   Cnt = Cnt + 1
Next

EqualSplit = Tmp

End Function