Indsætte punktum i en label mellem 2 bogstaver

du kan bruge Left funktioen paa en string:

dim strWholeString, strNewString as string

strWholeString = DitLabel.text

strNewString = Left(strWholeString,1,1) & "." & left(strWholeString,2,100)

Jeg indsaetter 100 i string-laengden i sidste del da resten af teksten inkluderes hvis den er mindre end string-laengden (saa hvis du har tekst laengere end 100 skal du selv bruge et hoejere nummer)

Sådan her var også en løsning og kan opstilles næsten som den anden...

Tekst = Label1.Caption

x = Len(Tekst)
del1 = Mid(Tekst, 1, 1)
del2 = Mid(Tekst, 2, x - 1)

Tekst = del1 & "." & del2

MsgBox Tekst

/Hiks

hiks -> Ja den er vist lidt mere aestetisk og effektiv end mit foreslag :-)
cristian -> Hiks loesning er bedre saa giv ham pointene

streng = Left(streng, 1) & "." & Left(streng, Len(streng) - 1)

du kan nøjes med dette

streng = Left(streng, 1) & "." & right(streng, Len(streng) - 1)

hovsa, sådan her

Hej overchord

Du har vist været lidt hurtig, der findes ikke .text på en label, det er .caption, hvis jeg retter dette får jeg en compile error på den "første" left (wrong number of arguments) ???.

Mvh.

Christian_h

Label1.Caption = Left(Label1.Caption, 1) & "." & Right(Label1.Caption, Len(Label1.Caption) - 1)

LOL beklager : Ja det gik lidt hurtigt, og der er bedre forslag paa siden nu. Beklager, men konceptet var der nu og det er bare et spoergsmaal om at laese syntaksen paa Left kommandoen.

Hej kabbak.

Dit sidste eksempel, virker perfect, så jeg tildelder dig points.

Mvh.

Christian_h

tak for det. ;-)