- 451 名前：デフォルトの名無しさん mailto:sage [2011/11/09(水) 01:28:41.00 .net]
- '&とか;は使えないけどとりあえずWStringを最後まで表示するWPrint関数をでっちあげ
'ちなみに自動で改行しないので注意
sub WPrint(s As WString)
dim buf as WString Ptr
dim i as integer
buf = Allocate((Len(s) + 2) * Len(WString))
*buf = s + " " 'これをしないと最後の文字列が2バイト文字の場合にうまく表示されない
for i = 1 to Len(*buf) - 1
if asc(mid(*buf, i, 2)) < 256 then
print mid(*buf, i, 1);
else
print mid(*buf, i, 2);
end if
next
end sub
Dim Japanese As WString * 200
Japanese = "今日は、世界！"
print Japanese
WPrint Japanese
|
 |
