vb能否实现对文本文件内容的查找替换功能？？
比如输入某数值10000。能否将文本文件a.txt中的x换成10000
谢谢

2。还有就是将指定文件改名。。能实现吗？？
3.将指定文件复制到指定文件中。能实现吗？？

[此贴子已经被作者于2005-4-17 22:03:53编辑过]

答案是：全部能。

兄弟，请指教！！！

用字符串函数Mid找就可以。

我把积分都给斑竹了。。。赫赫和

谢谢你们。。能再详细一些吗

将指定文件改名。。怎么实现
将指定文件复制到指定文件中？？

'查找替换 Option Explicit Private Sub Command1_Click() Call ReplaceInFile("C:\test.txt", "x", "10000") End Sub

Private Sub ReplaceInFile(FileName As String, ReplaceStr As String, ReplaceWithStr As String) Dim FileNum As Long, strFileContent As String, strTemp As String

FileNum = FreeFile If Dir(FileName) <> "" Then Open FileName For Input As #FileNum While Not EOF(FileNum) Line Input #FileNum, strTemp strFileContent = strFileContent & strTemp & vbCrLf Wend Close #FileNum strFileContent = Replace(strFileContent, ReplaceStr, ReplaceWithStr, , , vbDatabaseCompare) Open FileName For Output As #FileNum Print #FileNum, strFileContent Close #FileNum End If End Sub

Name 语句

重新命名一个文件、目录、或文件夹。

语法

Name oldpathname As newpathname

Name 语句的语法具有以下几个部分：

部分	描述
oldpathname	必要参数。字符串表达式，指定已存在的文件名和位置，可以包含目录或文件夹、以及驱动器。
newpathname	必要参数。字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。而由 newpathname 所指定的文件名不能存在。

说明

Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要，Name 可跨驱动器移动文件。 但当 newpathname 和 oldpathname 都在相同的驱动器中时，只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。

在一个已打开的文件上使用 Name，将会产生错误。必须在改变名称之前，先关闭打开的文件。Name 参数不能包括多字符 (*) 和单字符 (?) 的统配符。

[QUOTE]将指定文件复制到指定文件中？？[/QUOTE]
 
是什么意思？打指定文件内容复制到另一个文件中？还是追加到另一个文件？