010
11.09.2004, 11:55 Uhr
Bruder Leif
dances with systems
(Operator)
|
Aaaaaaaaaaaaaaaaaachsooooooooooo! Kein Problem:
| Visual Basic: |
Private Sub Command1_Click()
Dim i As Integer
Dim anzahl As Integer
Dim maxLen As Integer
Dim str1 As String, str2 As String
maxLen = Len(Text1.Text)
If Len(Label1.Caption) > maxLen Then maxLen = Len(Label1.Caption)
str1 = Left$(Text1.Text + Space(maxLen), maxLen)
str2 = Left$(Label1.Caption + Space(maxLen), maxLen)
anzahl = 0
For i = 1 To maxLen
If Mid$(str1, i, 1) <> Mid$(str2, i, 1) Then anzahl = anzahl + 1
Next
MsgBox anzahl
End Sub
|
--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook. |
