6 svar · 216 visningar · startad av voigtann1
hej!
Jag är tillbaka nu från mitt LAN jag hade... och har börjat tänka ut en ny "plats" kod... jag har inte med mig koderna i skolan men de som vill kan jag posta de koder jag har nu.
Min fråga är: Om jag har ett text dokument som kan se ut så här:
111101111000
000000000011
111101111011
Där 1:orna finns ska det finnas platser.. så den första raden blir:
a1,a2,a3,a4,a6 etc etc
Kan man göra så här?
alltså, kan man göra en txt fil som gör upp ett "mönster" på hur placeringarna är på ett LAN?
Re: Plats redigering
voigtann1 skrev:
Kan man göra så här?
Ja! ;)
Loopa igenom raderna, och i den loopen loopar du igenom alla enskilda tecken och gör vad du nu skall göra med dom.
förstod att detta skulle gå... hur gör man då? :e vi kan vänta tills jag kommer hem.. då har jag lite "bättre" saker att jobba med.. har inget jag kan jobba med här :(
lite hjälp här vide :e hur gör jag så att den ta varje tecken...
strText = "111001011"
for i = 1 to len( strText )
response.write "a" & mid( strText, i, 1 ) & "<br>"
next
Mvh, Vide
Nu är problemet att personerna jag gör detta till vill gärna ha så att dom själva kan "sätta" ut 1 och 0 och sen köra nya rader.. jag är inte så haj på hur man jobbar på det sättet..
Vad är problemet? Att ta ut informationen ur en textfil?
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"))
i = 0
Do Until objTS.AtEndOfStream
arrText(i) = objTS.ReadLine
i = i + 1
Loop
For j = 0 To UBound(arrText)
For k = 1 To Len(arrText(j))
If Mid(arrText(j), k, 1) = 1 Then
Response.Write("a" & Mid(arrText, k, 1) & " ")
End If
Next
Next
objTS.Close
Set objTS = Nothing
Set objFSO = Nothing
%>
Jag tror att det borde funka. :)