• 締切済み

ファイルの中身の参照

テキストファイル（DB.txt）の中身を参照する事が出来ません。 テキストファイルの中身にAと書いてあったら、Aドライブにバックアップするようにするのが目的です。 X（変数）ドライブにバックアップするトコまではできてます。 Dim　X　As　String X　=　ここの部分がわからない。 よろしくお願いします。

みんなの回答

  • osamuy
  • ベストアンサー率42% (1231/2878)
回答No.1

これとか。

参考URL：
http://www.google.co.jp/search?q=cache:oqnVaXZUZnkC:keep-on.com/~excelyou/1999lng4/199908/99070250.txt+Access+VBA+open+f
  1. カテゴリ
  2. [技術者向] コンピューター
  3. データベース
  4. その他(データベース)

関連するQ&A

  • ExcelVBAマクロでワードファイル書き込み方法

    ExcelVBAマクロについて確認させてください。 下記のように読み込みたいWordファイルをフォームで指定して Wordファイルの内容を変数aに読み込ませてます。 変数Xにある任意の文字列を代入し、変数aでその変数Xが検索された場合は その検索された文字列全てを赤文字にして別の名前で保存という方法は可能でしょうか。 可能であればその方法をご教授下さい。 以上、よろしくお願いいたします。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Sub sample() Dim buf As String Dim a As String buf = Application.GetOpenFilename(FileFilter:="テキスト文書,*.txt", Title:="サンプル") 'フルパスも含めたファイル名をbufに代入 With CreateObject("Scripting.FileSystemObject").GetFile(buf).OpenAsTextStream '指定したファイルを開く a = .ReadAll 'テキスト文書の内容を文字列aに代入 .Close '指定したファイルを閉じる End With End Sub

  • ファイルへの書き込み

    いままでPrintメソッドを使って書き込みしていました。 ちょっと志向を変えてオブジェクト（？）をつかってプログラミングしています。 ファイルの書き込みでつまづいたので教えてください。 真ん中くらいに質問文があります Dim objFileSystem As Object Dim objFile As Object Dim strFileName As String Dim strBuff As String ' 読み込むファイル名 strFileName = "Readme.txt" ' FileSystemObjectオブジェクトへの参照 Set objFileSystem = CreateObject("Scripting.FileSystemObject") ' ファイルを開く Set objFile = objFileSystem.OpenTextFile(strFileName) ' ファイルの最後に達するまでループ strBuff = strBuff + naiyo.Text 　　'ここで質問。この書き方だとファイルモードが不正とエラーが出ます。 　　'この部分どう書けばよいのでしょうか？ objFile.writeline (strBuff) ' ファイルを閉じる objFile.Close ' オブジェクトを解放 Set objFileSystem = Nothing Set objFile = Nothing オブジェクト変数（というのでしょうか(^^ゞ）を使ったファイルの書き込み方教えてください。

  • VBA ファイル名の変更方法

    nameというファイル名を、testという「String型変数」が保持している文字列に変更させたいと思っています。 こういう場合には、どのような記載すればよいのでしょうか？ (As以降の書き方がわかりません) Dim test as String Name ("C:\name.txt") As ("C\「test変数が保持している文字列」.txt")

  • ExcelVBAマクロでワードファイル読み込み方法

    ExcelVBAマクロについて確認させてください。 下記のように読み込みたいファイルをフォームで指定して それを変数aに読み込ませています。 ですが、この方法ではテキスト文書しか読み込みが出来ないようです。 ワードファイルも読み込むように設定したいのですが可能でしょうか？ 可能でしたらその方法をご教授いただけますでしょうか。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Sub sample() Dim buf As String Dim a As String buf = Application.GetOpenFilename(FileFilter:="テキスト文書,*.txt", Title:="サンプル") 'フルパスも含めたファイル名をbufに代入 With CreateObject("Scripting.FileSystemObject").GetFile(buf).OpenAsTextStream '指定したファイルを開く a = .ReadAll 'テキスト文書の内容を文字列aに代入 .Close '指定したファイルを閉じる End With End Sub

  • テキストファイルの中身について

    あるフォルダしたのテキストファイルとそのファルダしたのフォルダ中のテキストファイルについて、 例えば、”日本”と言う文字が有ったら、そのテキストファイル名を表示するようなの機能を実現したいです。 何を使ったら、いいですか？ サンプルが欲しいです。 教えてください！お願いします。 ーーーーーーーーーーーーー temp-------a.txt |------b.txt |------temp1 |--------a1.txt |--------b1.txt 　　　　　　… などなど、 テキストファイルの中身に、”日本”という文字が存在したら、そのテキストファイル名を出力 ーーーーーーーーーーーーー

  • (VB複数htmファイルからのテキストデータの抽出

    フォルダに入った複数のhtmファイルからテキストデータだけを抽出することを考えています。 ExcelVBAで下記のように記載しましたが、テキストだけではなく,htmlタグもコピーされてしまいます。 どのように修正すればよいでしょうか。 どなたか教えて頂けないでしょうか。 Sub ConvertHTMLtoTXT() Dim htmlFilePath As String Dim txtFilePath As String Dim htmlContent As String Dim txtContent As String ' HTMLファイルのパスを指定する htmlFilePath = "F:\test\0000AC4A.htm" ' TXTファイルのパスを指定する txtFilePath = "F:\test\0000AC4A.txt" ' HTMLファイルを開く Open htmlFilePath For Input As #1 ' HTMLファイルの内容を読み込む htmlContent = Input$(LOF(1), #1) ' HTMLファイルを閉じる Close #1 ' HTMLタグを除去してテキストデータを抽出する txtContent = RemoveHTMLTags(htmlContent) ' TXTファイルにテキストデータを書き込む Open txtFilePath For Output As #2 Print #2, txtContent Close #2 MsgBox "HTMLファイルがテキストファイルに変換されました。" End Sub Function RemoveHTMLTags(htmlText As String) As String ' 正規表現を使用してHTMLタグを除去する Dim regEx As Object Set regEx = CreateObject("VBScript.RegExp") ' HTMLタグを検索するパターン regEx.Pattern = "<[^>]+>" ' HTMLタグを除去する RemoveHTMLTags = regEx.Replace(htmlText, "") ' 正規表現オブジェクトを解放する Set regEx = Nothing End Function

  • VB　Input#でstringを読込む時の区切り

    お世話になります。 VBのInput#でテキストファイルの中の単語をString型変数に読み込むときの、1項目の区切りを教えてください。 たとえば、テキストファイルsample.txtの中身が 1　aaa　bbbb であったとします。 dim i1 as integer dim s1(2) as string に対して i1=1 s1(0)="aaa" s1(1)="bbbb" となるようにしたいのですが、 open "sample.txt" for input as #1 input #1,i1 input #1,s1(0) input #1,s1(1) で読み込もうとすると、 s1(0)="aaa bbb" のように、空白も文字列の一部とみなされて切り替えてくれません。 区切りを空白から改行にして、テキストファイルの中身を 1　aaa bbb のようにすれば、一応は思ったとおりに動いてくれますが、これはこれでテキストの見栄えが悪いので、最終の手段として。 上記の例は簡単にしていますが、本当は同じような読み込む内容を何行か書いており できたら読み込むグループは1行にまとめたいのですが、 何か方法はありませんでしょうか？

  • EXCEL2007のVBAを使って、テキストファイルを読み込んで別のテ

    EXCEL2007のVBAを使って、テキストファイルを読み込んで別のテキストファイルを作って書き込むというコードを書きましたが、新しく出来たテキストファイルの末尾に、もともとのファイルには無かったスペースが追加されてしまいます。 原因と対策を教えて頂きたいです。 ------------------------------------------------------- Dim FileName1 As String Dim FileName2 As String Dim FileNumber1 As Integer Dim FileNumber2 As Integer Dim Data As String FileName1 = Application.GetOpenFilename("Text Files (*.txt), *.txt") FileName2 = Application.GetSaveAsFilename(, "Text Files (*.txt), *.txt") Data = Space(FileLen(FileName1)) FileNumber1 = FreeFile Open FileName1 For Binary As #FileNumber1 Get #FileNumber1, , Data Close #FileNumber1 'この間に"Data"内容を処理するコードを入れる予定 FileNumber2 = FreeFile Open FileName2 For Binary As #FileNumber2 Put #FileNumber2, , Data Close #FileNumber2 ------------------------------------------------------- このコードで1284バイトのテキストを読み込ませると末尾にスペースが追加されて1918バイトになってしまいました。 "Data"の内容を表示させてもスペースはなく、Len関数で大きさを調べても1284バイトです。

  • EXCELで外部ファイルを参照したい

    EXCELで外部のテキストファイルを相対アドレスで参照したいのですが、マクロでないとできないのでしょうか。 たとえば、 他のファイルを参照するのは、「データ」→「外部データの取り込み」でできるのですが、特定のアドレスかファイル（絶対アドレス）しかできません。 （例えば同じフォルダ内にあるa.txtを参照したいときは、./a.txtみたいに。） どなたかわかる方、教えてください。

  • ファイル名がテキストボックスにうまく表示できない

    お世話になります。 filelistboxで選択したファイル名を選択した順に テキストボックスに表示させたいのですが、ファイル名の 後に改行コードを入れても改行して表示してくれません。 何が原因なんでしょうか？よろしく御教授願います。 例　aaa.txtを選択、テキストボックスに表示させ、 その後bbb.txtを選択するとテキストボックスの表示が ”aaa.txt‥bbb.txt”となる --------- aaa.txt（改行） bbb.txt --------- と表示したい。 （コード） Dim fname As String Private Sub File1_Click() fname = Dir1.Path & "\" & File1.FileName End Sub Private Sub Command3_Click() Call macappend End Sub Private Sub macappend() 'text1に選択マクロを追加 　　　Dim macbuff1 As String 　　　Dim macbuff2 As String 　　　macbuff2 = Text1.Text 　　　macbuff1 = fname + Chr(13) + Chr(11) 　　　macbuff2 = macbuff2 + macbuff1 　　　Text1.Text = macbuff2 End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する