新聞財經娛樂♬資訊 News Economy

Sub searchtext2()Dim workbookname As StringDim searchtext As StringDim ReplaceText As StringDim rFile As Stringworkbookname = ActiveWorkbook.Path & "example.htm"searchtext = "<script language=""JavaScript"">"ReplaceText = searchtext & vbCrLf & " var g_iSh = 0;" & vbCrLf & _                                    "if (window.location.search)" & vbCrLf & _                                    "g_iSh = window.location.search.split(/=/)[1];" & vbCrLf & _                                    "window.setInterval(""refreshPage()"", 10000); //refresh every 10 sec" & vbCrLfrFile = ReadFile(workbookname)rFile = Replace$(rFile, searchtext, ReplaceText, 1, , vbTextCompare)WriteFile workbookname, rFileEnd SubSub WriteFile(sFilePathAndName, sFileContents)Dim oFSDim oFSFile  Const ForWriting = 2  Set oFS = CreateObject("Scripting.FileSystemObject")  Set oFSFile = oFS.OpenTextFile(sFilePathAndName, ForWriting, True)  oFSFile.write (sFileContents)  oFSFile.Close  Set oFSFile = Nothing  Set oFS = NothingEnd SubFunction ReadFile(sFilePathAndName)   Dim sFileContents   Dim oFS   Dim oTextStream   Set oFS = CreateObject("Scripting.FileSystemObject")   If oFS.FileExists(sFilePathAndName) = True Then      Set oTextStream = oFS.OpenTextFile(sFilePathAndName, 1)      sFileContents = oTextStream.ReadAll      oTextStream.Close      Set oTextStream = Nothing   End If   Set oFS = Nothing   ReadFile = sFileContentsEnd Function                                  

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30:31:32:33:34:35:36:37:38:39:40:41:42:43:44:45:46:47:48:49:50:51:52:53:54:55:56:57:58:59:60:61:62:63:64:65:66: