今、unicodeを使った暗号機(のつもり)を作っています。
暗号化まではよいのですが複数行の場合、
任意のテキストをロード→変換→セーブ
で、この次すぐに「解析」をすれば解析できるのですが、プログラムを一旦終了し、
再度起動→ロード→解析
をすると一行目までしか表示できません。
コードは
sdim moto,1000 sdim memo,1000 notesel memo pos 0,0 mesbox memo,340,400,1,-1 objsize 100,25 pos 0,420 button gosub"unicode暗号化",*an1 pos 100,420 button gosub"unicode解析",*an2 pos 200,420 button gosub"テキストロード",*load pos 300,420 button gosub"テキストセーブ",*save *top stop *an1 cnvstow memo,""+memo+"" objprm 0,memo return *an2 memo=cnvwtos(memo) objprm 0,memo return *load dialog"txt",16 if stat=0:stop notesel memo noteload refstr,-1 objprm 0,memo return *save dialog "txt",17,"テキストファイル" if stat=0 : cl=1:goto *top fname = refstr exname=getpath(fname,2) if exname="" : fname+=".txt" notesel memo notesave fname objprm 0,memo return
です。
どなたかご存知の方がおりましたらご教授願います。