---

Hej alle

Hvordan indsætter man et tegn eller bogstav i en streng ??

f.eks. hvis strenger er : 4555,333

og man gerne vil indsætte en * så strengen bliver: 45*55,333

---

"Finn" <ping@pong.com> skrev i en meddelelse
news:3f9b9957$0$45374$edfadb0f@dread11.news.tele.dk...
> Hej alle
>
> Hvordan indsætter man et tegn eller bogstav i en streng ??
> f.eks. hvis strenger er : 4555,333
> og man gerne vil indsætte en * så strengen bliver: 45*55,333

Hvis du altid ved, hvor tegnet skal ind.., så f.eks.:

nyStreng = Left(glStreng, 2) & "*" & Right(glStreng, 6)

--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
www.railsoft.dk
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp

---

"Jens Vestergaard" <j@railsoft.dk> wrote in news:3f9b9a5b$0$30083
$edfadb0f@dtext01.news.tele.dk:

> Hvis du altid ved, hvor tegnet skal ind.., så f.eks.:

Hvis man _IKKE_ ved hvor det skal ind, så:

Private Sub Form_Load()
MsgBox InsertStringInString("Hej", "*", 2)
End Sub

Function InsertStringInString(OldString As String, InsertString As String,
Position As Long)
InsertStringInString = Left(OldString, Position - 1) & InsertString & Right
(OldString, Len(OldString) - Position + 1)
End Function

Denne Func. vil vise en MsgBox med "H*ej" når formen loader.

---

Mathias skrev:
> Function InsertStringInString(OldString As String, InsertString As String,
> Position As Long)
> InsertStringInString = Left(OldString, Position - 1) & InsertString &
Right
> (OldString, Len(OldString) - Position + 1)
> End Function

Det kan gøres lidt enklere:

InsertStringInString = Left(OldString, Position - 1) & _
InsertString & Mid(OldString, Position)

-------
Tomas