ab.com コミュニティ

N88BASICモードではDOSプロンプト画面と挙動が異なり上書きされます。
データをPRINT文で表示した回数をカウントして適当な値でCLS命令で画面を一旦クリアする方法があります。

Dim Leng As Long
Dim alls As Long



'ウインドウ設定
#N88BASIC
SetWindowText(_PromptSys_hWnd, "File_Deleter")

Dim A As String

'本プログラム
do
	Color 7 ,-1
Print " 削除するファイルのパスを入力してください。   "
Print " 何も入力しない状態でENTERすると、終了します。"
Input " パスを入力 =  < ",A
Print " 入力されたパス = < ";A;" >"


alls = DeleteFile ( A & "" )
print " ~削除中"
If A = "" Then
    
    END

End If

If alls <> 0 Then
	Color 1 ,7
    print  " 成功しました。" 
    
 Else
Color 2 ,7
 print " 失敗しました。"

End If

print ""

loop 

[code]
Dim Leng As Long
Dim alls As Long



'ウインドウ設定
#N88BASIC
SetWindowText(_PromptSys_hWnd, "File_Deleter")

Dim A As String

'本プログラム
do
Color 7 ,-1
Print " 削除するファイルのパスを入力してください。 "
Print " 何も入力しない状態でENTERすると、終了します。"
Input " パスを入力 = < ",A
Print " 入力されたパス = < ";A;" >"


alls = DeleteFile ( A & "" )
print " ~削除中"
If A = "" Then

END

End If

If alls <> 0 Then
Color 1 ,7
print " 成功しました。"

Else
Color 2 ,7
print " 失敗しました。"

End If

print ""

loop

[/code]

上記のプログラムで、 削除処理をしたら最初に戻る の繰り返しが行われます。
そのためwindowの最低まで到達すると、文字の上に文字と、上書きされてしまいます。
上書きさせないためにはどうすればいいでしょうか?
[img]https://static.wixstatic.com/media/231d67_4cd5d5d95ef44b16b2481416dd4bf656~mv2.jpg/v1/fill/w_600,h_312,al_c,q_80,usm_0.66_1.00_0.01/231d67_4cd5d5d95ef44b16b2481416dd4bf656~mv2.jpg[/img]