Avatar billede mrr1217 Nybegynder
15. januar 2007 - 16:17 Der er 11 kommentarer

Udtryk der tæller for alt

Hey

Jeg har brug for et udtryk der tæller for tal og bogstaver... Jeg har forsøgt at bruge * (stjerne) på denne måde:

If txtTrans.Text = "A" and * or "a" & * Then
    txtTemp.Text = * "Succes"
End if

...men det virker ikke... "Compile error - Expected: Expression"

Jeg skal også bruge en løsning på hvordan jeg sletter A eller a, uden at slette de bogstaver bagved og foran det... Er det lidt kryptisk??
Avatar billede supertekst Ekspert
15. januar 2007 - 16:51 #1
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??
Avatar billede joern Nybegynder
15. januar 2007 - 16:55 #2
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.
Avatar billede supertekst Ekspert
15. januar 2007 - 16:57 #3
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
Avatar billede kabbak Professor
15. januar 2007 - 22:14 #4
Sådan fjerner du A og a
txtTrans.Text = Replace(Replace(txtTrans.Text, "A", ""), "a", "")
Avatar billede sjh Nybegynder
15. januar 2007 - 22:33 #5
kabbak : trode du havede lært det ;)

txtTrans.Text = Replace(txtTrans.Text, "a", "", 1, -1, vbTextCompare)
Avatar billede kabbak Professor
15. januar 2007 - 22:35 #6
Erstatter den så også både A og a
Avatar billede sjh Nybegynder
15. januar 2007 - 22:37 #7
jeps -> vbTextCompare
Avatar billede kabbak Professor
15. januar 2007 - 22:37 #8
det må jeg huske ;-))
Avatar billede mrr1217 Nybegynder
17. januar 2007 - 11:53 #9
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 =)
Avatar billede mrr1217 Nybegynder
17. januar 2007 - 11:55 #10
Jeg har forresten prøvet at bruge ? (spørgsmålstegn) i stedet for *, men jeg får samme fejlmeddelse...
Avatar billede kabbak Professor
17. januar 2007 - 12:28 #11
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
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester