--- title: "i am impressed" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12649-i-am-impressed" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "costodia" published: "2001-11-13T10:44:00.000Z" updated: "2001-11-15T08:10:00.000Z" replies: 20 views: 402 page: 1 pages: 2 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/12649-i-am-impressed" --- # i am impressed _Sida 1 av 2._ ## #1 — costodia, 2001-11-13T10:44Z Jag var inne på och blev riktigt imponerade av det systemet som Johan använder där. Så det jag tänkte fråga om någon har koll på hur man gör ett sådant script. Alltså det är det här med includen av ett txt-dok i ett asp genom nyhetsbrev2.asp?id=surftips100.txt och sedan att man kan bestämma var på sidan det skava vara också. Permalänk: https://www.webforum.nu/p/12649 ## #2 — Vide, 2001-11-13T10:56Z Va? Vad är det som skall uppnås? Och vad finns i textfilen? Permalänk: https://www.webforum.nu/p/294598 ## #3 — costodia, 2001-11-13T11:18Z i testfilen finns text, men det är inte det som är det viktiga utan bara att textfilen inkluderas i nyhetsbrev2.asp Permalänk: https://www.webforum.nu/p/294599 ## #4 — erka, 2001-11-13T11:48Z Det är ju bara att använda fso och sedan tex sätta taggar i text filen typ \[rubrik\] sluttagg \[/rubrik\] och sedan kolla efter vissa saker i text filen och skriva ut det på en sida. Permalänk: https://www.webforum.nu/p/294600 ## #5 — Vide, 2001-11-13T12:21Z > i testfilen finns text, men det är inte det som är det viktiga utan bara att textfilen inkluderas i nyhetsbrev2.asp Vad som finns i textfilen är visst viktigt, beroende på det kanske det finns en smartare lösning... ligger all text i filen så är det enklast att göra som erka sa. Permalänk: https://www.webforum.nu/p/294601 ## #6 — erka, 2001-11-13T12:22Z fast då kan man likaväl ha det i en xml fil varje nyhetsbrev och styra det med asp och xml, smidigare och snyggare :e Permalänk: https://www.webforum.nu/p/294602 ## #7 — costodia, 2001-11-13T12:39Z Det erka sa lät bra, men tyvärr har jag ingen aning om hur jag kodar detta, så om du råkar ha lite tid över så skulle jag bli jätteglad om du kankse hade lust att visa lite kod. Tack på förhand, Permalänk: https://www.webforum.nu/p/294603 ## #8 — erka, 2001-11-13T12:47Z här kommer en diskussion med text fils varianten jag gjorde om den och byggde den på xml senare men den har jag inte tillgång till idag (men i morgon så, he he) Permalänk: https://www.webforum.nu/p/294604 ## #9 — costodia, 2001-11-13T17:00Z jag testade ditt script men får tyvärr ``` Microsoft VBScript runtime error '800a01c2' Wrong number of arguments or invalid property assignment: 'ReadFile' /erka/Default.asp, line 4 ``` du har inte lust att skicka det i en zip? Permalänk: https://www.webforum.nu/p/294605 ## #10 — erka, 2001-11-14T08:30Z Du menar text fils varianten eller ? vad är det för kod som generarar felmeddelandet ? posta koden Permalänk: https://www.webforum.nu/p/294606 ## #11 — costodia, 2001-11-14T08:32Z jo. men det är just den du använder i ditt script, som låg i den där andra tråden som hänvisades till här. Permalänk: https://www.webforum.nu/p/294607 ## #12 — erka, 2001-11-14T09:24Z 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 % 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))%>
<%Response.Write br(getText(strC,"[ingress]",true)) %>
<%Response.Write br(getText(strC,"[brodtext]",true))%>
<% 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
**' Function br(strC) br = Replace(strC,vbcrlf,"
") End Function %> ``` Permalänk: https://www.webforum.nu/p/294608 ## #13 — costodia, 2001-11-14T09:40Z nu hände det något helskumt, Permalänk: https://www.webforum.nu/p/294609 ## #14 — erka, 2001-11-14T09:47Z under \