Replace kod

ä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

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

borde kanske funka med

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

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?

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?

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

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!