Søg
Avatar billede medions Nybegynder
29. august 2001 - 12:11 Der er 11 kommentarer og
1 løsning

de 2 sidste bogstaver i en streng?=!=!=!=!=?

Hvorfor kan vil min kode ikke tjekke om de to sidste bogstaver i e-mailadressen er dk?

Kode:

<Script language=\"VBScript\">
<!--
Sub Form_OnSubmit

    email_adr = form.mail.value
    text_end = email_adr.right(2)

        If text_end = \".dk\" Then
        MsgBox \"Adressen skal slutte med .com\"

              ElseIf InStr(form.mail.value, \".\") < 1 Then
              msgbox \"Du mangler et punktum!\"

        ElseIf InStr(form.mail.value, \"@@\") > 1 Then
        MsgBox \"Du har for mange snabela\'er!\"
End If

End Sub
-->
</script>
Avatar billede terry Ekspert
29. august 2001 - 12:23 #1
well it seems logical to me, but I may be missing something!
text_end = email_adr.right(2) maybe gives you \"dk\"
but you then test If text_end = \".dk\" (.dk)

test \"dk\" !!!!!!!!!


       

Avatar billede medions Nybegynder
29. august 2001 - 12:45 #2
*L* okay, now I have deleted it!

but it still not work! :-(
Avatar billede medions Nybegynder
29. august 2001 - 12:47 #3
here is it all:


<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>

<form name=\"form\">
<input type=\"text\" name=\"mail\">
<input type=\"submit\" value=\"send\">
</form>

<Script language=\"VBScript\">
<!--
Sub Form_OnSubmit

If InStr(form.mail.value, \"@\") < 1  Then
msgbox \"Du mangler et snabela!\"

ElseIf text_end = \"dk\" Then
MsgBox \"Adressen skal slutte med .com eller .dk!\"

email_adr = form.mail.value
text_end = email_adr.right(2)

ElseIf InStr(form.mail.value, \".\") < 1 Then
msgbox \"Du mangler et punktum!\"

ElseIf InStr(form.mail.value, \"@@\") > 1 Then
MsgBox \"Du har for mange snabela\'er!\"

End If

End Sub
-->
</script>

</body>
</html>


Avatar billede netsrac Praktikant
29. august 2001 - 13:48 #4
<Script language=\"VBScript\">
<!--
Sub Form_OnSubmit

email_adr = form.mail.value
text_end = right(email_adr,2)

If InStr(form.mail.value, \"@\") < 1  Then
msgbox \"Du mangler et snabela!\"

ElseIf text_end <> \"dk\" Then
MsgBox \"Adressen skal slutte med .com eller .dk!\"

ElseIf InStr(form.mail.value, \".\") < 1 Then
msgbox \"Du mangler et punktum!\"

ElseIf InStr(form.mail.value, \"@@\") > 1 Then
MsgBox \"Du har for mange snabela\'er!\"

End If

End Sub
-->
</script>
Avatar billede terry Ekspert
29. august 2001 - 16:00 #5
medions> Its not easy to give you an answer to your problem if you dont send the correct code.
Obviously my answer isnt going to be correct!

In th eoriginal question you write
If text_end = \".dk\" Then MsgBox \"Adressen skal slutte med .com\"

but in the complete code you write

ElseIf text_end <> \"dk\" Then
MsgBox \"Adressen skal slutte med .com eller .dk!\"

So what happens if someone enters .com ????





             
Avatar billede netsrac Praktikant
29. august 2001 - 16:02 #6
Jeg skrev <> det var ikke medions.
Avatar billede terry Ekspert
29. august 2001 - 16:03 #7
OK, but is this correct?
Avatar billede netsrac Praktikant
29. august 2001 - 16:03 #8
<Script language=\"VBScript\">
<!--
Sub Form_OnSubmit

email_adr = form.mail.value
text_end = right(email_adr,2)
endok = False
If text_end = \"dk\" or text_end = \"com\" then
endok = True
End uf


If InStr(form.mail.value, \"@\") < 1  Then
msgbox \"Du mangler et snabela!\"

ElseIf text_end <> True Then
MsgBox \"Adressen skal slutte med .com eller .dk!\"

ElseIf InStr(form.mail.value, \".\") < 1 Then
msgbox \"Du mangler et punktum!\"

ElseIf InStr(form.mail.value, \"@@\") > 1 Then
MsgBox \"Du har for mange snabela\'er!\"

End If

End Sub
-->
</script>
Avatar billede netsrac Praktikant
29. august 2001 - 16:05 #9
<Script language=\"VBScript\">
<!--
Sub Form_OnSubmit

email_adr = form.mail.value
text_end = right(email_adr,2)
text_end = mid(email_adr, instrrev(email_adr, \".\"))
endok = False
If text_end = \"dk\" or text_end = \"com\" then
endok = True
End uf


If InStr(form.mail.value, \"@\") < 1  Then
msgbox \"Du mangler et snabela!\"

ElseIf text_end <> True Then
MsgBox \"Adressen skal slutte med .com eller .dk!\"

ElseIf InStr(form.mail.value, \".\") < 1 Then
msgbox \"Du mangler et punktum!\"

ElseIf InStr(form.mail.value, \"@@\") > 1 Then
MsgBox \"Du har for mange snabela\'er!\"

End If

End Sub
-->
</script>
Avatar billede netsrac Praktikant
29. august 2001 - 16:05 #10
Så nu skulle den være der...
Avatar billede medions Nybegynder
29. august 2001 - 21:43 #11
ok... takker netsrac!
Avatar billede netsrac Praktikant
30. august 2001 - 01:23 #12
:)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 10:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
I dag 10:24 Kan Excel selv beregne alder? Af leahcim i Excel
I går 15:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
29/0820:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
White papers
Flere white papers »