No.8ベストアンサー
- 回答日時:
喜んでいただけて嬉しいのですが、小言を少し・・・
「意味不明です」なのであれば、私が張ったソースは使わない方がいいです。
何処ででもそうなのですが、教えてもらったソースや、情報が理解できないのであれば、理解するように努力して、理解できてから使うようにした方がいいです。
やろうと思えば、システムを壊す事も可能だということを頭の片隅にでも置いておいて欲しいです。
これからも何か開発をしようと思うなら大切な事だと思います。
で、理解してもらう為に以下のキーワードをヘルプなりで調べて理解してください。
そうすれば、自ずとsatoshi777さんのやりたいことのソースが出来上がって来ると思います。
===キーワード===
Open
FreeFile
Line Input
Replace
Scripting.FileSystemObject
================
小うるさい事を言ってすいません。
頑張ってください。
おはようございます。冷静になって、一つずつデバックで見ていって、一行ずつ説明書いていって、調べていったら少しずつわかってきました。僕なりにアレンジもして、いくつかの変更にも成功しました<(_ _)>小うるさい事とは思ってません、ありがたい助言として感謝しています<(_ _)>また何かあったら教えてください<(_ _)>
No.7
- 回答日時:
エラーが出るとか、できません言う前に
シーケンシャルファイルは、変更は、たとえ同じ文字数で置き換える場合でも、文字数が増えるならなおさら、別のファイルを1から(同じとこ(変更ないレコード)もコピーして作成)作るんだということを勉強すべきなんです。
各レコードが同じ長さで、項目構成や項目データ長が同じ固定長の場合は書き換えるというモードがあります。
以上がわれわれに許された方法ですが、プロになれば、ディスクを自分で自由に書ける(フィジカルにRead,Write)ようですが、質問者には
無縁の世界です。
回答の1-4はDOSBasic時代からあるステートメントが中心で使われており、そのころの方が上記のようなことを勉強する機会が多かったが
今は便利なところから入っちゃうので、かえって難しい。
おはようございます。おっしゃるとおりです<(_ _)>まずいろんなルールを理解して基礎をしっかり勉強したいと思います<(_ _)>助言ありがとうございます<(_ _)>
No.5
- 回答日時:
ファイルサイズにもよるかもしれませんが、それほどサイズが大きくないキストファイルなら、
・全部読む
・内容を編集する
・編集内容で上書きする
という方法が簡単だと思います。
Replace関数で、全行を置換をするのであれば、一行単位で編集を行うより効率的です。
Sub Test()
Dim strWk As String
'ファイル読み
Call FileRead("C:\test.txt", strWk)
'-----------------------------
'編集 "A" → ";A"
strWk = Replace(strWk, "A", ";A")
'行単位で編集を行いたいのであれば、Split(strWk,vbCrLf)として行分割
'Split関数は履歴で調べましょう
'-----------------------------
'ファイル書き
Call FileWrite("C:\test.txt", strWk)
End Sub
'ファイル読み
Private Sub FileRead(ByVal p_ファイル名 As String, ByRef p_内容 As String)
Dim objTst As Object 'TextStream
Dim strWk As String
Set objTst = CreateObject("Scripting.FileSystemObject").OpenTextFile(p_ファイル名, ForReading)
p_内容 = objTst.ReadAll
objTst.Close
Set objTst = Nothing
End Sub
'ファイル書き
Private Sub FileWrite(ByVal p_ファイル名 As String, ByVal p_内容 As String, Optional p_上書き As Boolean = True)
Dim objTst As Object 'TextStream
Set objTst = CreateObject("Scripting.FileSystemObject").OpenTextFile(p_ファイル名, ForWriting, p_上書き)
objTst.Write p_内容
objTst.Close
Set objTst = Nothing
End Sub
おはようございます。お久しぶりです。またまた助けられました<(_ _)>一行ずつ調べていって、やっと何をしてるのかわかりました。テキストファイルの内容を全て読み込んで、変更したい文字を変えてるんですね。次はSplit関数で行の方もやってみます。ありがとうございました<(_ _)>
No.4
- 回答日時:
ソース考えてみました。
こんな感じで、できるんじゃないかと。
但し、このソース実行してないので、動くか解りません。
また、読み込んだファイルが消えるはずなので、そこはBackUp取るなりしてもいいんじゃないかと。
あと、参照設定に「Microsoft Scripting Runtime」が必要かも。
ご使用は自己責任ということで・・・
=================================
Private Sub Command1_Click()
Dim FileNo_R As Integer
Dim FileNo_W As Integer
Dim F_NM_W As String
Dim F_NM_R As String
Dim TextLine_R As String
Dim Textline_w As String
Dim Fso As New Scripting.FileSystemObject
F_NM_R = "D:\test_r.txt"
F_NM_W = "D:\test_w.txt"
FileNo_R = FreeFile
Open F_NM_R For Input Access Read Lock Write As #FileNo_R
FileNo_W = FreeFile
Open F_NM_W For Output Access Write Lock Write As #FileNo_W
Do While Not EOF(FileNo_R)
Line Input #FileNo_R, TextLine_R
Textline_w = Replace(TextLine_R, "A", ";A")
Print #FileNo_W, Textline_w
Loop
Close #FileNo_R
Close #FileNo_W
Fso.DeleteFile F_NM_R
Fso.MoveFile F_NM_W, F_NM_R
End Sub
=================================
この回答への補足
すごいです(>_<)ビックリです!意味不明です(>_<)しかし、完璧です!!ファイルも勝手に作られてたし、すごいの一言です!!!もう少し教えてください<(_ _)>このAを;Aに変更するのと同じなので、B、C、Dぐらいまであります。その場合は一体どうすればよいでしょうか?自分でやりたいのは山々なのですが、まったくわからないというのが現状の実力です。もしよろしければ考えてやってください<(_ _)>よろしくお願いします<(_ _)>
補足日時:2005/09/08 15:33No.2
- 回答日時:
Open中に書き換える場合は、
Open "C:\HOGE.txt" For Random As #intFF
で、Get,Putで読み出し、書き込みができます。
ですが、これをやる場合は文字数が書き換えの前後で
替わってはいけません。
文字数が替わる場合は、元のファイルに直接更新するのではなく、
読んだ分を別ファイルに書き出すか、
件数がそれほど多くないなら配列に一旦格納して、最後に一旦閉じてからOutputで開き直して全件出力させます。
この回答への補足
文字数が増えるのでダメですね(>_<)全部読み込んで、変更して、書き込むってのが僕的には一番わかりやすいです。変更箇所が4箇所もあるので、パニックです(>_<)えぇっと、Do while not で全部読み込んで、変数で変更していって、読み込みが終わったら、次にまたファイルをOutputでOpenして、さっき読み込んだのを書き込むんですよね?手順はあってますでしょうか?なんて難しいんだぁ(>_<)
補足日時:2005/09/08 15:27No.1
- 回答日時:
ご存知かもしれませんが,エラーの内容が不明なので,基本的なことだけ。
読み込むときのOpenの仕方はInput,書き込むときはOutputです。
まずInput形式でOpenした後,Aを探して,見つけたらA;に変換します。
次に,開いているファイルを閉じます。
最後にOutput形式でOpenして書きこみます。
お役に立てれば幸いです。
この回答への補足
ありがとうございます。まず読み込んで、次に書き込むんですね!!やってみます。順序は、読み込みながら、変数を変更しながらってのでよろしいんでしょうか?mytext = "A" mytext=";A"って感じで変更しながらでしょうか?哀しくなるくらいの素人で申し訳ありませぬ<(_ _)>
補足日時:2005/09/08 15:24お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- PDF Adobe Acrobat 9 Standard 1 2022/10/16 21:08
- Chrome(クローム) 最近のGoogle Chromeのデータ読み込みの遅延やエラーって頻発しますか? 2 2023/01/06 22:12
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 2 2023/03/02 18:54
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
テキストファイル中の文字列の置換
Visual Basic(VBA)
-
VB6.0 ファイルの一括読込み
Visual Basic(VBA)
-
VBプログラムの終了
Visual Basic(VBA)
-
-
4
VB6 開発環境のエディタに行番号を表示
Visual Basic(VBA)
-
5
【VB6.0】 あるフォームから他のフォームへ値を受け渡したい
Visual Basic(VBA)
-
6
VB6.0 文字列のファイル書き込み
Visual Basic(VBA)
-
7
VB6.0-整数と余りを求める
Visual Basic(VBA)
-
8
VB6側からテキストファイルをクリアにする方法
Visual Basic(VBA)
-
9
モーダルフォームとモードレスフォーム
Visual Basic(VBA)
-
10
テキストボックスの入力制限
Visual Basic(VBA)
-
11
VB6.0の別名保存について
Visual Basic(VBA)
-
12
配列を関数に渡す方法
Visual Basic(VBA)
-
13
Visual Basic 6.0 コンボボックスのChangeイベントが発生しません
Visual Basic(VBA)
-
14
[VB6] フォームを閉じる方法について
Visual Basic(VBA)
-
15
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
16
VB6.0 でメニューを作りたいんですが・・・
Visual Basic(VBA)
-
17
テキストファイル更新
Visual Basic(VBA)
-
18
VBのフォームをスクロールさせるには
Visual Basic(VBA)
-
19
テキストボックスの中身をリセット(クリア)したい
Visual Basic(VBA)
-
20
frxファイルの役目
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF文、条件分岐の整理方法
-
VBAコードのインデント表示
-
時間短縮のために、テキストフ...
-
Excel VBA 選択範囲の罫線色の...
-
マクロの記録を使用したマクロ...
-
VB.net(VB)で、フォームにExcel...
-
IEを使わないでhtmlテキストを...
-
Excelセルに入力された文字の色...
-
VBAなくなるの?
-
【ExcelVBA】値を変更しながら...
-
VBA 別ブックから条件に合うも...
-
VBAの質問です、複数のテキスト...
-
エクセルのマクロについて教え...
-
ワードVBA どの表か知ることは...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
ExcelVBA修正のお願い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ftpコマンドの戻り値をチェック...
-
簡単にEXEファイルを作れるプロ...
-
JCL(富士通/MSP)について教...
-
VBAのzip解凍についてのご質問です
-
VB6にて、テキストファイルの内...
-
FTPコマンドのリターンコー...
-
warファイル 「種類:WAR ファ...
-
ISOファイルの編集方法
-
ランレングス法を用いたC言語解...
-
秀丸エディタでのファイル分割
-
Subversion Eclipse Subversive...
-
コマンドプロンプト "expand" ...
-
マイナポータルの住宅借入金当...
-
VB Scriptで隠しファイル、フォ...
-
解凍できません 拡張子の前に...
-
VB.NETでフォルダの一覧を更新...
-
centos7.0ファイルの編集について
-
exeファイルの編集
-
sh拡張子のファイル内のプログ...
-
VB6.0 テキストファイルの操作...
おすすめ情報