- 562 名前：デフォルトの名無しさん mailto:sage [2022/09/11(日) 01:41:57.90 ID:yPB6Wd0g0.net]
- >>559
Option Explicit
Sub main()
Dim bs(4) As Byte
bs(0) = Asc("h")
bs(1) = Asc("e")
bs(2) = Asc("l")
bs(3) = Asc("l")
bs(4) = Asc("o")
Dim fn As Integer: fn = FreeFile
Dim fpath As String: fpath = "C:\指定のパス\output.txt"
Open fpath For Binary As #fn Len = 1
Dim i As Integer
For i = LBound(bs) To UBound(bs)
Put #fn, , bs(i)
Next i
Close #fn
End Sub
