Hej är nybörjare och behöver hjälp med en beräkningsvariabel. Koden är så här långt:

For i = 1 To (Len(sIn))

If Mid$(sIn, i, 1) = "!" Or Mid$(sIn, i, 1) = "," Or _
Mid$(sIn, i, 1) = "." Or Mid$(sIn, i, 1) = "?" Or _
(Mid$(sIn, i, 1) >= "A" And Mid$(sIn, i, 1) <= "Z") Or _
(Mid$(sIn, i, 1) >= "a" And Mid$(sIn, i, 1) <= "z") Or _
(Mid$(sIn, i, 1) >= "ü" And Mid$(sIn, i, 1) <= "å") Or _
(Mid$(sIn, i, 1) >= "Ä" And Mid$(sIn, i, 1) <= "Å") Or _
(Mid$(sIn, i, 1) >= "ö" And Mid$(sIn, i, 1) <= "Ü") Then
fault = True
sUt1 = sUt1 & Mid$(sIn, i, 1) 'Ej fel lägg till tecknet i ut-strängen
End If
If fel = True Then
sUt4 = " x st. felaktiga tecken har tagits bort"
End If
Next i

Vad jag inte lyckats lösa är HUR man räknar ut eller programmet räknar ut hur många fel det är t.ex.
Säg att jag har fått med 4 felaktiga tecken, vad för variabel skall jag använda så den räknar fram dom 4 felen???
och i sUt4 skall det i slutändan stå 4 st. felaktiga tecken har tagits bort.
Hur får jag in antalet felaktiga tecken i utsträngen????

Jag har hjärnsläpp just nu och det står helt stilla.

Tack på förhand =)

hej
Har inte analyserat i detalj men jag tycker det ser ok ut
Med ett undantag
Dim fault As Boolean
For i = 1 To (Len(sIn))

If Mid$(sIn, i, 1) = "!" Or Mid$(sIn, i, 1) = "," Or _
Mid$(sIn, i, 1) = "." Or Mid$(sIn, i, 1) = "?" Or _
(Mid$(sIn, i, 1) >= "A" And Mid$(sIn, i, 1) <= "Z") Or _
(Mid$(sIn, i, 1) >= "a" And Mid$(sIn, i, 1) <= "z") Or _
(Mid$(sIn, i, 1) >= "ü" And Mid$(sIn, i, 1) <= "å") Or _
(Mid$(sIn, i, 1) >= "Ä" And Mid$(sIn, i, 1) <= "Å") Or _
(Mid$(sIn, i, 1) >= "ö" And Mid$(sIn, i, 1) <= "Ü") Then
fault = True
sUt1 = sUt1 & Mid$(sIn, i, 1) 'Ej fel lägg till tecknet i ut-strängen
End If
If fault = True Then
sUt4 = " x st. felaktiga tecken har tagits bort"
End If
Next i

Du skriver fault och på raden under fel
Jag har korrigerat

mvh
Sven

Vet inte om det var det här du sökte... Men det kanske är en knuff i rätt riktning...

Den här koden är nog också lite snabbare än tidigare...


Private Sub Command1_Click()
Text2 = StripString(Text1)
End Sub

Public Function StripString(sText As String) As String
Dim I As Integer
Dim sChar As String
Dim Invalid As Integer
For I = 1 To (Len(sText))
sChar = Mid$(sText, I, 1)

Select Case sChar
Case "!", ",", ".", "?", _
"A" To "Z", _
"a" To "z", _
"ü" To "å", _
"Ä" To "Å", _
"ö" To "Ü"
StripString = StripString & sChar
Case Else
Invalid = Invalid + 1
End Select
Next

If Invalid Then
MsgBox Invalid & " st. felaktiga tecken har tagits bort"
End If
End Function