Har ett script som loopar igenom alla filer med endelsen .html i en mapp. Och ändrar lite info i dem. Men nu är det så att den loopar igenom mappen som den skall, Men den skriver inte till informationen till .html filerna som den skall. Den skriver bara i en fil :/
for each x in F.Files
If LCase(right(x.Name, 4)) = "html" Then
Set File = FSO.OpenTextFile(server.mappath("../" & Session("Fnamn") & "/" & x.Name),1)
HtmlGrund = File.ReadAll
With New RegExp
.Pattern = "^[\w\W]*<!-- Gjord av [url]www.Borgdata.se[/url] -->([\w\W]*)<!-- Meny -->[\w\W]*$"
Topp = .Replace(HtmlGrund, "$1")
End With
With New RegExp
.Pattern = "^[\w\W]*<!-- Start -->([\w\W]*)<!-- Slut -->[\w\W]*$"
Mitten = .Replace(HtmlGrund, "$1")
End With
With New RegExp
.Pattern = "^[\w\W]*<!-- Slut -->([\w\W]*)<!-- [url]www.Borgdata.se[/url] -->[\w\W]*$"
Bott = .Replace(HtmlGrund, "$1")
End With
Set File = FSO.OpenTextFile(server.mappath(Url),2)
EditHtml = "<!-- Gjord av [url]www.Borgdata.se[/url] -->" & Topp & "<!-- Meny -->" & Temp & "<!-- Start -->" & Mitten & "<!-- Slut -->" & Bott & "<!-- [url]www.Borgdata.se[/url] -->"
File.Write EditHtml
Set File = Nothing
End If
Next
Namn = replace(Request.Form("Namn"), "'", "''")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
[B]Url[/B] = "../" & Session("Fnamn") & "/" & Namn & ".html"
FSO.CopyFile server.mappath("Bin\HtmlGrund.html") , server.mappath(Url)
set F = FSO.GetFolder(server.mappath("../" & Session("Fnamn") & "/"))
for each x in F.Files
If LCase(right(x.Name, 4)) = "html" Then
Temp = Temp & "<a href=""../" & Session("Fnamn") & "/" & x.Name & """>" & mid(x.Name, 1, Instr(x.Name,".") - 1) & "</a> "
End If
Next
Temp = Temp & "<br><br>"
for each x in F.Files
If LCase(right(x.Name, 4)) = "html" Then
Set File = FSO.OpenTextFile(server.mappath("../" & Session("Fnamn") & "/" & x.Name),1)
HtmlGrund = File.ReadAll
With New RegExp
.Pattern = "^[\w\W]*<!-- Gjord av [url]www.Borgdata.se[/url] -->([\w\W]*)<!-- Meny -->[\w\W]*$"
Topp = .Replace(HtmlGrund, "$1")
End With
With New RegExp
.Pattern = "^[\w\W]*<!-- Start -->([\w\W]*)<!-- Slut -->[\w\W]*$"
Mitten = .Replace(HtmlGrund, "$1")
End With
With New RegExp
.Pattern = "^[\w\W]*<!-- Slut -->([\w\W]*)<!-- [url]www.Borgdata.se[/url] -->[\w\W]*$"
Bott = .Replace(HtmlGrund, "$1")
End With
Set File = FSO.OpenTextFile(server.mappath(Url),2)
EditHtml = "<!-- Gjord av [url]www.Borgdata.se[/url] -->" & Topp & "<!-- Meny -->" & Temp & "<!-- Start -->" & Mitten & "<!-- Slut -->" & Bott & "<!-- [url]www.Borgdata.se[/url] -->"
File.Write EditHtml
Set File = Nothing
End If
Next
Set F = Nothing
Set FSO = Nothing
