Hej! Sök efter replace i tips & tricks, tror det finns en sådan rutin där. Gör det inte det, så kolla www.vbcode.com för där lär det finnas. - Lägg i så fall in den i tips & tricks så nästa slipper fråga ;-) Hej När diskussionen ändå är igång, kan jag passa på att fråga om en bra kod för en "Sök"-funktion (i ett textdokument) och en "Sök och ersätt"-funktion. Hej och tack! Har testat denna kod, men det funkar inte så bra om det ord man ska byta bort är längre än det som man byter med det byts nämligen bara lika många bokstäver som det nya ordet är långt.. Används replace som någon nämde tidigare.Replace
Vet någon om det går att använda nån funktion (i VB5) som byter ut ett tecken i en sträng mot ett annat?
Tack!
/RiPPeRSv: Replace
Hälsningar
/PelleSv: Replace
Ett exempel som jag användt för att känna av om
det finns en . (punkt) i txtValue (TextBox) i så fall
ändra till , (komma)
Dim pos as Long
Dim tmpStr As String
If InStr(txtValue, ".") Then
tmpStr = txtValue
pos = InStr(tmpStr, ".")
Mid$(tmpStr, pos) = ","
txtValue = tmpStr
End If
mvh
SvenSv: Replace
Är det samma princip som ovan?
Tacksam för svar!
MvH Dan "DaPe" PerssonSv: Replace
Nu har jag lagt upp två tips från vbcode.com. Ett som ersätter tecken och det andra söker och ersätter strängar i en sträng.
Jag tror att jag använder Svens exempel eftersom det är precis det jag vill göra.
/RiPPeRSv: Replace
ex:
Om jag ska byta:
Visual Basic
till bara VB blir resultatet:
VBsual Basic
det andra försvinner alltså inte =( nån som har en kod är allt byts?Sv: Replace
<code>
strText = "Jag tycker Visual Basic är roligt"
strSeek = "Visual Basic"
strNewWord = "VB"
strResultat = Replace(strText, strSeek, strNewWord)
MsgBox strResultat
</code>
/Janne