HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決

解決

停止

削除要請


	2013 1228	名無し	一定文字数ごとに改行するにはどうしたいいですか？	3

名無し

2013/12/28(Sat) 21:49:01|NO.58948

5文字ごとに強制的に改行したいのですが、
pokeで書き込んでも半角・全角で処理を変えていないせいで文字化けしてしまいます。
どのようにしたら、全角・半角を見分けるのでしょうか？
使用する命令だけでも教えてください＞＜

この記事に返信する

名無し

2013/12/28(Sat) 21:50:00|NO.58949

主語が抜けていました。
正しくは「文字列を5文字ごとに強制的に改行したいのですが～」です。失礼しました。

fortunehill

2013/12/28(Sat) 22:43:38|NO.58951

/*ご参考*/



#uselib "kernel32.dll
#func    global lstrlenW "lstrlenW" wptr

           oo = "5文字ごとに強制的に改行したいのですが、pokeで書き込んでも半角..."
      sdim ss,strlen(oo)*3
   cnvstow ss,oo
   lstrlenW varptr(ss)   :rr = stat
      sdim nn,,rr :repeat rr :wpoke nn(cnt),0,wpeek(ss,cnt*2) :await :loop

           ss = ""
   foreach nn :ss+= cnvwtos(nn(cnt))
               if ((cnt+1)\5 == 0) {mes ss :ss=""} :await
   loop

名無し

2013/12/29(Sun) 11:19:07|NO.58967

fortunehillさん、わざわざソースコードまで書いていただきありがとうございます！
まさかたった14行のプログラムでできるとは・・・本当に、ありがとうございましたｍ（＿＿）ｍ