שאלה...

[קיפוש]

שאלה...

בעזרת ASPTEAR, הצלחתי לשאוב את המידע הרולנטי שלו אני זקוק ... הרכיב הזה שואב בעצם את הHTML של הדף... השאלה שלי איך אני יכול לשמור לחוד את כל השורות שמכילות את הרצף מסוג A HREF="news.php3 למשל??? (אתם יכולים להתייחס לזה כאילו זה משתנה רגיל שדחפו לתוכו טקסט מתיבת טקסט רגילה אם זה עוזר..) המון

ולילה טוב

 

[זהר פלד]

אתה צריך לבנות פונקציה

שתחפש את השילוב

<a​

אחר כך תמצא את סגירת התג, ובתוכו תמצא את ה href... שים לב, שאם ה href מוקף בגרשיים אתה צריך לקחת את המחרוזת בין הגרשיים, אבל אם הוא לא, אתה צריך לקחת את המחרוזת עד הרווח הראשון. בניתי כבר דבר כזה ב java פעם... זה לא נורא מסובך. אבל שים לב שקישורים תצטרך להשלים לקישורים מלאים. בהצלחה.

 

[קיפוש]

זאת היתה הבעיה..

אבל קודם

בוקר טוב

א. איך אני מוציא את השורות האלה מהמשתנה... ב. איך אני מצליח להפוך אותם לקישור מלא - כבר יש לי רעיון שכרגע עלה במוחי REPLACE פשוט...

 

[זהר פלד]

לגבי א)

תנסה את הקוד הזה:

strHTML = "bla bla <a href=""http://myHomePage""> go home </a><br>"& vbCrLf &_ "bla lba afiohja <A HREF=nextPage.html> next </a><br>"& vbCrLf &_ "oi;dfvn o <A style=""text-decoration:none;"" href=prevPage.html id=""prev""> prev </a><br>"& vbCrLf &_ "zdf.b lab;ah f´aem" startLink = inStr(1,lCase(strHTML),"<a") stopLink = inStr(startLink,strHTML,">")+1 link = mid(strHTML,startLink,stopLink-startLink) Response.Write link​

לגבי ב), זה כבר יותר מסובך... בעקרון, אם אין לך http:// בלינק, אז הוא יחסי. ואז מתחיל הבלגאן, כי לינק יחסי יכול גם להיות ../../maPage.html ולך תדע מה שמות הספריות האלה...

 

[קיפוש]

לא הבנת אותי...

לגבי ב. אל חשש לא יהיו בעיות מסוג זה.. ולגבי א. אני צריך את כל השורה, אבל מסתבר שהרעיון שלך הרבה יותר טוב.. וברשותך כמה שאלות.. 1. איך אני מכניס את זה ללואה - או שאולי לבדוק עד שאורך המחרוזת 0 (אני פשוט נהנה לשאול ולענות לעצמי) 2. מה זה הפקודות

inStr lCase mid​

 

[זהר פלד]

אוקיי... אז ככה:

נתחיל מהשאלה השניה: inStr מחזירה את המיקום הראשון של תת מחרוזת בתוך מחרוזת, מהאינדקס שהיא מקבלת בהתחלה. lCase מקבלת מחרוזת ומחזירה אותה באותיות קטנות. mid מחזירה תת מחרוזת מתוך מחרוזת החל מאינדקס (זה הפרמטר השני) באורך legnth (שזה הפרמטר השלישי). תראה, אלו פקודות די בסיסיות... אם אתה רוצה לתכנת ASP, אתה חייב ללמוד את זה... אני מצרף לך כאן לינק ל MSDN, שבו מופיע פירוט של כל הפקודות, חלק מהן עם דוגמאות קוד. לגבי השאלה השניה - אם אתה רוצה להכניס את זה ללולאה, אתה צריך להתחכם טיפה..... נסה את הקוד הזה:

stopLink = 1 do startLink = inStr(stopLink,lCase(strHTML),"<a") if startLink>0 then stopLink = inStr(startLink,strHTML,">")+1 if stopLink > startLink then link = mid(strHTML,startLink,stopLink-startLink) else link="" end if else link="" end if Response.Write link & vbCrLf loop until cInt(startLink) = 0​

 

[זהר פלד]

אה... רגע רגע רגע...

יש טעות קטנה ולא משמעותית, אבל בכל זאת... במקום השורה

startLink = inStr(stopLink,lCase(strHTML),"<a")​

צריך להיות

startLink = inStr(stopLink,strHTML,"<a",1)​

ההשואה ככה בין כה מתעלמת מה case...

 

[זהר פלד]

וגם שכחתי את הלינק...

מה קורה לי היום?

 

[קיפוש]

קודם כל המון ../images/Emo51.gif

אני הולך לנסות את זה.. ועכשיו... משהו מכיר דרך להפוך עברית הפוכה (ויזואלית) לעברית נורמלית (לוגית)

 

[זהר פלד]

תותר על זה עכשיו. לא שווה את המאמץ

בשום פנים ואופן... מילא מעברית לוגית לויזואלית, זה לא בעיה - יש את הפונקציה של יניב... אבל בחזרה? לך תתמודד עם השבירה של השורות... סלח לי על הביטוי, אבל זה סיפור מהתחת של מזל (כמו ששכן שלי לשעבר היה אומר.) ניסיתי במשך קרוב לשבועיים למצוא דרך לעשות את זה כמו שצריך, ובסוף אפילו הבוס שלי התייאש...

 

[זהר פלד]

אה, ו... ../images/Emo50.gif

למה אין אייקון של ?

 

[קיפוש]

../images/Emo51.gif איזה מזל שאתה פה...

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

בכל מקרה! מכיון שאם הבוס שלך אני לא רוצה להסתבך.. אולי יש דרך לשאוב את הכל מפה? http://a7.org/hdl.php3 זה אוסף של הידיעות שכל אחת נראת כככה

@c=#7A7A7A bold=0 ref=http://www.a7.org/news.php3?id=7717 2/8/01 10:32 @c=#000000 bold=1 ref=http://www.a7.org/news.php3?id=7717 למערכת הבטחון יש ספק אם אכן נהרגו ילדים בהפצצת צה"ל על שכם שלשום​

יש רעיונות?

 

[זהר פלד]

כן... על אותו עיקרון...

רק שכאן אתה הולך מ php3?id ל @... יש עוד קצת זבל למחוק, אבל בגדול, זה אפשרי. כמובן, את הידיעה האחרונה אתה צריך גם לשאוב, מ php3?id עד הסוף.

 

[קיפוש]

לא הבנתי..

איך אני שואב את כל ה REF לחוד ואת הכותרת לחוד?

 

[קיפוש]

פשוט אין תו עצירה ברור ל REF

 

[זהר פלד]

תבדור את מה שיגאל אמר... בתור התחלה

 

[זהר פלד]

תבדוק, disלקט... ../images/Emo8.gif

 

[קיפוש]

אתה רוצה להרוג אותי.??!

זה מסווווובך

 

[זהר פלד]

חס וחלילה... וחוץ מזה, כמה מסובך זה

כבר יכול להיות? אגב, המחרוזת של אקפלורר 5.5 היא

Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)​

 

[קיפוש]

שאת זה אני תוקע איפה?