title image


Smiley Z. B. so...
Option Explicit



Private Sub Command1_Click()

MsgBox Umwandeln(Text1.text)

End Sub



Public Function Umwandeln(text As String) As String

Dim temp As String

Dim Suchwert As String

Dim i As Integer

Dim Zeichen As String



Suchwert = "1234567890,/*+-"



For i = 1 To Len(text)

Zeichen = Mid(text, i, 1)



If InStr(1, Suchwert, Zeichen) Then

temp = temp & Zeichen

End If

Next i



Umwandeln = temp



End Function



Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: