רוטר - צריך עזרה ב vb בדיקת תקינות של ''אתר''

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"צריך עזרה ב 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.

אתה מבין?

(ניהול: מחק תגובה)

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