רוטר - ASP: לקיחת משתנה, ספירת תווים והוספת אנטר

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

"ASP: לקיחת משתנה, ספירת תווים והוספת אנטר"

גירסת הדפסה

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

אשכול מספר 8381

big bird
חבר מתאריך 18.3.02
1399 הודעות

18:50 01.01.04

ASP: לקיחת משתנה, ספירת תווים והוספת אנטר

ערכתי לאחרונה בתאריך 01.01.04 בשעה 19:27 בברכה, big bird

אני צריך לעשות דבר כזה:
אני מקבל את המשתנה

rs("name")
אחרי זה אני רוצה לספור כמה תווים של טקסט יש בתוכו,
ואם יש בו יותר מ 46 תווים, המשתנה יראה ככה:

rs("name") = rs("name") & "<br>" & ההמשך של המשתנה שנשאר אחרי ה 46 תווים
כלומר שיהיה אנטר אחרי 46 תווים, ואחרי האנטר ההמשך של המשתנה.

תודה

אופסי... לא ראיתי את האשכול.. עכשיו הוספתי את השאלה גם בו

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
אני חושב	Groove	01.01.04 18:57	1
עכשיו זה מראה רק עד 46 תווים	big bird	01.01.04 19:24	2
קבל מקווה שזה יעבוד	VbMaster	01.01.04 20:32	3
תודה :) עזרת לי :)	big bird	01.01.04 21:33	5
סבבבה תהנה אחי :)	VbMaster	01.01.04 22:36	6
לא יודע מה נתנו לך אבל :	Morishani	01.01.04 20:55	4

Groove
חבר מתאריך 6.8.11
219 הודעות

18:57 01.01.04

1. אני חושב
בתגובה להודעה מספר 0

dim strRecordlen
strRecordlen = rs("name")
if len(strRecordlen) > 46 then
dim strCount
strCount = 46
do while strCount < len(strRecordlen)
response.write left(strRecordlen, strCount) & "<br>"
strCount = strCount + 46
loop
else
response.write rs("name")
end if

לא נראה לי שיעבוד אבל לפחות ניסיתי

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

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

big bird
חבר מתאריך 18.3.02
1399 הודעות

19:24 01.01.04

2. עכשיו זה מראה רק עד 46 תווים
בתגובה להודעה מספר 1

אבל את מה שאח"כ לא..

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

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

VbMaster

20:32 01.01.04

3. קבל מקווה שזה יעבוד
בתגובה להודעה מספר 0

<%
Dim a,v
v = 46
a = rs("name")
if len(a) > v then
dim i,n
i = v
n = 0
Do Until i >= Len(a)
response.write Right(Left(a, i), v) & "<br>"
i = i + v
n = n + 1
Loop
n = n * v
response.write right(a, (Len(a) - n))
else
response.write a
end if
%>

לא בדקתי אבל אני חושב שזה עובד..................
כמובן ש v הוא המשתנה של התווים ואותו תוכל לשנות......
בהצלחה....

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

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

big bird
חבר מתאריך 18.3.02
1399 הודעות

21:33 01.01.04

5. תודה :) עזרת לי :)
בתגובה להודעה מספר 3

הפכתי את זה לפונקציה, וכל פעם שאני צריך שם אני קורא לה.

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

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

VbMaster

22:36 01.01.04

6. סבבבה תהנה אחי :)
בתגובה להודעה מספר 5

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

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

Morishani

20:55 01.01.04

4. לא יודע מה נתנו לך אבל :
בתגובה להודעה מספר 0

dim whattowrite
whattowrite = rs("name")
if len(whattowrite) > 46 then
whattowrite = whattowrite & "<br/>"
end if

אתה לא יכול לשנות משתנים שבתוך rs.
אוקיי ואז אתה עושה

response.write whattowrite
תבלה

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

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