asp - Fjern array indhold som er ens - Udvikleren.dk - Programmering, webdesign og grafik

Tags: asp

Bruger #5371 @ 10.03.05 21:18

Hej

Jeg er ved at lave et system som henter ID numre fra en database og gemmer dem i et array, disse ID numre kan meget vel være ens.

Det jeg prøver at lave er en slags funktion som kan fjerne de ID numre der ligner hinanden, og måske lave et nyt array hvor der kun er et stk. af hvert ID nummer.

Er der nogen af jer som kan hjælpe mig med dette, kan ikke rigtig komme på en måde at gøre det på.

//Nick

9 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 2 karma

Sorter efter stemmer Sorter efter dato

Bruger #5779 @ 15.03.05 08:44

305

Er det muligt jeg kan få dig til at lave et eks. i vbscript? Behøver ikke være det helt store.

//Nick

Jeg har lavet et eksempel til dig i vbscript..

Kode


Option Explicit

' Definer variabler
Dim ArrayOfValues(10)
Dim UniqueArray
Dim NumberOfValues, ValueExists
Dim A, B

' Udfyld array af værdier.
ArrayOfValues(0) = 1
ArrayOfValues(1) = 3
ArrayOfValues(2) = 7
ArrayOfValues(3) = 4
ArrayOfValues(4) = 5
ArrayOfValues(5) = 3
ArrayOfValues(6) = 1
ArrayOfValues(7) = 2
ArrayOfValues(8) = 6
ArrayOfValues(9) = 2

' Opret array til at gemme unikke værdier.
ReDim UniqueArray(1)

' Antal unikke værdier.
NumberOfValues = 0

For A = LBound(ArrayOfValues) To UBound(ArrayOfValues) Step 1

	' Reset boolean som angiver om værdien blev fundet i UniqueArray.
	ValueExists = False

	' Løb UniqueArray igennem og find ud af om værdien fra ArrayOfValues(A) eksistere.
	For B = LBound(UniqueArray) To UBound(UniqueArray) Step 1
		If ArrayOfValues(A) = UniqueArray(B) Then
			ValueExists = True
		End If
	Next
	
	' Hvis værdien fra ArrayOfValues(A) ikke eksistere.
	If Not ValueExists Then
	
		' Redimensioner UniqueArray's størrelse (her er plads til optimering).
		If NumberOfValues >= UBound(UniqueArray) Then
			ReDim Preserve UniqueArray(NumberOfValues+1)
		End If
		
		' Tilføj værdien og optæl tælleren.
		UniqueArray(NumberOfValues) = ArrayOfValues(A)
		NumberOfValues = NumberOfValues + 1
	
	End If

Next

' Udskriv unikke værdier.
Dim UniqueValuesString
UniqueValuesString = ""

For A = LBound(UniqueArray) To UBound(UniqueArray) Step 1
	UniqueValuesString = UniqueValuesString & UniqueArray(A)
	
	If A < UBound(UniqueArray)-1 Then
		UniqueValuesString = UniqueValuesString & ", "
	End If
Next

MsgBox(UniqueValuesString)

Dette script tager et array og laver det om til et nyt array hvor værdien fra array 1 kun optræder en gang.

Håber du kan bruge det.

Mvh. Thomas Lykke Petersen

Bruger #5779 @ 11.03.05 08:12

305

Hej

Jeg er ved at lave et system som henter ID numre fra en database og gemmer dem i et array, disse ID numre kan meget vel være ens.

Det jeg prøver at lave er en slags funktion som kan fjerne de ID numre der ligner hinanden, og måske lave et nyt array hvor der kun er et stk. af hvert ID nummer.

Er der nogen af jer som kan hjælpe mig med dette, kan ikke rigtig komme på en måde at gøre det på.

//Nick

Den nemmeste måde er jo at lave en algoritme der i pseudokode vil ligne noget i den retning:

Kode


Var Array1
Var Array2

For Each Element1 in Array1

    Var ExistsInArray2 = False
    
    For Each Element2 in Array2
        If Element1 = Element2 Then
             ExistsInArray2 = True
             Break
        End If
    Next

    If Not ExistsInArray2 Then
        Array2.Add ( Element1 )
    End If

Next

Bemærk at det her bare er pseudokode til at beskrive algoritmen og altså ikke en egentlig implementering i et rigtigt sprog, men det skulle du jo nemt kunne gøre udfra ovenstående beskrivelse.

Jeg håber det hjælper dig på vej mod en løsning.

Mvh. Thomas Lykke Petersen

Bruger #5371 @ 13.03.05 19:29

Har prøvet at stable en algoritme noget lignende det på benene i vbscript, men kan ikke ligefrem få den til at virke.

Kode

		For a = LBound(arrIDListe) to UBound(arrIDListe)
			For b = LBound(arrIDListe) to UBound(arrIDListe) step 2
				if arrIDListe(a) = arrIDListe(b) then
					ExistsAlreadyInArray = "ja"
				End if
			Next
			
			if ExistsAlreadyInArray = "ja" then
				strNewIDListe = strNewIDListe & "," & arrIDListe(a)
			else 
				strNewIDListe = strNewIDListe & "," & arrIDListe(a) & "," & arrIDListe(b)
			end if
		Next

Er der nogen som har en bedre idé til hvordan problemet kan løses? Eller nogen som umiddelbart kan se hvad jeg gør forkert?

//Nick

Bruger #5779 @ 13.03.05 19:36

305

Har prøvet at stable en algoritme noget lignende det på benene i vbscript, men kan ikke ligefrem få den til at virke.

Er der nogen som har en bedre idé til hvordan problemet kan løses? Eller nogen som umiddelbart kan se hvad jeg gør forkert?

//Nick

Et hurtigt kig på den kan jeg se at du aldrig sætter din variabel til "nej", så den vil altid være "ja" efter første gang den bliver sat.

Den løsning jeg er kommet op med skulle gerne fungere, men det er muligt at det kan gøres på en mere optimal måde, hvis lige man sætter sig ned og kigger på den.

Mvh. Thomas Lykke Petersen

Bruger #5371 @ 13.03.05 19:58

Har prøvet at stable en algoritme noget lignende det på benene i vbscript, men kan ikke ligefrem få den til at virke.

Er der nogen som har en bedre idé til hvordan problemet kan løses? Eller nogen som umiddelbart kan se hvad jeg gør forkert?

//Nick

Et hurtigt kig på den kan jeg se at du aldrig sætter din variabel til "nej", så den vil altid være "ja" efter første gang den bliver sat.

Den løsning jeg er kommet op med skulle gerne fungere, men det er muligt at det kan gøres på en mere optimal måde, hvis lige man sætter sig ned og kigger på den.

Mvh. Thomas Lykke Petersen

ja er selvfølgelig rigtigt, den vil altid være "ja" så

Men kan dog stadigvæk ikke få den til at virke

Variablen bliver aldrig ja for det er jo ikke sikkert de to tal ligger ligeved siden af hinanden. Og kan jo ikke rigtigt lave loops så det passer med det antal poster der er i arrayen, da det jo er forskelligt hver gang.

//Nick

Bruger #5779 @ 14.03.05 08:34

305

ja er selvfølgelig rigtigt, den vil altid være "ja" så Men kan dog stadigvæk ikke få den til at virke Variablen bliver aldrig ja for det er jo ikke sikkert de to tal ligger ligeved siden af hinanden. Og kan jo ikke rigtigt lave loops så det passer med det antal poster der er i arrayen, da det jo er forskelligt hver gang.

//Nick

I Vbscript / VB6 kan du finde længden af et array med UBound(myArray) funktionen. Og jeg kan se at det er det samme array du tester på, i min pseudokode anvender jeg 2 arrays! Du smider de eksisterende i enden af en streng, brug et array i stedet.

Mvh. Thomas Lykke Petersen

[Redigeret d. 14/03-05 08:36:43 af Thomas Lykke Petersen]

Bruger #5371 @ 14.03.05 22:29

ja er selvfølgelig rigtigt, den vil altid være "ja" så Men kan dog stadigvæk ikke få den til at virke Variablen bliver aldrig ja for det er jo ikke sikkert de to tal ligger ligeved siden af hinanden. Og kan jo ikke rigtigt lave loops så det passer med det antal poster der er i arrayen, da det jo er forskelligt hver gang.

//Nick

I Vbscript / VB6 kan du finde længden af et array med UBound(myArray) funktionen. Og jeg kan se at det er det samme array du tester på, i min pseudokode anvender jeg 2 arrays! Du smider de eksisterende i enden af en streng, brug et array i stedet.

Mvh. Thomas Lykke Petersen

[Redigeret d. 14/03-05 08:36:43 af Thomas Lykke Petersen]

Jeg ved godt jeg smider koderne i enden af en streng, og denne streng bliver også omdannet til et array senere via split funktionen. Men kan dog stadig ikke få den til at sorterei mine tal.

Er det muligt jeg kan få dig til at lave et eks. i vbscript? Behøver ikke være det helt store.

//Nick

Bruger #5371 @ 15.03.05 22:00

Er det muligt jeg kan få dig til at lave et eks. i vbscript? Behøver ikke være det helt store.

//Nick

Jeg har lavet et eksempel til dig i vbscript..

Kode


Option Explicit

' Definer variabler
Dim ArrayOfValues(10)
Dim UniqueArray
Dim NumberOfValues, ValueExists
Dim A, B

' Udfyld array af værdier.
ArrayOfValues(0) = 1
ArrayOfValues(1) = 3
ArrayOfValues(2) = 7
ArrayOfValues(3) = 4
ArrayOfValues(4) = 5
ArrayOfValues(5) = 3
ArrayOfValues(6) = 1
ArrayOfValues(7) = 2
ArrayOfValues(8) = 6
ArrayOfValues(9) = 2

' Opret array til at gemme unikke værdier.
ReDim UniqueArray(1)

' Antal unikke værdier.
NumberOfValues = 0

For A = LBound(ArrayOfValues) To UBound(ArrayOfValues) Step 1

	' Reset boolean som angiver om værdien blev fundet i UniqueArray.
	ValueExists = False

	' Løb UniqueArray igennem og find ud af om værdien fra ArrayOfValues(A) eksistere.
	For B = LBound(UniqueArray) To UBound(UniqueArray) Step 1
		If ArrayOfValues(A) = UniqueArray(B) Then
			ValueExists = True
		End If
	Next
	
	' Hvis værdien fra ArrayOfValues(A) ikke eksistere.
	If Not ValueExists Then
	
		' Redimensioner UniqueArray's størrelse (her er plads til optimering).
		If NumberOfValues >= UBound(UniqueArray) Then
			ReDim Preserve UniqueArray(NumberOfValues+1)
		End If
		
		' Tilføj værdien og optæl tælleren.
		UniqueArray(NumberOfValues) = ArrayOfValues(A)
		NumberOfValues = NumberOfValues + 1
	
	End If

Next

' Udskriv unikke værdier.
Dim UniqueValuesString
UniqueValuesString = ""

For A = LBound(UniqueArray) To UBound(UniqueArray) Step 1
	UniqueValuesString = UniqueValuesString & UniqueArray(A)
	
	If A < UBound(UniqueArray)-1 Then
		UniqueValuesString = UniqueValuesString & ", "
	End If
Next

MsgBox(UniqueValuesString)

Dette script tager et array og laver det om til et nyt array hvor værdien fra array 1 kun optræder en gang.

Håber du kan bruge det.

Mvh. Thomas Lykke Petersen

Sådan nu virker det, fandt ud af at det slet ikke var de funktioner jeg havde lavet udfra din eksempel kode det var galt med, men den funktion jeg havde lavet lige inden som spyttede en masse ubrugelige tal ud

Men tusind tak for hjælpen

Du har været en enorm stor hjælp.

//Nick

Bruger #5779 @ 16.03.05 10:20

305

Det var så lidt.

Mvh. Thomas Lykke Petersen

Fjern array indhold som er ens

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler