הפונקציה הופכת טקסט לתמונות של האותיות.
צריכה להיות ספרית letters עם הקבצים הבאים: קובץ GIF בעל השם blank.gif שמשמש לרווח
קבצי GIF עם שמות מ1 עד 27 כאשר א היא 1 ות היא 27, ואותיות סופיות באות לפני רגילות (ף=20, פ=21).
קבצי סימני פיסוק:
<![CDATA[n33.gif = !
n34.gif = "
n39.gif =
n40.gif = (
n41.gif = )
n42.gif = *
n43.gif = +
n44.gif = ,
n45.gif = -
n47.gif = /
n58.gif = :
n59.gif = ;
n61.gif = =
n63.gif = ?
n95.gif = _
]]>קבצי מספרים:
מתחילים באות n, כמו קבצי סימני הפיסוק, מ48 עד 57 כאשר 0=48 ו 9=57.
הערות:
- כדאי לשמור על גובה זהה לכל התמונות.
- כדאי לשמור על המיקום של האות בכל תמונה. אות ממוצעת כמו א תהיה באמצע התמונה. אות כמו ף תהיה מהמרכז ומטה. [לא לעשות את התמונה של ף יותר ארוכה אלא להשתמש בחלק התחתון שלה]. אותו דבר לגבי ל, שתתפוס עוד קצת מהחלק העליון.
- הפונקציה משתמשת בקוד הASCII של התווים, כאשר באותיות היא מפחיתה 223 ע"מ להגיע למספרים 1-27 ולא 224-250.
- כל האותיות בתמונות נכנסות לתוך טבלה וכל אות בתא אחר
<![CDATA[function writeInPic(text)
dim strNew, i
for i=1 to len(text)
select case asc(mid(text, i, 1))
case 32 רווח
strNew = strNew & "<td><img src=letters/blank.gif></td>"
case 33,40,41,42,43,44,45,58,59,61,63,95,34,39,48,49,50,51,52,53,54,55,56,57
סימנים שונים כמו סימן שאלה, קריאה נקודה וכו
strNew = strNew & "<td><img src=letters/n"&asc(mid(text, i, 1))&".gif></td>"
case else אות
strNew = strNew & "<td><img src=letters/"& asc(mid(text, i, 1))-223 & ".gif></td>"
end select
next
writeInPic = "<table border=0 cellPadding=0 cellSpacing=0><tr>" & strNew & "</tr></table>"
end function
]]>
להורדת קובץ ZIP עם התמונות, לחץ כאן
<%fileName = "designedText/designedText.asp"%>
בהצלחה!!
|
.png)
