---
title: "Loopa ut där sträng finns i array."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/121201-loopa-ut-där-sträng-finns-i-array"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ConnyFox"
published: "2005-01-28T00:25:37.000Z"
updated: "2005-01-28T22:11:59.000Z"
replies: 4
views: 236
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/121201-loopa-ut-där-sträng-finns-i-array"
---

# Loopa ut där sträng finns i array.

## #1 — ConnyFox, 2005-01-28T00:25Z

ok jag använder mig utav aspwebb´s filemanager
[Aspwebb´s filemanager](http://www.aspwebb.com/artikel/artikel.asp?ID=48&katid=22&AmneID=1) 
jag har gjort en inloggning och i databasen har jag denna tabell

**rights**
usename
foldername

jag hämtar sedan ut alla foldername som användaren man är inloggad som har "rättigheter till" och lägger dessa i en array.
minarray = array(folder1,folder2 osv..)

Nu till problemet.. hur gör jag för att i denna koden endast loopa ut dom mapparna som jag har rättigheter till (dvs dom finns med i minarray

Antar det är i denna koden man skall fixa o trixa..

```
AntalMappar = MyDrive.Count
For Each Folder in MyDrive

  I = I + 1
  Typ = "kb" 
  Size = Folder.size / 1000 
  Tecken = instr(Size,",") + 1 
  Size = Left(Size,Tecken) 
	' ** Kollar storleken : **
	If Size = "0,0" Then 
		Size = Folder.size 
		Typ = "byte" 
	ElseIf Tecken = 6 then 
		Typ = "mb" 
		Size = Folder.size / 1000000 
		Tecken = instr(Size,",") + 2 
		Size = Left(Size,Tecken) 
	End if
```

Eller om någon vet något liknande det jag söker som går att ladda ner någonstanns.

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

## #2 — Jesper T, 2005-01-28T00:34Z

Ligger det ett bilmärke i en egen kolumn eller ligger alla kommaseparerade i en och samma kolumn i databasen?

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

## #3 — Jesper T, 2005-01-28T01:03Z

```
Dim dinbilarray
dinbilarray = "Porshe,Volvo"
	
sub checkarray(byVal bilmarke)
	if instr(dinbilarray,bilmarke) > 0 then Response.write bilmarke &"<br>"
end sub

dbarray = array("Saab","Toyota","Volvo","Skoda","Jeep")

for i = 0 to ubound(dbarray)
	 If not dbarray(i) = "" then
			checkarray(trim(dbarray(i)))
	 End if
next
```

Du gjorde ju om frågan så drastiskt men ja, ja.

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

## #4 — ConnyFox, 2005-01-28T13:23Z

Mjo jag kom på att det var bättre o fråga mer exakt vad det var jag var ute efter.. ;)

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

## #5 — ConnyFox, 2005-01-28T22:11Z

någon som vet hur man kan implentera det på koden jag visade?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/121201-loopa-ut-där-sträng-finns-i-array