Replace kod

Jag har ett kodblock som jag vet börjar med <style> och slutar med </style>, men jag vet inte vad som kommer att vara för kod emellan taggarna.

Nu skulle jag vilja skriva en kod som tar bort all kod emellan dessa taggar.

Jag vill alltså bara ha tomt mellan style taggarna. Går det att göra på något smidigt sätt?

är det inte enklare att skapa en egen sträng som innehåller "<style></style>"

Då slipper du ju ta bort det som är emellan :)

------------------
calling me a motherfucker, saying he's gonna blow me away and blah, blah, blah, blah, blah.
National Blonde Day!

str = left(right(str,len(str)-7),len(str)-8)

borde kanske funka med :)

------------------
calling me a motherfucker, saying he's gonna blow me away and blah, blah, blah, blah, blah.
National Blonde Day!

[Redigerat av mrblonde den 10 sep 2001]

Ok vi lägger fram det såhär:
Jag har konverterat en word-fil till html och vill ta bort all kod mellan första <style> och den sista </style> i filen.
hur göra?

[Redigerat av ironhead den 10 sep 2001]

ok nu då :)

Hoppas jag tänkte rätt :)

'orgstr är din orginalsträng
'str är den strippade
str = mid(orgstr,1,instr(orgstr,"<style>")+6) & mid(orgstr,instr(orgstr,"</style>"),len(orgstr))

[r] - ett komma för mycket

------------------
calling me a motherfucker, saying he's gonna blow me away and blah, blah, blah, blah, blah.
National Blonde Day!

[Redigerat av mrblonde den 10 sep 2001]

eh! får det inte att funka...
detta har jag

    htmlfil = "C:\Inetpub\wwwroot\word2html\chapter2.htm"
    
    filnr = FreeFile
    Open htmlfil For Input As filnr
    Do While Not EOF(filnr)
    Line Input #filnr, tmprad
    heltext = heltext & tmprad
    Loop
    Close filnr
    
    sStr = Mid(heltext, 1, InStr(heltext, "<style>") + 6) & Mid(heltext, InStr(heltext, "</style>"), Len(heltext))
    
        
    filnr = FreeFile
    Open htmlfil For Output As filnr
    
    Print #filnr, sStr
    
    Close filnr

vad får du för felkod?
något felmeddelande får du väl?

------------------
calling me a motherfucker, saying he's gonna blow me away and blah, blah, blah, blah, blah.
National Blonde Day!

inget felmeddelande...den jobbar på ett tag, sedan dött...

har faktiskt inte jobbat med att öppna html filer åsjag kan inte hjälpa dig så mycket där.

Kan du inte döpa om den till en txt fil, och öppna den den som TextStream/TextFile (välj själv) och plocka ur det på det sättet, ersätta style taggarna spara in det i txt filen och sedan döpa om den till html igen :)

Enkelt va?

------------------
calling me a motherfucker, saying he's gonna blow me away and blah, blah, blah, blah, blah.
National Blonde Day!

Trodde det var vad jag gjorde...en html fil är ju som vilken text-fil som helst.

Fattar inte bara vad som händer (eller inte händer).

lånar lite kod från www.4guysfromrolla.com

Const fsoForReading = 1

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\SomeFile.txt", fsoForReading)

'Display the contents of the text file
heltext = objTextStream.ReadAll

'Close the file and clean up
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

'fippla med str
sStr = Mid(heltext, 1, InStr(heltext, "<style>") + 6) & Mid(heltext, InStr(heltext, "</style>"), Len(heltext))

'eh, jag orkar inte fixa ihop koden som sparar ner det.. måste jobba. Men du akn ju söka på file system objects elelr nått på en massa olika siter så hittar du nog hjälp till resten

hoppas det här hjälper lite

------------------
calling me a motherfucker, saying he's gonna blow me away and blah, blah, blah, blah, blah.
National Blonde Day!

[Redigerat av mrblonde den 10 sep 2001]

MrBlonde: Tack för all din hjälp, har kommit en bra bit på vägen :)

Const fsoForReading = 1
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\SomeFile.txt", fsoForReading)

'Display the contents of the text file
heltext = objTextStream.ReadAll

'Close the file and clean up
objTextStream.Close
Set objTextStream = Nothing

'fippla med str
sStr = Mid(heltext, 1, InStr(heltext, "<style>") + 6) & Mid(heltext, InStr(heltext, "</style>"), Len(heltext))

'radera den befintliga html filen
objFSO.DeleteFile "C:\SomeFile.txt",True

'skapa en ny 
Set objTextStream = objFSO.OpenTextFile "C:\SomeFile.txt",2,True

'stoppa in html koden
objTextStream.Write heltext
objTextStream.close

set objTextStream = nothing
Set objFSO = Nothing

Sådär nu fick du resten med när det lugnat ner sig lite.

Hoppas det funkar, koden är ju otestad och skriven lite på "känn" ;)

nu jävlar går jag hem! :e

------------------
calling me a motherfucker, saying he's gonna blow me away and blah, blah, blah, blah, blah.
National Blonde Day!