Hej,

Kan man på något sätt rensa en sträng från siffror?

Ex
"124 21 BANDHAGEN"

Om alla postnummer varit lika långa kunde man ju valt att visa från en viss position, men nu är det inte så....

//Fredrik

Du kan ju köra en replace() och ersätta 0-9 tecknena med ingenting.
Om de nu är så att man måste ersätta med något så kan du ju ersätta med mellanslag och sen köra en trim().

Men de finns säkert enklare sätt än detta...

Liten funktion som tar bort siffror:
<code>
Function TrimNumbers(Text)
Dim Char
Dim Index
Dim Offset
TrimNumbers = Text
For Index = 1 To Len(Text)
Char = Mid(Text, Index, 1)
If IsNumeric(Char) Then
Offset = Offset + 1
ElseIf Offset Then
Mid(TrimNumbers, Index - Offset) = Char
End If
Next
If Offset Then
TrimNumbers = Left(TrimNumbers, Len(TrimNumbers) - Offset)
End If
</code>

Löste det med följande funktion:

<code>
Function Ta_bort_siffror(String)
on Error resume next
String = Replace(String, "0","")
String = Replace(String, "1","")
String = Replace(String, "2","")
String = Replace(String, "3","")
String = Replace(String, "4","")
String = Replace(String, "5","")
String = Replace(String, "6","")
String = Replace(String, "7","")
String = Replace(String, "8","")
String = Replace(String, "9","")
Ta_bort_siffror = String
End Function
</code>

//Fredrik