excel - 使用 Excel VBA 编辑 R 脚本

Question

我想使用 vba 创建一个可以编辑 R 脚本的 excel 宏。

我们将此 R 脚本称为 starter.R，其工作目录为 C:/Documents。我要更改的代码是“run=3000”。我想把它改成“run=2000”。

首先，我想使用以下代码打开 R 脚本：

Sub ReplaceString()
Dim filename as string
Dim location as String
location="C:\Users\Ken\Documents"
filename="C:\Users\Ken\Documents\start.R"
'Open filename

然后我想将字符串“run=3000”替换为“run=2000”。

'Replace("run=3000","run=2000")
end sub

有人可以帮助我吗？

Answer 1

试试这个代码，它可能会帮助你

  Sub ReplaceString()
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set Ofs =fs.OpenTextFile("C:\Users\Ken\Documents\Start.R",1,False) 
  Txt = Ofs.ReadAll
  StrToFnd = "run" & "=" & "3000"
  StrToRplc = "run" & "=" &"2000"          

  Temp=Replace(Txt,StrToFnd,StrToRplc)
  Ofs.Close
  Set Ofs = Nothing
  Set Ofs=fs.OpenTextFile("C:\Users\Ken\Documents\Start.R",2,False) 
  Ofs.WriteLine(Temp)
  Ofs.Close
  End Sub