webForumDet fria alternativet

Hur får man detta att funka?

ASP

4 svar · 171 visningar · startad av Cy-4

Medlem sedan maj 200180 inlägg
Frågan#1

Hallå!

Jag kommmer inte på hur jag ska få detta att funka. Jag har en sida som man skriver in ett matchreferat (man fyller i match, resultat och lite sånt) sen lagras detta i en textfil. När jag sen ska skriva ut detta så vill jag att det ska se ut så här:

Match 1 Resultat
Match 2 Resultat

Referat Match 1

Referat Match 2

Men jag har inte lyckats med det, hos mig blir det så här:

Match 1 Resultat

Referat Match 1

Match 2 Resultat

Referat Match 2

Vet nån hur jag kan lösa det? Inte med databaser tack för jag har inte lärt mig det än.

Medlem sedan juni 200032 967 inlägg
#2

man kan göra så att man lägger in informationen i olika variabler, som man sedan skriver ut i önskad ordning.

men då krävs att man har markeringar i textfilen, så man vet var de olika informationerna börjar och slutar.

hur ser din kod ut, och hur ser textfilen ut?

- - -
och du, välkommen hit! :)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

Medlem sedan maj 200180 inlägg
#3

Så här ser filen ut för att lagra allt i textfilen:

<%
Dim FSO, txt_fil
set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists("c:\inetpub\wwwroot\matchref.txt") = False Then
Set txt_fil = FSO.CreateTextFile("c:\inetpub\wwwroot\matchref.txt", 8)
Else
Set txt_fil = FSO.OpenTextFile("c:\inetpub\wwwroot\matchref.txt", 8)
End If

txt_fil.WriteLine Request.Form("match")
txt_fil.Writeline Request.Form("resultat")
If Request.Form("malskyttar") = "" Then
txt_fil.WriteLine "Tyvärr så gjorde MAIS inga mål denna match."
txt_fil.WriteLine "Inga målskyttar = inga framspelare."
Else
txt_fil.WriteLine Request.Form("malskyttar")
txt_fil.WriteLine Request.Form("assist")
End If
If Request.Form("kort") = "" Then
txt_fil.WriteLine "MAIS fick inga kort denna match."
Else
txt_fil.WriteLine Request.Form("kort")
End If
txt_fil.WriteLine Request.Form("halvlek1")
txt_fil.WriteLine Request.Form("halvlek2")
txt_fil.WriteLine Request.Form("3plus")
txt_fil.WriteLine Request.Form("2plus")
txt_fil.WriteLine Request.Form("1plus")

txt_fil.Close
%>

Och så här ser sidan ut som ska skriva ut allt:

<% Dim FSO, txt_fil, Match, Resultat, Malskyttar, Assist, Kort, Halvlek1, Halvlek2, treplus, tvaplus, ettplus
Set FSO = CreateObject("Scripting.FileSystemObject")
Set txt_fil = FSO.OpenTextFile("c:\inetpub\wwwroot\matchref.txt")
Do Until txt_fil.AtEndOfLine

Match = txt_fil.Readline
Resultat = txt_fil.Readline
Malskyttar = txt_fil.Readline
Assist = txt_fil.Readline
Kort = txt_fil.Readline
Halvlek1 = txt_fil.Readline
Halvlek2 = txt_fil.Readline
treplus = txt_fil.Readline
tvaplus = txt_fil.Readline
ettplus = txt_fil.Readline
%>
<table border="0" width="400">
<tr>
  <td align="left"><font size="5"><b><%=Match%>&nbsp;&nbsp;<%=Resultat%></b></font></td>
</tr>
<tr>
  <td align="left"><b>Målskyttar: </b><%=Malskyttar%></td>
</tr>
<tr>
  <td align="left"><b>Assist: </b><%=Assist%></td>
</tr>
<tr>
  <td align="left"><b>Kort: </b><%=Kort%></td>
</tr>
<tr>
  <td align="left"><b>Halvlek 1:</b></td>
</tr>
<tr>
  <td align="left" width="400"><%=Halvlek1%></td>
</tr>
<tr>
  <td align="left"><b>Halvlek 2:</b></td>
</tr>
<tr>
  <td align="left" width="400"><%=Halvlek2%></td>
</tr>
<tr>
  <td align="left"><b>3 plus till: </b><%=treplus%></td>
</tr>
<tr>
  <td align="left"><b>2 plus till: </b><%=tvaplus%></td>
</tr>
<tr>
  <td align="left"><b>1 plus till: </b><%=ettplus%></td>
</tr>
</table>
<br><br>
<% Loop %>
<% txt_fil.Close%>

Men just nu har jag tagit bort den första grejen som jag vill ha med, där det ska stå:
Match 1 Resultat
Match 2 Resultat osv.

Medlem sedan juni 200032 967 inlägg
#4

jag skrev om sidan som visar allt, så den använder lite arrayer.

jag måste dock rekommendera dig att lära dig att använda databaser dock, för att använda textfiler är inte helt enkelt (eller smidigt för den delen).

<% 
dim arrMatcher, arrResultat, arrMalskyttar, arrAssist, arrKort, arrHalvlek1, arrHalvlek2, arrTreplus, arrTvaplus, arrEttplus, intCounter
redim arrMatcher(0)
redim arrResultat(0)
redim arrMalskyttar(0)
redim arrAssist(0)
redim arrKort(0)
redim arrHalvlek1(0)
redim arrHalvlek2(0)
redim arrTreplus(0)
redim arrTvaplus(0)
redim arrEttplus(0)

Set FSO = CreateObject("Scripting.FileSystemObject")
Set txt_fil = FSO.OpenTextFile("c:\inetpub\wwwroot\matchref.txt")
intCounter=-1
Do Until txt_fil.AtEndOfLine
intCounter=intCounter+1

redim preserve arrMatcher(intCounter)
redim preserve arrResultat(intCounter)
redim preserve arrMalskyttar(intCounter)
redim preserve arrAssist(intCounter)
redim preserve arrKort(intCounter)
redim preserve arrHalvlek1(intCounter)
redim preserve arrHalvlek2(intCounter)
redim preserve arrTreplus(intCounter)
redim preserve arrTvaplus(intCounter)
redim preserve arrEttplus(intCounter)

arrMatcher(intCounter) = txt_fil.Readline
arrResultat(intCounter) = txt_fil.Readline
arrMalskyttar(intCounter) = txt_fil.Readline
arrAssist(intCounter) = txt_fil.Readline
arrKort(intCounter) = txt_fil.Readline
arrHalvlek1(intCounter) = txt_fil.Readline
arrHalvlek2(intCounter) = txt_fil.Readline
arrtreplus(intCounter) = txt_fil.Readline
arrtvaplus(intCounter) = txt_fil.Readline
arrettplus(intCounter) = txt_fil.Readline

loop
txt_fil.close
%>

<table border="0" width="400">
<% for intCounter = 0 to ubound(arrMatcher) %>
<tr>
<td align="left"><font size="5"><b><%=arrMatcher(intCounter)%>  <%=arrResultat(intCounter)%></b></font></td>
</tr>
<% next %>
<tr>
<td>&nbsp;</td>
</tr>
<% for intCounter = 0 to ubound(arrMatcher) %>
<tr>
<td align="left"><font size="4"><b><%=arrMatcher(intCounter)%>  <%=arrResultat(intCounter)%></b></font></td>
</tr>
<tr>
<td align="left"><b>Målskyttar: </b><%=arrMalskyttar(intCounter)%></td>
</tr>
<tr>
<td align="left"><b>Assist: </b><%=arrAssist(intCounter)%></td>
</tr>
<tr>
<td align="left"><b>Kort: </b><%=arrKort(intCounter)%></td>
</tr>
<tr>
<td align="left"><b>Halvlek 1:</b></td>
</tr>
<tr>
<td align="left" width="400"><%=arrHalvlek1(intCounter)%></td>
</tr>
<tr>
<td align="left"><b>Halvlek 2:</b></td>
</tr>
<tr>
<td align="left" width="400"><%=arrHalvlek2(intCounter)%></td>
</tr>
<tr>
<td align="left"><b>3 plus till: </b><%=arrTreplus(intCounter)%></td>
</tr>
<tr>
<td align="left"><b>2 plus till: </b><%=arrTvaplus(intCounter)%></td>
</tr>
<tr>
<td align="left"><b>1 plus till: </b><%=arrEttplus(intCounter)%></td>
</tr>

<tr>
<td>&nbsp;</td>
</tr>
<%next%>

</table>

var det någonting sådant du hade tänkt dig?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

Medlem sedan maj 200180 inlägg
#5

Tack så mycket @nders!

Det var precis så jag hade tänkt mig och ja jag ska lära mig att använda databaser, jag har bara inte hunnit så långt än.

272 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
144 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)