トップページ > パソコンのお館 > N88互換BASIC for Windows95 手引き書 > INPUTの関係 (現在位置)

N88互換BASIC for Windows95(手引き書) - INPUT

　(2004/ 1/20 解決途上中→本項の後半部に)

---

1900 PRINT : INPUT "住所を入力して下さい"; E$
2000 COLOR 6: PRINT : PRINT E$ : COLOR 7
2010 INPUT "上記で良ければリターンを。　訂正するなら再入力をして下さい。"; Q$
2020 IF Q$<>"" THEN E$=Q$: goto 2000
2030 PRINT
2040 PRINT "本当は以降も続きますが、これはテスト用のプログラムなので、これにて終了です。"

　例えば顧客管理や経理などなどでは、一人毎に、または伝票１枚ごとに入力を求められます。ところがせっかく入力したデーターに、一部の間違いがあるというケースは少なくありません。
　それをゼロから再入力したのでは、プログラムとしては使い勝手が悪く実用性がありません。
　そこでデーターの部分訂正をすることになります。
　上記はそのデーター入力と訂正する部分だけを、抜き出したプログラムなのです。

　下記は、それをさらに単純化したプログラムです。

2000 PRINT E$
2010 INPUT Q$
2020 IF Q$<>"" THEN E$=Q$
　もしQ$がヌルなら(＝データー入力が無ければ)、 E$はそのままで、
　もしQ$としてデーター入力があれば、そのQ$が新 E$になります。というプログラムです。

　例えば上記のようなプログラムで、データー E$の一部を訂正するケースでは、
　　誤って入力した E$ の内容　→　"〒969-3102 福島県耶麻郡猪苗代町字葉山"
　　　　　　↓↓
　　　　　　↓↓　上記では番地7105が抜けていたので、以下のように追加したいとします。
　　　　　　↓↓
　　正しく入力したい E$ の内容　→　"〒969-3102 福島県耶麻郡猪苗代町字葉山7105"

　DOS-BASICでは、カーソルを一行上に上げて、表示されている E$の一部を直すだけで済みます。すなわち、データー E$の最後尾にカーソルを置き、7105のみを入力して、リターン(＝Enter)で済みます。
　しかし、テキスト画面を持たないN88互換BASICでは、グラフィック画面に E$を表示するため、同じ方法が出来ません。
　即ち、一部訂正の場合でも、 E$の新データー全て「〒969-3102 福島県耶麻郡猪苗代町字****」を打ち込む必要があるのです。

　今現在はこの問題で悩んでいます。実務で使うプログラムとしては、この使い勝手はたいへんに重要な問題なのです。
　どなたか良いアィディアをお持ちの方は、教えていただければ幸いです。
へ、お願い申し上げます。

Top　　88Menu

---

　上記のような悩みを１年間近く載せていたところ、
　このような嬉しいメールを、2004/ 1/17にM．YAMASAKIさんから頂戴しました。私のWindows XPでもテストしたところ、正常に動作します。
　　私の本業はスキースクールなので、冬の今は大戦争中です。雪が消える季節になり時間が出来たら、少し変えて利用させて頂くつもりでいます。これで長い間の悩みが消え、使い勝手の良いプログラムに直せるものと喜んでいます。

　制作者の許可を得ましたので、「入力サブルーチン」のソースプログラムを公開致します。

• 入力サブルーチンNKINPUT.BASを見る。
  　ちょくせつ見るために、名前をNKINPUT_BAS.txtに変えてあります。これを「　ファイル　→　名前を付けて保存」する場合は、NKINPUT.BASに変えて下さい。そのまま使える実行プログラムになります。
  
  
• 入力サブルーチンNKINPUT.BASをダウンロードする。
  　こちらは、そのままNKINPUT.BASがダウンロードできます。しかし「種類：不明なファイルの種類」とセキュリティーが警告しますが、無視して下さい。
  
  
• INPUTそのものの説明を見る。
  

Top　　88Menu

トップページ > パソコンのお館 > N88互換BASIC for Windows95 手引き書 > INPUTの関係 (現在位置)