שלום,
אני מתסבך קצת בפיצול טקסט מתיבת טקסט.
אני מעוניין לקחת כיתוב ומספרים ולהכניסם למעך.
דוגמא:
בתיבת טקסט יהיה כתוב: שלום כיתה א'
המערך יראה כך:
a(0)= ש
a(1)=ל
a(2)=ו
a(3)=ם
a(4)=
a(5)=כ
a(6)=י
a(7)=ת
a(8)=ה
a(9)=
a(10)=א

מישהו יכול לעזור לי בזה?

--בברכה מושיקו--

הפונקציה מקבל מחרוזת ופרמטר.
לפי הפרמטר הזה היא חותכת את המחרוזת.

--בברכה מושיקו--

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

השתמשתי בright בתוך left וכך משכתי את האותיות שרציתי. תודה רבה.

דבר נוסף שאני לא מצליח לבצע:
יש לי רשימה ובה יש נתיבים של קבצי מדיה.
אני מעוניין להעביר את הרשימה לרשימת ההשמעה של windows media player.
השתמשתי בפקד של windows media player אך אני לא יודע איך יוצרים play list ומעבירים אליו את הרשימה.
מישהו יכול לעזור?

--בברכה מושיקו--

אלא אם כן תמצא פה מישהו שמכיר את הפקד הספציפי

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

אני נותן לך דוגמא לקוד שיצרתי לך, תוכל להמשתמש בו ולמה שאתה רוצה.

קוד:

 

 
function StringToArray(str_or_int)
	Dim l, arr, i
	l = len(str_or_int)
	redim arr(l-1)
	For i = 0 To l-1
arr(i) = mid(str_or_int,i+1,1)
	next
	StringToArray = arr
End function
Dim myarray
	myarray = StringToArray("שלום כיתה א'")
	Dim p
	For p = 0 To ubound(myarray)
Response.Write(myarray(p) & "<BR>")
	next

אתה יכול להסיר רווחים מהמחרוזת אם אתה רוצה במחרוזת באמצעות הפונקציה replace לפני שאתה ממיר את המחרוזת למערך.
דוגמא להסרת רווחים ממחרוזת

קוד:

replace(strText," ","")

אם משהו לא מובן תגיד.
שיהיה לך בהצלחה

בסופו של דבר השתמשתי בright left.

--בברכה מושיקו--