Splitting chars and numbers from string [RESOLVED]

[Chrissie]

I want to split some strings which look like this..

10183bla.ini
2972blokke.ini
298dsfsdfds.ini

I want to get them returned like below...Problem is I never know how many numbers and how many charachters will be in the string.

10183 bla.ini
2972 blokke.ini
298 dsfsdfds.ini

Anyone got any idea how to get this done?

[jim mcnamara]

Try something like this - I don't have VB on this box to test it.

Function reformat(str as string) as String
       Dim i as long
     
       i=1
       do while(ASC(mid(str,i,1)) < 65)
             i = i + 1
       Loop
       reformat = left(str, i-1) & " " & right(str, len(str) -i)
End Function

[Chrissie]

Thanks...that works for me...one small change...to make sure I get the full name.

Function reformat(str as string) as String
       Dim i as long
     
       i=1
       do while(ASC(mid(str,i,1)) < 65)
             i = i + 1
       Loop
       reformat = left(str, i-1) & " " & right(str, len(str) -i+1)
End Function