ABA


"צריך עזרה ב vb בדיקת תקינות של ''אתר''"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #7381 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 7381
Gold Dragon

   21:30   16.11.03   
אל הפורום  
  צריך עזרה ב vb בדיקת תקינות של ''אתר''  
 
   אני צריך לעשות בדיקת תקינות לאתר שהוא חוקי...
כלומר עם הכניסו www. ואחד משלושת הסיומות הנפוצות .com,.net,.org
רשמתי את זה במודול של פונקציות לבדיקות תקינות..
וזה לא עובד לי אם תוכלו לתקן אותי אני אשמח מאוד...
להלן הקוד שרשמתי:

Dim sWebSite
IsWebSite = False
sWebSite = Trim(TxtWebSite)
If InStr(UCase(sWebSite), "www.") <> 0 Then
If InStr(UCase(sWebSite), ".com") <> 0 _
Or InStr(UCase(sWebSite), ".org") <> 0 _
Or InStr(UCase(sWebSite), ".net") <> 0 Then
IsWebSite = True
End If
End If
End Function


                                שתף        
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

  האשכול     מחבר     תאריך כתיבה     מספר  
  ובכן הפונקציה שלך כלל לא יעילה codmaster 18.11.03 11:21 1
     עוד דבר: Vidi 18.11.03 13:57 2

       
codmaster

   11:21   18.11.03   
אל הפורום  
  1. ובכן הפונקציה שלך כלל לא יעילה  
בתגובה להודעה מספר 0
 
   שכן היא תחזיר תוצאות לא נכונות .
בכל מקרה ברמה הבסיסית הטעות שלך היא שאתה משתמש ב - ucase ומבצע בדיקה על אותיות קטנות ucase היא פונקציה הממירה לאותיות גדולות (upper case)
ולכן הבדיקה צריכה להתבצע על תת מחרוזת באותיות קטנות

InStr(UCase(sWebSite), "WWW.")


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
Vidi
חבר מתאריך 1.10.17
591 הודעות
   13:57   18.11.03   
אל הפורום  
  2. עוד דבר:  
בתגובה להודעה מספר 1
 
אם אני לא טועה הגדרה שלך לכתובת תקינה היא שהיא תהיה מהתבנית
www.BLALBA.com
אבל מה קורה אם התוכנית שלך תצטרך לבדוק את הכתובת הזו:

.com.HI.WWW.

אתה מבין?


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net