VB60でテキストドキュメントを変更する方法

1. VB6.0 でテキスト ドキュメントを変更するにはどうすればよいですか?

VB6.0 では、FileSystemObject オブジェクトを使用してテキスト ドキュメントを読み取り、変更できます。以下は、テキスト ファイルを読み取り、その内容を変更する方法を示す簡単な例です。 「」vb オブジェクトとしての Dim fso オブジェクトとしての Dim ファイル 文字列としての Dim コンテンツ Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile("C:\example.txt", 1) ' 1 はファイルを読み取り専用モードで開くことを意味します コンテンツ = file.ReadAll ファイル.閉じる content = Replace(content, "古いテキスト", "新しいテキスト") ' テキスト内の「古いテキスト」を「新しいテキスト」に置き換えます Set file = fso.OpenTextFile("C:\example.txt", 2) ' 2

まず、VB6.0 プロジェクトに Microsoft Scripting Runtime への参照が追加されていることを確認してください。これは、[プロジェクト] -> [参照] -> [Microsoft Scripting Runtime] を選択することで実現できます。こうすることで、そのリファレンスで提供されている機能を使用できるようになります。

Private Sub ModifyTextFile(filePath As String)
    Dim fso As New FileSystemObject
    Dim ts As TextStream
    Dim newText As String
    
    Set ts = fso.OpenTextFile(filePath, ForReading) ' 打开文本文件以供读取
    newText = ts.ReadAll ' 读取文本文件的内容到变量中
    ts.Close ' 关闭文件
    
    ' 在文本中进行所需的修改（示例中替换"oldText"为"newText"）
    newText = Replace(newText, "oldText", "newText")
    
    Set ts = fso.OpenTextFile(filePath, ForWriting) ' 重新打开文本文件以供写入
    ts.Write newText ' 写入修改后的内容到文本文件中
    ts.Close ' 关闭文件
End Sub

このコードは、FileSystemObject オブジェクトを通じてテキスト ファイルを開き、ファイルの内容を変数に読み取り、変更してからファイルに書き込みます。置換テキストがニーズに合っていることを確認してください。

2. VB テキスト ボックスの内容を使用して、Word の指定されたテキストを置き換えますか?

指定したテキストを Word の VB テキスト ボックスの内容に置き換えるには、Word アプリケーションの操作を使用できます。以下に簡単な例を示します。

Private Sub ReplaceWordText(textBoxContent As String)
    Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    
    ' 打开Word文档
    objWord.Documents.Open "C:\Path\To\Your\Word\File.docx"
    
    ' 替换Word文档中的指定文字（示例中将"OldText"替换为文本框内容）
    objWord.Selection.Find.Text = "OldText"
    objWord.Selection.Find.Execute
    objWord.Selection = textBoxContent ' 替换为文本框内容
    
    ' 保存并关闭Word文档
    objWord.ActiveDocument.Save
    objWord.Quit
End Sub

このコードは、Word アプリケーションの Selection オブジェクトを使用して、指定されたテキストを検索し、テキスト ボックスの内容と置き換えます。ファイルパスや置換テキストなどは必要に応じて変更してください。

3. 概要

1. (1) VB6.0 では、FileSystemObject オブジェクトを使用してテキスト ドキュメントを読み取り、変更できます。
2. (2) 指定したテキストを Word の VB テキスト ボックスの内容に置き換える場合は、Word アプリケーションの操作を使用して、Selection オブジェクトを使用して指定したテキストを検索し、置き換えることができます。

以上がVB60でテキストドキュメントを変更する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。