Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29732 / 76732 ←次へ | 前へ→

【52275】Re:OpenAsTextStreamで、テキストファイルの特定の文字列に文字を追加したい
質問  moto  - 07/11/4(日) 21:22 -

引用なし
パスワード
   ▼ichinose さん:
こんばんは。
朝早くからアドバイスを頂きまして有難うございます。

さっそく、アドバイスを頂いた内容を参考にして、
ヘルプ等で調べているのですが、私にはまだまだ内容が難しく
理解することができません。また、お教え頂いた内容をどのように
下記のコードに反映させればいいのか・・・。そのあたりのことも
悩んでいる状況です。

本当に情けないのですが、もう少しアドバイスを頂けないでしょうか。
宜しくお願い致します。

-------------------------------------------------------------------------

Sub P_huka()

Dim fso, file
Dim tempFile, outFile, readFile    
'一時ファイルの名前、作業ファイル、元のファイル
Dim strLine, Flag, fileName, key1, key2, addStr
'読み込んだデータ、カーソルの位置、ファイル名、キーのはじめ、挿入場所キー、挿入データ

fileName = "sample.sql"     '元の名前
key1 = "CREATE TABLE"      'キーのはじめ
key2 = Chr(34) & " ("      '挿入場所キー
addStr = "P"          '挿入データ

Set fso = CreateObject("Scripting.FileSystemObject")
tempFile = fso.GetTempName

Set outFile = fso.CreateTextFile("C:\date\tempFile") '作業ファイルの作成
Set readFile = fso.OpenTextFile("C:\date\sample.sql", 1)
Flag = False

Do Until readFile.AtEndOfStream  
'カーソルがファイルの末尾にあるときは、真(True)を返す
'それ以外のときは、偽(False)を返す。値の取得のみ可

strLine = readFile.ReadLine     '1行読み出し

  If key1 = strLine Then     'key1があったら
    Flag = True
  End If

  If Flag And key2 = strLine Then  'key2があったら
    outFile.WriteLine (addStr)
  End If

outFile.WriteLine (strLine)

Debug.Print strLine
Loop

readFile.Close
outFile.Close

'fso DeleteFile ("C:\date\sample.sql")

Set file = fso.GetFile("C:\date\sample.sql")
file.Name = fileName & ".bak"   '元のファイル名に.bakをつけてバックアップ

Set file = fso.GetFile("C:\date\tempFile")
file.Name = fileName        '作業ファイルの名前を変更

End Sub

-------------------------------------------------------------------------

0 hits

【52163】OpenAsTextStreamで、テキストファイルの特定の文字列に文字を追加したい moto 07/10/26(金) 0:04 質問
【52164】Re:OpenAsTextStreamで、テキストファイル... ichinose 07/10/26(金) 8:29 発言
【52182】Re:OpenAsTextStreamで、テキストファイル... moto 07/10/26(金) 22:42 お礼
【52233】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/2(金) 0:50 質問
【52235】Re:OpenAsTextStreamで、テキストファイル... ichinose 07/11/2(金) 8:36 発言
【52275】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/4(日) 21:22 質問
【52278】Re:OpenAsTextStreamで、テキストファイル... neptune 07/11/4(日) 23:04 発言
【52280】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/5(月) 0:07 質問
【52283】Re:OpenAsTextStreamで、テキストファイル... りん 07/11/5(月) 1:15 発言
【52290】Re:OpenAsTextStreamで、テキストファイル... ichinose 07/11/5(月) 19:42 発言
【52301】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/7(水) 0:27 お礼
【52314】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/8(木) 0:20 お礼

29732 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free