【QBASIC互換!?】FreeBasic【GPL】

460 名前：渡辺真 [2011/11/11(金) 22:27:00.76 .net] >>439 WPrint関数のアイデア、すばらしいです。有難うございます。 ただ、Sub だと、引数がうまく取れないので、Function に書き換えてみました。 後ろに & が来ると、何故かうまく行きませんが、それ以外は、それなりに動いているようです。 マニュアルのサイトにも、借用させていただきました。ご了解ください。 makoto-watanabe.main.jp/freebasic/PgMidfunction.html#Expand Dim Japanese As WString * 100 Dim mojisu As Integer Declare Function Expand(s As WString) as WString Ptr Japanese="今日は、世界！ hello world!" Print *Expand(Japanese);Len(Japanese) Print *Expand(Japanese) & *Expand(Japanese) Print Len(Japanese) & *Expand(Japanese) & Len(Japanese) Sleep Function Expand(s As WString) as WString Ptr Dim buf As WString Ptr Dim i As Integer buf = Allocate((Len(s) * 2) * Len(WString)) *buf = s For i = 1 To Len(s) If Asc(Mid(s, i, 1)) > 256 Then *buf = *buf & Space(1) End If Next Expand = buf End Function

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef