メールのアドレスフォーマットは正しいかどうかをどう判断しますか？

第一の方法は、＜%Function IsValidEmail（Email）ValidFlaag=False If（Email<>>“”）And（InStr（1、Email、“@”）＞0）And（InStr（1、Email、“.”）＞0）The atCount=0 Special Flant=Lomail=Eflatmart=11）If atChr=「@」The n atCount=atCount+1 If(atChr)=Chr(32))And(atChr==Chr==Chator(44)The n Special Flaag=TrueIf(atChr=Chr(47))Or(atChr=Chr=SpSpSpSpSpSp96)Or(Chatotototor=Chator=Chattttdedededededededededededededededededer=Chator=Chator=Chator=Chator=Chattttttttttdededededededededededer=Chatial Flags=True If(atChr)=Chr(91)And(atChr==Chr(94))The n Special Flags=True Next If（atCount=1）And（SpecialFlaag=False）The n BadFlaag=False tArmy 1=Split（Email、「@」）UserName=tArmy 1（0）DmamamanName=tArmy 1（1）If（UserName=「」）Or（Dmamamamamame=「Dmamame=Edme=Edmattttttttmame=Emame=Emame=Emame=Emame=Emame=Emame=Ematttttttttmame=Emame=Edmame=Emame=Emame=Emame=Emame=Emame=Name，Len，1)=「.」then BadFlagG=True ValidFlags=True'フォーマットは正しくTureに戻ります。End If End If BadFlags=True The n ValidFlags=False'フォーマットが正しくFalseに戻りません。IsValidEmail=ValidFlags End Function%     第二の方法:'%function IsValidEmail(email)dim names，name，i，cIsValidEmail=truename=Split(email)'@)if UBound(>1 then  IsValidEmail=false  exit functiond iffor each name in names  if Len(=0 then)    IsValidEmail=false    exit function  end if  for i=1 to Len(name)    c=Lcase(Mid(name，i，1)    if InStr("abcdefghijklmnopqrstuvwxyz-."c)<=0 and not IsNumeric(c)then      IsValidEmail=false      exit function    end if  next  if Left（name，1）=“.”or Right（name，1）=“.”then      IsValidEmail=false      exit function  end ifnextif InStr(names(1)「.」)<=0 then  IsValidEmail=false  exit functiond if=Len(names(1)-InStrRev(names(1)，「.」)if i<>2 and i<>3 then  IsValidEmail=false  exit functiond if InStr（email、「.」）>0 then  IsValidEmail=falseend Function%    第三の方法は、次の関数で判断します。メールアドレスに「@」と「.」が含まれているかどうかを確認します。  lAt=False  lDot=false  for x=2 to len(pInstring)-1    if mid（pInString，x，1）=「@」then lAt=True      if mid（pInString，x，1）=“.”and lAt=True then lDot=True  next  if lAt=True and lDot=True then    アイメール=True  else    isEmail=False  end ifend function [1）