---
title: "Plats redigering"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/75227-plats-redigering"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2003-04-28T06:47:50.000Z"
updated: "2003-04-28T13:41:54.000Z"
replies: 6
views: 216
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/75227-plats-redigering"
---

# Plats redigering

## #1 — voigtann1, 2003-04-28T06:47Z

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?

Permalänk: https://www.webforum.nu/p/75227

## #2 — Vide, 2003-04-28T07:45Z

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.

Permalänk: https://www.webforum.nu/p/1026610

## #3 — voigtann1, 2003-04-28T07:49Z

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 :(

Permalänk: https://www.webforum.nu/p/1026614

## #4 — voigtann1, 2003-04-28T10:56Z

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

Permalänk: https://www.webforum.nu/p/1026719

## #5 — Vide, 2003-04-28T11:07Z

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

Mvh, Vide

Permalänk: https://www.webforum.nu/p/1026730

## #6 — voigtann1, 2003-04-28T12:00Z

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

Permalänk: https://www.webforum.nu/p/1026760

## #7 — Sebbe, 2003-04-28T13:41Z

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

Permalänk: https://www.webforum.nu/p/1026832

---

Tråden på webben: https://www.webforum.nu/amne/asp/75227-plats-redigering