Question

我发现其他人发布了我完全相同的问题，但对于像我这样的新人来说，答案还有很多不足之处：

how to find and replace a string in .reg files using vbscript

我试图添加代码但当然我运行时只会出错。如何在该场景中继续执行查找和替换：

Function ReadFile(filename)
Set fso = CreateObject("Scripting.FileSystemObject")

bom = ""
Set f = fso.OpenTextFile(filename)
Do Until f.AtEndOfStream Or bom = "ÿþ" Or bom = "þÿ" Or Len(bom) >= 3
bom = bom & f.Read(1)
Loop
f.Close

Select Case bom
Case "ÿþ", "þÿ"  'UTF-16 text
  Set f = fso.OpenTextFile(filename, 1, False, -1)
  ReadFile = f.ReadAll
  f.Close
Case "ï»¿"       'UTF-8 text
  Set stream = CreateObject("ADODB.Stream")
  stream.Open
  stream.Type = 2
  stream.Charset = "utf-8"
  stream.LoadFromFile filename
  ReadFile = stream.ReadText
  stream.Close
Case Else        'ASCII text
  Set f = fso.OpenTextFile(filename, 1, False, 0)
  ReadFile = f.ReadAll
  f.Close
 End Select
 End Function

 reg = ReadFile("C:\temp\File.reg")

 userName = objShell.ExpandEnvironmentStrings("%username%") newString = Replace(oldString, "domain\user" , userName)

 End Function

如何使用vbscript查找和替换.reg文件中的字符串 - Follow-through

0 个答案: