投稿日	： 2004/02/10(Tue) 20:31
投稿者	： Lantern
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: テキストファイルの読書

こんにちは
仕様に合うか分かりませんが、１行目を固定長にしてもよければ
バイナリファイルで取り扱うこともできますよ。
C:\にhoge1.txtを作って
一行目に
"1                   "　１とスペース１９個、改行１回
と書いて実行します。

Private Sub Command1_Click()
    Dim ff As Integer
    Dim sfile As String
    Dim sBuf As String * 20
    Dim lBuf As Long
    Dim sWrite As String
    
    sfile$ = "C:\hoge1.txt"
    sWrite$ = Me.Text1.Text
    ff% = FreeFile()
    Open sfile$ For Binary As #ff%
        Get #ff%, , sBuf$
        lBuf& = CLng(Val(sBuf$)) + 1
        sBuf$ = CStr(lBuf&)
        Seek #ff%, 1
        Put #ff%, , sBuf$
        Seek #ff%, LOF(ff%)
        Put #ff%, , sWrite$ & vbCrLf
    Close #ff%
End Sub

★ - テキストファイルの読書 - bantou 02/07-14:50No.7924
• Re: テキストファイルの読書 - ak 02/07-16:19 No.7926
  • Re^2: テキストファイルの読書 - bantou 02/07-17:28 No.7927
    • Re^3: テキストファイルの読書 - ak 02/10-11:11 No.7946
      • Re^4: テキストファイルの読書 - bantou 02/10-13:58 No.7949
        • Re^5: テキストファイルの読書 - いちゆ 02/10-17:27 No.7956
          • とりあえず完了とします。 - bantou 02/12-08:51 No.7964
• Re: テキストファイルの読書 - Say 02/08-12:15 No.7929
  • Re^2: テキストファイルの読書 - bantou 02/09-08:22 No.7932
    • Re^3: テキストファイルの読書 - ak 02/10-11:41 No.7948
• Re: テキストファイルの読書 - Lantern 02/10-20:31 No.7959
  • とりあえず完了とします。 - bantou 02/12-08:55 No.7965