Gøre textstrenge lige lange ved at sætte spaces ind i midten

hov den formatere forkert

Det skal se sådan her ud:
Nr.:___1
Nr.:1234

hvor _ er spaces

Det vil så kun fungere hvis du anvender monotype-fonts eller _ (underscore) men det er ikke _ du ønsker vel?

bruger arial til udskrift og default i programmet

Hej.

I VB6 kan du bruge split ved kolon.

Jeg har kun en 5'er så dér må man selv skrive lidt mere.

a = len(string)
If a < 8 then
  string = left(string,4) & space(8 - a) & right(string,(a - 4))
end if

Har ikke afprøvet, men måden skulle være god nok.  Prøver om lidt og retter hvis der er fejl.

result = Right("      " & streng)

Så kan du ikke bare indsætte mellemrum, der sker præcist det samme som da du skrev det første indlæg.

nr = "Nr.:1"
nr = Split(nr, ":")(0) & ":" & Space(8 - Len(nr)) & Split(nr, ":")(1)

Hej.

Er der ikke kun fonten courier, hvor alle tegn er lige brede?

Metoden jeg beskrev før fungerer med denne test:

Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text)
End Sub

Private Sub Text1_DblClick()
a = Len(Text1.Text)
If a < 8 Then
  Text1.Text = Left(Text1.Text, 4) & Space(8 - a) & Right(Text1.Text, (a - 4))
End If

End Sub

Det virker fint nok joern men det giver det problem som kryptos nævner

plx: som jeg læser det sætter du bare x antal spaces ind, men det duer ikke da det skal gøres ved mange data fra en database, og vil nok give samme problem anyways

kan man sætte tab indrykning i en listbox ?

Hvis der nu ikke skal stå nr.: i listbox så kan du vel sætte den right-align eller?

for at sikre mig samme størelse skal jeg sætte et tal ind, så man kunne sætte 0 ind på de første pladser, så det kommer til at se sådan her ud: Nr.:0001

Det skal der desværre

Jamen så bruger du bare noget at det viste kode og indsætter et 0 istedet for mellemrum, men et eller andet sted giver det bare ikke mening at skrive nr.: foran alle sammen, da nr.: vel kunne indgå i listbox label, men hvis du har et diktat eller ønske så er 0'er den enkelste løsning.

a = len(string)
If a < 8 then
  string = left(string,4) & string(8-i,"0") & right(string,(a - 4))
end if

Det virker for mig :)

kryptos ligger du også lige et svar :)
der er lidt point til dig også for at give info om det med skrift type problemet

svar

Håber det er retfærdigt fordelt ellers må i lige sige til :)

Jeg siger i hvert fald mange tak for den hurtige hjælp :)

Hmmm kan ikke få lov at give point :(

150 Point til joern: http://www.eksperten.dk/spm/661953
50 Pont til kryptos: http://www.eksperten.dk/spm/661955

Må gøre det sådan her for kunne ikkf få lov at dele dem op :(

Hej.

Tak for point.  Hvis du ender med en løsning uden 'nr.:' så kan du blot bruge format

string = format(var,"000#")

m.v.h.