06-02-2009, 10:51
|
|
|
חבר מתאריך: 07.10.06
הודעות: 1,795
|
|
בשביל לקרוא קובץ, תוכל להשתמש באובייקט. למשל:
קוד:
Dim ReadFromFile As String
Dim p, ps
Set ps = CreateObject("scripting.FileSystemObject")
Set p = ps.OpenTextFile("c:\aaa.txt")
ReadFromFile = (p.readAll)
p.Close
Set p = Nothing
Set ps = Nothing
כדי לחפש טקסט בתוך סטרינג תוכל להשתמש ב-instr:
קוד:
MsgBox InStr(1, "All Text", "T")
הקוד מחפש לך את המיקום של המחרוזת לחיפוש (במיקרה זה : "T") והוא מחזיר לך אותו. במיקרה זה הוא יחזיר 5. הפרמטר הראשון הוא מהיכן להתחיל לחפש, השני הוא כל הסטרינג והשלישי הוא מה לחפש.
וכדי לקבל רק חלק מסטרינג תוכל להשתמש ב-MID:
קוד:
MsgBox Mid("All Text", 5, 2)
הפרמתר הראשון הוא כל הסטרינג, השני הוא מאיזה תו להתחיל והשלישי הוא כמה תווים להחזיר.
בהצלחה
|