Formater string med bestemt antal mellemrum

PS: Sikke noget sludder.

"Har en listbox med mange poster i. Hver post i arrayet skal omskrives, så de enkelte data står på bestemte positioner (f.eks. at alle data starter på 3. karakter), og smides over i en ny listbox."

skal rettes til

"Har en FIL med mange LINIER i. Hver LINIE skal omskrives, så de enkelte data står i bestemte positioner, og gemmes som en ny fil..."

du kan vel lave det med tabstop.. http://vbnet.mvps.org/code/listapi/listboxtabs.htm

må ikke være tab - skal være mellemrum

der er kun et problem med mellemrum.. hvis bogstaverne på din font-type ikke er samme brede så går der ged i det.. så skal der være flere mellemrum i nogle af dem..

men ellers så kan du gøre sådan..

Option Explicit

Private Sub Form_Load()
  List1.Font.Name = "Courier New"
  List1.AddItem AddSpace("123", 8) & AddSpace("12356", 8) & AddSpace("ab123", 8)
  List1.AddItem AddSpace("123ddd", 8) & AddSpace("kk12356", 8) & AddSpace("b123", 8)
End Sub

Public Function AddSpace(strText As String, intSpace As Integer) As String
  AddSpace = strText & Space$(intSpace - Len(strText))
End Function

Det er en txt-fil. Font er irellevant.

Kendte ikke funktionen Space. Kikker på det

skulle du ikke ha lukket det her.. går udfra at du har fået løst dit problem ;) du kan bare selv tag dine point..

jo - lukker. Og problemet blev løst