Det jag visade var inte exakt vad du eftersökte, det var en liten sak som skapade kataloger , listade filer i kataloger och som sedan visade text filen.. Här har du lite mer som visar hur jag öppnar textfilen och tar ut rubriker etc.
I text filen har jag följande saker
[rubrik]RUBRIKEN[/rubrik]
utskrifts filen skrev jag nu lite snabbt men den ska funka
osv för de andra, ingress och brodtext
FILEN SOM VISAR ARTIKELN
<!--#include file="backbone.asp" -->
%
strKatalogNamn = Request.Querystring("KatalogNamn")
strRootPath = Server.MapPath("\")
strFolder = Request.Querystring("Path")
strFolderPath = strRootPath & strFolder
strFileName = Request.Querystring("Artikel")
strFile = strFolderPath & strFileName
set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
set objTFile = objFSO.OpenTextFile(strFile,1,Create)
strC = ReadFile(strFileName,strFolderPath)
%>
<%Response.Write br(getText(strC,"[rubrik]",true))%><br>
<%Response.Write br(getText(strC,"[ingress]",true)) %><br>
<%Response.Write br(getText(strC,"[brodtext]",true))%><br>
<%
Set objFSO = Nothing
Set objTFile = Nothing
%>
BACKBONE.ASP (som inkluderas ovan)
<%
'** Öppnar och återger filens innehåll **'
Function ReadFile(file,strPath)
Set fso = CreateObject("Scripting.FileSystemObject")
strArtikel = strpath &""& file
ReadFile = fso.OpenTextFile(strArtikel, 1).ReadAll
Set fso = Nothing
End Function
'** Hämtar text mellan angivna taggar **'
Function getText(strString,strTag,bolRemChr13)
'** Tolkar taggen **'
strFirstChar = Left(strTag,1)
strLastChar = Right(strTag,1)
strTagContents = Mid(strTag,2,Len(strTag)-2)
strEndTag = strFirstChar & "/" & strTagContents & strLastChar
'** Skapar RegExp-objektet **'
Set RE = New RegExp
RE.Global = false
RE.IgnoreCase = false
RE.Pattern = "(\"&strFirstChar&strTagContents&"\"&strLastChar&"){1}(.|\n)+(\"&strFirstChar&"/"&strTagContents&"\"&strLastChar&"){1}"
Set MM = RE.Execute(strString)
For each M in MM
strTmp = M
Next
strTmp = Replace(strTmp,strTag,"")
strTmp = Replace(strTmp,strEndTag,"")
If InStr(strTmp,vbcrlf) AND bolRemChr13 Then strTmp = Mid(strTmp,2)
getText = Trim(strTmp)
End Function
'** Byter radbrytningar mot <br> **'
Function br(strC)
br = Replace(strC,vbcrlf,"<br>")
End Function
%>
------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !
[Redigerat av erka den 14 nov 2001]
[Redigerat av erka den 14 nov 2001]
