Hi,I have Japanese character in one of text field when i see in view level it show perfect but when i fetch this value by script and show in richtext filed then it is not appear properly so can any one help me how to show exact these Japanese char
Japanese->
空港・ホテルでのポーターはお付けしてございません。予めご了承下さいませ。
=チップの目安=
It show like this below->
==
Subject: Japanese char Problem
Please show the code that you use to “fetch this value by script and show in richtext field”.
-rich
Subject: Japanese char Problem
It is simple
TmpStr$ = xDocArr(Dy).Text(0) -> it Text filed which i get this value
TmpStr$=replacesubstring(TmpStr$, "<","<")
TmpStr$=replacesubstring(TmpStr$, ">",">")
TmpArr = Split(TmpStr$, Chr(13))
If Isarray(TmpArr) Then
For i = 0 To Ubound(TmpArr)
If textStr$ = "" Then
'textStr$ = "<BR>" & TmpArr(i)
textStr$ = TmpArr(i)
Else
textStr$ = textStr$ & "<BR>" & TmpArr(i)
End If
Next
Else
textStr$= TmpStr$
End If
BkgDetailsArr(bCntr) = BkgDetailsArr(bCntr) + textStr$ +“
”
Print #FileNum, “”
'Print #FileNum, "<Meta http-equiv='content-type'content='text/html;charset=Windows-31J'>"
Print #FileNum, "<Meta http-equiv='content-type'content='text/html;charset=UTF-8'>"
Print #FileNum, “”+ NewLine$ + infoS$ +“”
Subject: RE: Japanese char Problem
You said you were having problems with it in a rich text field. This code prints to a file. Those are very different operations. If you want to generate a UTF-8 file, though, you would be better off using NotesStream instead of a simple print, because NotesStream.open supports charset conversions.
Subject: RE: Japanese char Problem
if i want to show in Print steam then can you tell me what code should i added so that it show properly
Subject: Japanese char Problem
I Got this problem solution only put this below 2 lines and then it is ok thanks
Open FileName For Output As FileNum Charset = “UTF-8”
Print #FileNum, “<Meta http-equiv='content-type’content=‘text/html;charset=UTF-8’>”