שלום,

אני משתמש באובייקט Xmlhttp (צד שרת) על מנת לשלוף מידע.

אני כרגע עובד על שדרוג המערכת ליוניקוד UTF-8 (בעבר windows 1255).

עד היום, השתמשתי באובייקט XMLHTTP דרך דף windows 1255 ע"מ לשלוף טקסט מדף windows 1255 אחר.

כיום, נוצר הצורך שאני אשלוף נתונים באמצעות Xmlhttp דרך דף UTF-8, אך הנתונים שיישלפו יישלפו מתוך דף windows 1255.

הנתונים הסופיים צריכים להיות מקודדים ב-UTF-8 על מנת שאוכל להכניס אותם לבסיס הנתונים שלי (שמקודד ב-UTF-8)

כמו שאתם מבינים, בעיה.

למישהו יש מושג איך עושים את זה? פונקציה ששולפת את הסטרינג ואז מקדדת מחדש ל-UTF8?

אשמח לפתרון ולעזרה.

אולי זה יכול לעזור:
http://bytes.com/forum/thread56960.html

בברכה,

Uninstall

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.stopie6.org/img/badges/120_60black.gif]

לא. לצערי אין שם מידע.

אתה לא יכול להשתמש ב- REPLACE? אם כן, פשוט כתוב את כל האותיות, ותמיר אותן ל-UTF-8.
ישנה עוד אופציה, לבנות אלגוריתם ע"פ מספר האות. משהוא עם ASCW. אבדוק לך את זה יותר מאוחר...

אשמח לעוד עזרה בנושא...

יש 2 דרכים להמרת UTF-8. אני לא מכיר משהוא מובנה שעושה את זה, אבל הנה 2 פונקציות שאני משתמש בהם. אחת בשיטת ה-Replace, והשניה עוברת תו תו.
כל מה שאתה צריך לעשות, זה לבחור באחת הפונקציות, לשים אותם בדף שלך, ולקרוא להן.

הקריאה ל-2 הפונקציות מתבצעת באותה דרך!. ההבדל הוא האלגוריתם.

דוגמא לקריאה:

קוד:

dim StrHebText
StrHebText = "שלום!"
StrHebText = HebToUtf(StrHebText)
Response.Write(StrHebText)

הנה עוד דוגמא(רק לשם ההמחשה):

קוד:

Response.Write(HebToUtf("שלום!"))

הפונקציות:
1. הפונקציה הזו, יותר איטית. אבל עם 2 יתרונות.
א. מקשה על הזרקות.
ב. אם אתה רוצה להמיר ל-UTF-8 עוד שפות, אתה צריך לשתמש בה.

קוד:

 
 
function HebToUtf(Str)
dim X
dim TempText
for X = 1 to len(Str)
TempText = mid(Str,x,1)
HebToUtf = HebToUtf & ("&#" & ascw(TempText) & ";")
next
end function
 

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

קוד:

 
function HebToUtf(strInputEntry)
strInputEntry = Replace(strInputEntry, "א", "א", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ב", "ב", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ג", "ג", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ד", "ד", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ה", "ה", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ו", "ו", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ז", "ז", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ח", "ח", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ט", "ט", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "י", "י", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "כ", "כ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ל", "ל", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "מ", "מ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "נ", "נ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ס", "ס", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ע", "ע", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "פ", "פ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "צ", "צ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ק", "ק", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ר", "ר", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ש", "ש", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ת", "ת", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ם", "ם", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ן", "ן", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ף", "ף", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ך", "ך", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ץ", "ץ", 1, -1, 0)
HebToUtf=strInputEntry
end function

שים לב!.
אני הייתי ממליץ לך לא לשים אותם בדף שלך, אלא לשים אותם בדף Public שכולם קוראים לו עם include.
כך אם תצתרך לשנות משהוא, לא תצתרך לשנות בכל דף ודף.

עריכה:
מסיבה לא ברורה, הטאבים לא מופיעים. וגם ה-UTF-8 בפונקציה 2... מצ"ב גם בקבצים:
פונקציה1:
https://2008-uploaded.fresh.co.il/2...06/80831508.asp

פונקציה2:

https://2008-uploaded.fresh.co.il/2...06/31632859.asp