by nkenkou » 2006年5月03日(水) 23:50
暇人13世氏のソースを変更。
サイズも変更できるようにしました。
#N88BASIC
Dim A As Long
Dim B As String
Dim C As Long
Dim I As Long
Dim File As String
Dim Kakutyosi As String
Dim File2 As String
Dim Size As DWord
Dim Dummy As String
Print "ダミーデータ作成ソフト1.0"
Print "このソフトはGPLライセンスに基づいて配布されています。"
Print ""
Input "ファイルの拡張子を入力してください。(三文字程度で。)",Kakutyosi
Input "ファイル名を入力してください。",File
Input "ファイルの出力数を入力してください。",A
Input "作成サイズをバイト単位で入力してください。",Size
Print "出力開始します。場合によっては数分かかるかもしれません。"
For I=0 To A-1
File2=File+Str$(I)+"."+Kakutyosi
Open File2 As #1
Field #1,1
Put #1,Size,Dummy
Close #1
Next I
Print "操作が完了しました。"
Sleep(1000)
ExitProcess(0)
プロンプトだと日本語のファイル名が使えないのでN88BASICのほうがよいと思います。
暇人13世氏のソースを変更。
サイズも変更できるようにしました。
#N88BASIC
Dim A As Long
Dim B As String
Dim C As Long
Dim I As Long
Dim File As String
Dim Kakutyosi As String
Dim File2 As String
Dim Size As DWord
Dim Dummy As String
Print "ダミーデータ作成ソフト1.0"
Print "このソフトはGPLライセンスに基づいて配布されています。"
Print ""
Input "ファイルの拡張子を入力してください。(三文字程度で。)",Kakutyosi
Input "ファイル名を入力してください。",File
Input "ファイルの出力数を入力してください。",A
Input "作成サイズをバイト単位で入力してください。",Size
Print "出力開始します。場合によっては数分かかるかもしれません。"
For I=0 To A-1
File2=File+Str$(I)+"."+Kakutyosi
Open File2 As #1
Field #1,1
Put #1,Size,Dummy
Close #1
Next I
Print "操作が完了しました。"
Sleep(1000)
ExitProcess(0)
プロンプトだと日本語のファイル名が使えないのでN88BASICのほうがよいと思います。