Udtryk der tæller for alt

Sub test()
Dim txtTrans, txtTemp
    txtTrans = "a*"

If txtTrans = "A*" Or txtTrans = "a*" Then
    txtTemp = "*Succes"
End If

Men du vil nok noget andet.....?? Skal * anvendes som Wildcard??

Hej.

Ja, for mig er det "kryptisk" hvad du vil kalde succes og hvilket ikke.  Prøv at kigge i hjælpen under 'Like'

Characters in pattern    Matches in string
--------------------------------------------------------------------
?    Any single character.
*    Zero or more characters.
#    Any single digit (0–9).
[charlist]    Any single character in charlist.
[!charlist]    Any single character not in charlist.

Sub test()
Dim txtTrans, txtTemp, txtTrans2
    txtTrans = "a*"

If txtTrans = "A*" Or txtTrans = "a*" Then
    txtTemp = "*" & "Succes"
End If

    txtTrans = "abcdAefg1234567890"
    txtTrans2 = fjernAa(txtTrans)
   
End Sub
Private Function fjernAa(txt)
Dim kopi, f, tegn
    kopi = ""
    For f = 1 To Len(txt)
        tegn = Mid(txt, f, 1)
        If tegn <> "A" And tegn <> "a" Then
            kopi = kopi + tegn
        End If
    Next f
    fjernAa = kopi
End Function

Sådan fjerner du A og a
txtTrans.Text = Replace(Replace(txtTrans.Text, "A", ""), "a", "")

kabbak : trode du havede lært det ;)

txtTrans.Text = Replace(txtTrans.Text, "a", "", 1, -1, vbTextCompare)

Erstatter den så også både A og a

jeps -> vbTextCompare

det må jeg huske ;-))

Ja, * (stjernen) skulle virke som "wildcard" for alle andre bogstaver eller tal der er efter A eller a. Den skal ikke være synlig i selve tekstboksen.

"Succes" er simpelthen bare et udtryk for at koden virker...


btw. tak for at i gider at tage jer tid til det her =)

Jeg har forresten prøvet at bruge ? (spørgsmålstegn) i stedet for *, men jeg får samme fejlmeddelse...

If txtTrans Like "A*" Or txtTrans Like "a*" Then
MsgBox " ok der er et A/a i starten"
Else
MsgBox "Ingen A/a"
End If