[Notanda eytt] fyrir 22 árum, 5 mánuðum Fjöldi lestra: 219

Skrifa í .txt eða .htm

Ég er nýgræðingur í asp og mig langar að vita hvort þið getið aðstoðað mig. Ég veit ekki alveg hvernig ég á að útskýra þetta, en ég skal gera mitt besta.

Það sem ég var að hugsa um var að maður gæti farið inná síðuna og þar væri “form” með texta, síðan getur maður breitt honum til dæmis bætt við hann eða stitt texta. Síðan þegar það væri búið þá væri svona save takki sem maður mundi ýta á og þá myndi hann uppfæra .txt eða .htm skjalið sem að textin væri í.
Þannig að ef ég myndi síðan kom inn á síðuna einhvertíman seinna þá væri texti úr txt skjalinu í “form”inu og ég gæti þú betrumbætan og síðan save(að) og geimt hann þannig þangað til mér dytti í hug að breyta honum aftur.

P.S. það væri betra ef að þetta væri notendavænt og myndi virka eins og t.d. notepad.

Ég vona að þetta hafi “meikað einhvern sens” ;) _____________________

www.bmson.is
bmson@bmson.is

Augustus fyrir 22 árum, 5 mánuðum

ah.. ef þetta hefði verið PHP þá prufaði ég þetta einu sinni og á kóðann fyrir það :p –
Summum ius summa inuria

Summum ius summa inuria

Fyrra álit

hagur fyrir 22 árum, 5 mánuðum

Þetta er ekki flókið mál að gera.

Þú notar File System objectinn í ASP til að lesa og skrifa skrár, það er mjög einfalt að nota hann.

Til þess að geta notað hann, þá þarftu að búa til instance af honum fyrst, svona:
Dim oFileSystem
Set oFileSystem = Server.CreateObject(“Scripting.FileSystemObject”)

Hér er dæmi hvernig þú lest skrá af servernum og outputtar henni eða tekur innihaldið úr henni og setur það í breytu sem þú getur svo látið skrifast út inní textarea:
'******************************************************
Dim oFSO
Set oFSO = Server.CreateObject(“Scripting.FileSystemObject”)

Dim oTextStream
Set oTextStream = oFSO.OpenTextFile(“C:\einhverskra.txt”,1)

'Hér skrifast innihaldið úr skránni út ….
Response.Write oTextStream.ReadAll
'Þú gætir líka gert svona:
strTexti = oTextStream.ReadAll
'og notað svo strTexti breytuna neðar í skjalinu til að skrifa inn í textarea.

oTextStream.Close
Set oTextStream = Nothing
Set oFSO = Nothing
'***************************************************
Hér er kóði til þess að skrifa í skrár:
'***************************************************
Dim oFSO, oTS
Set oFSO = Server.CreateObject(“Scripting.FileSystemObject”)

Set oTS = oFSO.CreateTextFile(“C:\mappa\einhverskra.txt”)

oTS.WriteLine(“Blablabla!”)

oTS.Close
Set oTS = Nothing
Set oFSO = Nothing

'*************************************************

Nú hefurðu kóða til að lesa og skrifa í skrár, það eina sem er eftir að gera er að búa til asp skjal sem t.d opnar skrána sem þú ert að tala um, skrifar út form með textarea þar sem value-ið er t.d breytan strTexti eins og í dæminu f. ofan. Formið á þessu skjali postar svo á annað asp skjal sem tekur við textanum úr forminu og skrifar hann í skrá.

Ég er ekki viss um að þetta sé nákvæmlega það sem þú ert að tala um … gæti verið að þú sést að meina að þetta sé svona “admin” kerfi þannig að þú getir editerað hverja síðu sem þú ert á. Það er ekki mikið flóknara dæmi. Þá þarftu bara að nota Server.Variables(“Script_name”) til að vita skráarnafnið, og nota svo Server.MapPath til að finna slóðina á servernum o.sv.frv.

Láttu vita ef þetta er málið ….

Fyrra álit

ask fyrir 22 árum, 5 mánuðum

<a href="http://www.hugi.is/vefsidugerd/bigboxes.php?box_id=29774&action=cp_grein&cp_grein_id=435“ target=”_blank“>Flasher skrifaði einmitt grein</a> um hvernig ætti að gera þetta, hún er undir leiðbeiningarhorninu.

Það eina sem vantar bara hjá honum er að leyfa notandanum að skrifa inn og þá ertu kominn með svarið. Þá býrðu bara til nýja síðu sem hefur textfield sem heitir frmTexti og action-ið á forminu sendist á síðuna sem flasher skrifaði grein um, þar bætiru bara við:

strTexti = Request.Form(”frmTexti“) og lætur skrifa innihald breytunnar inn í textaskjalið ekki textann sem hann hann var með(Þetta er lína nr….)

p.s. það virkar nákvæmlega sama fyrir .html skjal, enda er það bara textaskjal ask | <a href=”http://bergur.is“ target=”_blank“ style=”text-decoration:none;">bergur.is</a

Fyrra álit

[Notanda eytt] fyrir 22 árum, 5 mánuðum

Eitthvað er ekki að virka rétt 
Ég get skoðað .txt skjalið
og þar er allt í fína, en þegar ég ætla
að fara að skrifa í það, þá fer allt í
hönk. 
 
 
________________________________________________
skrifa.asp 
<%@ LANGUAGE="VBSCRIPT" %> 
<% 
Dim objFSO, objTextaSkra 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTextaSkra = objFSO.CreateTextFile(Server.MapPath("textaskra.txt")) 
objTextaSkra.WriteLine = Request.Form("frmTexti") 
objTextaSkra.Close 
Set objTextaSkra = Nothing 
Set objFSO = Nothing 
%> 
________________________________________________ 
 
 index.htm 
<html> 
<head> 
<title>Untitled Document</title> 
</head> 
<body bgcolor="#FFFFFF" text="#000000"> 
<form name="form1" method="post" action="skrifa.asp"> 
<textarea name="frmTexti"></textarea> 
<input type="submit" name="save" value="Submit"> 
</form> 
</body> 
</html> 
________________________________________________ 
 
Þegar ég ýti á
save þá kemur bara upp The page cannot be displayed.
 _____________________

www.bmson.is
bmson@bmson.is

Fyrra álit

hagur fyrir 22 árum, 5 mánuðum

Þú ert að fá upp ASP villu en ert ekki að sjá hana útaf “Friendly HTTP errors” bullinu í IE.

Farðu í Tools-Internet Options-Advances og afcheckaðu Show Friendly HTTP errors.

En allavega, villan er í þessari línu í skrifa.asp:

objTextaSkra.WriteLine = Request.Form(“frmTexti”)

Á að vera:

objTextaSkra.WriteLine(Request.Form(“frmTexti”))

Fyrra álit

[Notanda eytt] fyrir 22 árum, 5 mánuðum

Þetta er ekki enn að virka
_____________________________________________________________

<%@ LANGUAGE=“VBSCRIPT” %>
<%
Dim objFSO, objTextaSkra
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objTextaSkra = objFSO.CreateTextFile(Server.MapPath(“textaskra.txt”))
objTextaSkra.WriteLine(Request.Form(“frmTexti”))
objTextaSkra.Close
Set objTextaSkra = Nothing
Set objFSO = Nothing
%>
_____________________________________________________________

Þetta eru error skylaboðin >>

Microsoft VBScript runtime error ‘800a0046’

Permission denied

/text/skrifa.asp, line 5

Þetta talar eitthvað um línu 5?

lína 5 >>
Set objTextaSkra = objFSO.CreateTextFile(Server.MapPath(“textaskra.txt”))
_____________________________________________________________
 _____________________

www.bmson.is
bmson@bmson.is

Fyrra álit

jonr fyrir 22 árum, 5 mánuðum

Ertu að keyra þetta á þinni eigin tölvu eða vefþjóni út í bæ? Þú verður að gefa vefþjóninum skrifréttindi á textaskra.txt. Eða á folderinn sem þú ert að skrifa textaskra.txt í.

J.

Fyrra álit

intenz fyrir 22 árum, 5 mánuðum

PHP er auðveldara en ASP og hér er sönnun fyrir því:

<?
$skra = “blabla.txt”; // Skráin sem þú vilt skrifa í
?>
<html>
<head>
<title><? echo $skra; ?></title>
</head>
<body bgcolor=“#FFFFFF” text=“#000000”>
<form method=“post” action=“”>
<textarea name=“texti”><? include($skra); ?></textarea>
<input type=“submit” name=“submit” value=“Vista <?=$skra;?>”>
</form>
</body>
</html>
<?
if($submit){
$fp = fopen($skra,“w+”); // Les skrána, ef hún er ekki til þá býr hún hana til
if($fp){
fwrite($fp,$texti); // Skrifar í skrána
echo “<META HTTP-EQUIV=REFRESH CONTENT=0; URL=$PHP_SELF>”; // Refreshar síðuna til að síðan sýni nýja textann
}
}
?> 
<a href=“mailto:gaui@gaui.is”>gaui@gaui.is</a> / <a href="http://www.gaui.is">www.gaui.is</a

Gaui

Fyrra álit

intenz fyrir 22 árum, 5 mánuðum

Litaður kóði:
<a href=http://www.gaui.is/stuff/hugi/lesaskrifa/lesaskrifa.phps>http://www.gaui.is/stuff/hugi/lesaskrifa/lesaskrifa.phps</a>

Dæmi:
<a href=http://www.gaui.is/stuff/hugi/lesaskrifa/lesaskrifa.php>http://www.gaui.is/stuff/hugi/lesaskrifa/lesaskrifa.php</a>

PHP eygnar allt. 
<a href=“mailto:gaui@gaui.is”>gaui@gaui.is</a> / <a href="http://www.gaui.is">www.gaui.is</a

Gaui

Fyrra álit

[Notanda eytt] fyrir 22 árum, 5 mánuðum

Takk þetta er að virka :) _____________________

www.bmson.is
bmson@bmson.is

Fyrra álit

Vefsíðugerð

Vefsíðugerð

Ofurhugar

Stjórnendur

Hverjir eru inni

Korkar - Vefforritun

Skrifa í .txt eða .htm

Dýr

Dægurmál

Fræði

Leikir

Lífið

Lífsstíll

Margmiðlun

Menning

Skjár

Sport

Tónlist

Tækni

Vélar

Hugi