[VBScript]

[MisterE]

Ik kom bij VB er niet helemaal uit, in Delphi zou het allemaal niet zo probleem
zijn maar de dingen werken in VB allemaal net anders.


Ik heb dit:

Function IsInteger(sValue)
Dim i

For i = 1 to Len(sValue)
msgbox (sValue)
if i=3 then Break
Next

IsInteger = False
End Function


Wat ik dus wil is iedere char van de string kunnen controleren of het
tussen de 0..9 zit. Ik WEET dat VB de IsNumeric functie heeft maar ik
heb dat straks ook nodig om andere functies te maken die email
adressen kan controleren etc.


Bij delphi zou je het zo doen:

function IsInteger(s: String): Boolean;
var
i: Integer;
begin

for i:=1 to Length(s) do
begin
if not (s[i] in ['0'..'9']) then
begin
Result := False;
Break;
end;
end;

Result := True;
end;

Maar ik weet niet hoe ik ee 'chars' uit een string moet krijgen.

bvd

[gorgi_19]

Zoek je niet gewoon Regular Expressions?

[j_du_pee]

je kunt met mid(string, i,1) 1 char uitlezen. Verder is de syntax van je script niet heel best vrees ik...

Visual Basic:

For i = 1 to Len(sValue)
  msgbox (mid(sValue,i,1))
  if i=3 then exit for
Next

met [ code] kun je je post wat overzichtelijker houden

[ Voor 44% gewijzigd door j_du_pee op 09-10-2003 23:10 ]

[curry684]

Edit je topic eens met [code=delphi] en [code=vb] tags, maak eens indentering, bedenk een goede complete topictitel en leg eens uit waarom daar VBScript staat terwijl dit zo te zien gewoon VB is?

[MisterE]

dus zo te zien is die 'mid' hetzelfde als 'copy' in delphi? Niet echt een logische naam. Maar je kan niet de string beschouwen als een array, oftwel met '[]' de index van een char krijgen?

En die 'for' achter exit is ook nodig?

sorry, was de titel vergeten af te maken, is ook al zo laat

[Verwijderd]

Dit zijn toch inderdaad gewoon Regular Expressions? Voorbeeld voor e-mail:

Visual Basic .NET:

Function RegExpTest(sEmail)
  RegExpTest = false
  Dim regEx, retVal
  Set regEx = New RegExp

  regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" 
  regEx.IgnoreCase = true
  retVal = regEx.Test(sEmail)

  If not retVal Then
    Exit Function
  End If

  RegExpTest = true
End Function

[MisterE]

euh ben zo'n ster in vb, maar ik neem aan dat ie checkt of die chars erin zitten?
Iig, dan kan je nog steeds foute mail adresen invullen zoals: '@.com' of iets dergelijks.

[gorgi_19]

MisterE schreef op 09 October 2003 @ 23:24:
euh ben zo'n ster in vb, maar ik neem aan dat ie checkt of die chars erin zitten?
Iig, dan kan je nog steeds foute mail adresen invullen zoals: '@.com' of iets dergelijks.

Dan ken je het principe van regular Expressions niet. Zo stel je in dat er minimaal 1 karakter nog tussen de @ en de . moet staan.

Het principe van Regular Expressions is trouwens niet gebonden aan VBScript; Reg. ex'en zitten trouwens ook niet standaard in VB6.

En als je afkortingen gebruikt, wil je dan de goede gebruiken; Wat is VB in jouw optiek? VBScript, VB.Net, VB6?

[ Voor 29% gewijzigd door gorgi_19 op 09-10-2003 23:27 ]

[Verwijderd]

MisterE schreef op 09 October 2003 @ 23:24:
euh ben zo'n ster in vb, maar ik neem aan dat ie checkt of die chars erin zitten?
Iig, dan kan je nog steeds foute mail adresen invullen zoals: '@.com' of iets dergelijks.

Zoek eens wat op over Regular Expressions zou ik zeggen, het kan namelijk meer dan je zou denken. Zie bijvoorbeeld (beperkte informatie): http://www.aivosto.com/regexpr.html of "Use Regular Expressions in Microsoft Visual Basic 6.0". En daarnaast, al doe je het niet met Regular Expressions zijn er op internet nog tientallen scriptjes te vinden die in VBScript e-mail adressen valideren.

[ Voor 7% gewijzigd door Verwijderd op 09-10-2003 23:31 ]

[.oisyn]

Mag ik je nogmaals wijzen op deze post van mijn collega: [rml]curry684 in "[ VBScript]"[/rml]!!

[ Voor 3% gewijzigd door .oisyn op 09-10-2003 23:32 ]

[.oisyn]

Mja, we zijn nu alweer 40 minuten verder en je hebt nog altijd niets aan je startpost gedaan. Ik doe 'm dan ook gewoon op slot

Je bent vrij een nieuwe te openen, mits hij voldoet aan de P&W QuickStart. Dus nogmaals, verzin een goede titel, plaats de code tussen code tags en leg duidelijk uit wat je probleem is en wat je al geprobeerd hebt.

Succes!