Jag har en liten fråga. Man kan ju trimma bort efter ett visst antal tecken.. Testa Regular Expressions... Eller... Fungerar nog också, men om ett mellanslag är det första tecknet i texten retunerar den ingenting... Tack! Låter bra!Kan man trimma bort hela ord?
Kan man istället trimma bort så att man bara får det första ordet?Sv: Kan man trimma bort hela ord?
<code>
Private Function FirstWord(Text)
Dim RegExp
Dim objRes
Dim Res
Set RegExp = New RegExp
RegExp.Pattern = "[^\s]+"
RegExp.Global = True
RegExp.IgnoreCase = True
objRes = RegExp.Execute(Text)
If objRes.Count > 0 Then
Res = objRes(0).Value
End If
Set RegExp = Nothing
FirstWord = Res
End Function
</code>
Borde fungera om jag inte skrivit något fel...
Mvh,
ThomasSv: Kan man trimma bort hela ord?
<code>
Function Get1stWord(str)
Dim lengd
lengd = inStr(1,str," ") - 1
Get1stWord = Left(str,lengd)
End Function
</code>Sv: Kan man trimma bort hela ord?
Mvh,
ThomasSv: Kan man trimma bort hela ord?
Det var precis det jag sökte..
Plutten.. Jag använder mig av din och den funkar fin fint..Sv: Kan man trimma bort hela ord?
Vill du lära dig mer om Regular Expressions finns en hel del matnyttigt på www.regular-expressions.info
Mvh,
Thomas