רוטר - שאלה אולי מסובכת ב-VB

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

"שאלה אולי מסובכת ב-VB"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #6960	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 6960

bietarj

16:48 15.09.03

שאלה אולי מסובכת ב-VB

הוקפץ אל ראש הפורום בשעה 17:00
אני צריך לעשות ככה:
לבנות תוכנה שתיכנס לאתר מסוים ותיקח שורה מסוימת(במקרה הזה אני צריך
את השורה-<title></title> כלומר מה שבין התוויות האלה...
יש מצב שמישהו מסביר לי אוש זה מסובך?!

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
אין אף אחד שיודע או רוצה לעזור לי?	bietarj	15.09.03 17:41	1
פיתרון	liranr	15.09.03 17:53	2
אכן נכון	codmaster	16.09.03 12:40	3
או קיי....	bietarj	16.09.03 16:10	4
דבר ראשון.. בעצם כנס	עוגיפלצת	16.09.03 22:02	5
כתבתי לפי המ שאמרו לי את זה:	bietarj	17.09.03 15:47	6
בעצם הצלחתי....	bietarj	17.09.03 19:24	7

bietarj

17:41 15.09.03

1. אין אף אחד שיודע או רוצה לעזור לי?
בתגובה להודעה מספר 0

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

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

liranr

17:53 15.09.03

2. פיתרון
בתגובה להודעה מספר 1

דבר ראשון הוסף את הפקד Microsoft Internet Transfer Control
(תלחץ ctrl+T ואז תסמן אותו ברשימה)
צייר אחד כזה על הטופס, ברירת המחדל של השם היא Inet1
אז תוסיף שורה כמו
s = Inet1.OpenURL("
" target="_blank" rel="nofollow">http://the-site-you-want.com")
ברגע זה s היא מחרוזת שמכילה את כל הקוד html של האתר.

אז בעזרת פונקציות רגילות של מחרוזות תפריד את מה שאתה רוצה

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

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

codmaster

12:40 16.09.03

3. אכן נכון
בתגובה להודעה מספר 2

אם אתה רוצה עוד קצת עזרה , אז השליפה של הכותרת (title) של מסמך ה-HTML בהנחה שהמסמך הוא מסמך HTML תקני תעשה כך :

Mid(str, InStr(str, "<title>") + 7, InStr(str, "</title>") - InStr(str, "<title>") - 7)

כמו - כן יש לשים לב שהבדיקה מבוצעת על תג עם אותיות קטנות אתה יכול להמיר את כל מחרוזת ה - HTML שבדוגמא זו קראתי לה str לאותיות קטנות ואז לבצע את הפונקציה הנ"ל מבלי להיתקל בבעיות.

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

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

bietarj

16:10 16.09.03

4. או קיי....
בתגובה להודעה מספר 3

תראו...אני ממש ממש חדש התחלתי לפני פחות משבוע ללמוד אז בגלל זה שאלתי
אם זה מסובך מידי....ונראה לי שכן..כתבתי את הדבר (המפגר) נהא:
Dim s As Integer
Dim str As Integer
Private Sub Command1_Click()
str = Mid(str, InStr(s, "<title>") + 7, InStr(s, "</title>") - InStr(s, "<title>") - 7)
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
s = Inet1.OpenURL("http://the-site-you-want.com")
End Sub

שכמובן לא עובד...ת'אמת אני אישית לא הבנתי מה עשיתי או בכלל
מה זה ה-dim הזה רק ראיתי את זה באיזהושהי תוכנית(של מחשב חחח)...

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

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

עוגיפלצת
חבר מתאריך 22.4.02
13978 הודעות, 3 פידבק

22:02 16.09.03

5. דבר ראשון.. בעצם כנס
בתגובה להודעה מספר 4

תשנה לכתובת של האתר שאתה רוצה ואז זה אמור לחפעול
דבר שני אתה יכול למחוק את ה DIM (שמירה בזיכרון)
כי לא הצגתה להם מה לשמור לא משנה
תשים אתר שלך או שאתה רוצה לבדוק
ואז תנסה שוב

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

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

bietarj

15:47 17.09.03

6. כתבתי לפי המ שאמרו לי את זה:
בתגובה להודעה מספר 5

ערכתי לאחרונה בתאריך 17.09.03 בשעה 15:49 בברכה, bietarj

Private Sub Inet1_StateChanged(ByVal State As Integer)
s = Inet1.OpenURL("http://www.whatismyip.com")
Label1.Caption = Mid(s, InStr(s, "<TITLE>") + 7, InStr(s, "</TITLE>") - InStr(s, "<TITLE>") - 7)
End Sub
המריץ את התוכנית וזה לא רושם לי בעיה...אבל זה גם לא מבצע את העבודה...

אהל נגיד בשורה הבאה:
s = Inet1.OpenURL("http://www.whatismyip.com")
אמרו יל להשים-;
בסוף של הסוגריים וזה לא פועל עם כזה-;
אז הורדתי את זה...זה משנה?

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

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

bietarj

19:24 17.09.03

7. בעצם הצלחתי....
בתגובה להודעה מספר 6

מי שרוצה לדעת צריך להשים את הפקודות האלה או ב-
form_load
או בלחצן(לפחות ככה אני הצלחתי)

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

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