|
▼くりぃむ さん:
テキストファイルは、どのような形式にしろ、
改行コードを含むひと続きの文字列と考えることができます。
なので、テキストファイルの編集は、
基本的には、
文字列操作です。
たとえば、
> 「入力したデータをファイルの最終行に追記する」という作業
> 〜 For Append
は、文字列操作でいえば、
Dim SS As String
SS = 現在の文字列
SS = SS & 追加する文字列
に相当します。
同じ道理で、
> 「指定した行から追記する」
は、文字列操作でいえば、
Dim SS As String
Dim InsSS As String
SS = "ABC↓DDD↓GGGGGG↓XXX↓" '現在の文字列
InsSS = "KKK↓" '追加する文字列
SS = Left$(SS,8) & InsSS & Mid$(SS,(+1)
という操作に相当します。
▼テキストファイルの3行目に追加後
"ABC"↓
"DDD"↓
"KKK"↓
"GGGGGG"↓
"XXX"↓ (↓は改行コード)
文字列の途中に別の文字列を挿入したり、
テキストファイルの行の途中に別のテキストを挿入したり
するときには、「どこに」挿入するのかが特定できていないと
いけないということです。
それが分かっていれば、
元のテキストファイルをOpenして(#o)
仮のテキストファイル(#n)に、
1. 挿入したい行まで
Line Input #o,で読み込んでは別ファイルにPrint #n, を繰り返し、
2. 挿入したい行で 挿入テキストを 別ファイルに Print #n,
3. 残りの行を 別ファイルにPrint #n,
4. 元ファイルを KILL して、別ファイルの名前を元ファイル名に
Rename
するという手順になります。
|
|