---
title: "Replace kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11549-replace-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ironhead"
published: "2001-09-10T10:54:00.000Z"
updated: "2001-09-10T15:43:00.000Z"
replies: 12
views: 207
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11549-replace-kod"
---

# Replace kod

## #1 — ironhead, 2001-09-10T10:54Z

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?

Permalänk: https://www.webforum.nu/p/11549

## #2 — mrblonde, 2001-09-10T10:59Z

ä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 :)

Permalänk: https://www.webforum.nu/p/286148

## #3 — mrblonde, 2001-09-10T11:04Z

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

borde kanske funka med :)

Permalänk: https://www.webforum.nu/p/286149

## #4 — ironhead, 2001-09-10T11:18Z

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\]

Permalänk: https://www.webforum.nu/p/286150

## #5 — mrblonde, 2001-09-10T11:27Z

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

Permalänk: https://www.webforum.nu/p/286151

## #6 — ironhead, 2001-09-10T11:39Z

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
```

Permalänk: https://www.webforum.nu/p/286152

## #7 — mrblonde, 2001-09-10T11:46Z

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

Permalänk: https://www.webforum.nu/p/286153

## #8 — ironhead, 2001-09-10T11:51Z

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

Permalänk: https://www.webforum.nu/p/286154

## #9 — mrblonde, 2001-09-10T12:00Z

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?

Permalänk: https://www.webforum.nu/p/286155

## #10 — ironhead, 2001-09-10T13:08Z

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).

Permalänk: https://www.webforum.nu/p/286156

## #11 — mrblonde, 2001-09-10T13:30Z

lånar lite kod från [www.4guysfromrolla.com](http://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

Permalänk: https://www.webforum.nu/p/286157

## #12 — ironhead, 2001-09-10T14:51Z

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

Permalänk: https://www.webforum.nu/p/286158

## #13 — mrblonde, 2001-09-10T15:43Z

```
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

Permalänk: https://www.webforum.nu/p/286159

---

Tråden på webben: https://www.webforum.nu/amne/asp/11549-replace-kod