Funderingar runt textfiler

ASP är himla smidigt i textfilhantering enligt mig.

Att skapa en liknande fil är inga problem. Jag har använt en liknande då jag inte hade tillgång till en databas.

/JANspeed

Tänkte göra ett artikel arkiv, och vill undvika db för att personer ska kunna skriva text filen på sin dator och sen bara ladda upp den, söka igenom katalogen och skriva ut artiklarna etc.

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

Jag har byggt en liten parser för det där, ligger under script: http://script.webforum.nu/wf/Forum1/HTML/000069.html

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

Vide

Jag försöker att bygga om ditt script lite för att passa mig perfekt. Tack för scriptet föresten. Det är ju så att jag ska gå neråt i ett katalog träd och i första steget, lista kataloger som finns foldern "artiklar" Sen ska på nästa sida skriva ut de rubrikerna som finns i textfilerna i den valda katalogen, jag måste ju därför skicka med Pathen till din funktion. Men något blir fel

Nu ser sidorna ut på följande sätt
Artiklar.asp

<b>Kataloger:<br></b>
<%
folderspec = "c:\inetpub\wwwroot\newweb\tools\artiklar\"
Set ff = CreateObject("scripting.FileSystemObject")
Set fw = ff.GetFolder(folderspec)
Set fsf = fw.subfolders
For Each whatever in fsf
Response.write"<a href=""VisaKatalog.asp?KatalogNamn="& whatever.name & """>"& whatever.name&"<br>"
next
%>

VisaKatalog.asp

<!--#include virtual="/Tools/artiklar/backbone.asp" -->
<b>Innehåll:<br></b>
<%
strKatalogNamn = Request.Querystring("KatalogNamn")
strRootPath = Server.MapPath("\")
strFolder = "\tools\artiklar\"& strKatalogNamn &"\"
strFolderPath = strRootPath & strFolder

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolderPath)

'**Loopa igenom katalogen**'
	For Each File IN objFolder.Files
		strFileName = File.Name
'** Börja hämta ut de olika rubrikerna **'		
		strC = ReadFile(strFileName,strFolderPath)
		Response.Write br(getText(strC,"[rubrik]",true))&"<br>"
'** Hoppa till Nästa fil**'
	Next
%>

Backbone.asp (tar nu bara med funktionen för att få rätt katalog och fil att söka igenom)

Function ReadFile(file,strPath)	
Set fso = CreateObject("Scripting.FileSystemObject")	
strPath = strpath &""& file	
ReadFile = fso.OpenTextFile(strPath, 1).ReadAll	
Set fso = Nothing
End Function

Som du ser försöker jag på VisaKatalog.asp skicka med ett värde (sökvägen) till funktionen Readfile i backbone.asp för filerna som ska kollas igenom.

Men jag har ju tänkt fel någonstanns, vart ? Jag får

Microsoft VBScript runtime error '800a0035' 

File not found 

/Tools/artiklar/backbone.asp, line 6

Jag får fram första rubriken men sen måste något gå snett när jag loopar.
Tackar så länge ;)

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

[Redigerat av erka den 03 okt 2001]

Använd min funktion för att hämta filen, och skicka inte med hela pathen, bara det som kommer efter rooten.

[R.] Får du fel igen så kan du skriva ut sökvägen så att du ser vad du skall ändra.

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

[Redigerat av Vide den 03 okt 2001]

Darn it, korkade mig löste det genom att skriva

Function ReadFile(file,strPath)	
Set fso = CreateObject("Scripting.FileSystemObject")	
strArtikel = strpath &""& file	
ReadFile = fso.OpenTextFile(strArtikel, 1).ReadAll	
Set fso = Nothing
End Function

Fin fint script vide!

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

Vide, är det korkat att göra som jag gjorde nu, skicka med hela sökvägen ?

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

Nja, jag anser att du skall försöka att hålla så mycket som möjligt inne i funktionen, och server.mappath ger dig ju alltid rooten (/), så den kan du ha i funktionen.

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu