Plats redigering

6 svar · 216 visningar · startad av voigtann1 28 apr. 2003

voigtann1Medlem sedan juni 20019 519 inlägg

Trådstart28 apr. 2003 06:47#1

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?

VideMedlem sedan dec. 19998 577 inlägg

28 apr. 2003 07:45#2

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.

voigtann1Medlem sedan juni 20019 519 inlägg

28 apr. 2003 07:49#3

förstod att detta skulle gå... hur gör man då? 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

voigtann1Medlem sedan juni 20019 519 inlägg

28 apr. 2003 10:56#4

lite hjälp här vide hur gör jag så att den ta varje tecken...

VideMedlem sedan dec. 19998 577 inlägg

28 apr. 2003 11:07#5

strText = "111001011"
for i = 1 to len( strText )
response.write "a" & mid( strText, i, 1 ) & "<br>"
next

Mvh, Vide

voigtann1Medlem sedan juni 20019 519 inlägg

28 apr. 2003 12:00#6

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..

SebbeMedlem sedan jan. 20032 285 inlägg

28 apr. 2003 13:41#7

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) & "&nbsp;")
    End If
  Next
Next

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing
%>

Jag tror att det borde funka.