Ｐａｇｅ 896 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼テキストファイルの操作 bishop 03/3/17(月) 22:13 ┣Re:テキストファイルの操作 Jaka 03/3/18(火) 9:35 ┃ ┗削除する方法（ただしDOSコマンドで・・・） こう 03/3/18(火) 12:48 ┣Re:テキストファイルの操作 ポンタ 03/3/18(火) 13:18 ┗ありがとうざいました bishop 03/3/19(水) 14:42 ─────────────────────────────────────── ■題名 ： テキストファイルの操作 ■名前 ： bishop ■日付 ： 03/3/17(月) 22:13 -------------------------------------------------------------------------
| テキストファイルに書き込んでいるデータで、 最初の行を削除したいのですが、どのように したら良いのでしょうか？ どなたか教えていただけませんでしょうか？ |
| おはようございます。 削除する方法は解りません。 んで、作りなおす方法ですけど。 過去ログをちょっといじってみました。 If文で分岐させても良かったんだけど．．。 Sub rtrt() Dim DT() As String, FL As String, N As Long, i As Long Dim DD As String N = 0 FL = "作ったテキストファイルフルパス名" Open FL For Input As #1 Line Input #1, DD Do Until EOF(1) N = N + 1 ReDim Preserve DT(1 To N) Line Input #1, DT(N) Loop Close #1 Open FL For Output As #1 For i = 1 To N Print #1, DT(i) Next Close #1 Erase DT End Sub |
| bishop さん、Jaka さん こんにちわ。 最近VBA以外の紹介ばっかりしてますが、「VBA以外でもこんな方法ありよ」 の意味で、VBAを否定している訳ではございません。^_^; と言い訳をしておいて...またDOSの紹介です。 EDLINで先頭１行を削除します。 DOS画面で「echo 1d e | edlin ﾌｧｲﾙ名」 |
| 横から失礼します。 自分自身の勉強ため、VBスクリプトで書いてみました。 標準モジュールに貼り付け、 FileName = "C:\My Documents\MyText.TXT" を適切に書き直して、お試しください。 Sub test() Dim FileName As String Dim objFs As Object, objText As Object Dim MyText As String '環境に合わせて書き直してください FileName = "C:\My Documents\MyText.TXT" Set objFs = CreateObject("Scripting.FileSystemObject") Set objText = objFs.OpenTextFile(FileName) objText.SkipLine MyText = objText.ReadAll objText.Close Set objText = objFs.OpenTextFile(FileName, 2) objText.Write (MyText) objText.Close End Sub |
| Jakaさん、こうさん、ポンタさん、ご丁寧に有難うございました。 お礼が遅れました。参考にしてやってみます。 ▼bishop さん： >テキストファイルに書き込んでいるデータで、 >最初の行を削除したいのですが、どのように >したら良いのでしょうか？ >どなたか教えていただけませんでしょうか？ |