C Cy-4 Medlem sedan maj 2001 80 inlägg Frågan 9 juni 2001 09:21 #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.
@nders Medlem sedan juni 2000 32 967 inlägg 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>
C Cy-4 Medlem sedan maj 2001 80 inlägg 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%> <%=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.
@nders Medlem sedan juni 2000 32 967 inlägg 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> </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> </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>
C Cy-4 Medlem sedan maj 2001 80 inlägg 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.