Dies ist eine alte Version des Dokuments!


RemColors

Sub RemColors(Text)
  TextNoColor=""
  i=0
  Do
    i2=i
    i=InStr(i+1, Text, Chr(1))
    i3=i
    if i = 0 Then
      i=Len(Text)+1
      i3=i
    else
      Do
        i=i+1
        Dat=Mid(Text, i, 1)
      Loop until (Asc(Dat) > 57 or Asc(Dat) < 48) and Dat<>","
      i=i-1
    end if
    if i3-i2 > 1 Then TextNoColor=TextNoColor+Mid(Text, i2+1, i3-i2-1)
  loop until i3=Len(Text)+1
  RemColors = TextNoColor
End Sub

Eigene Werkzeuge