Avatar billede spaceman Nybegynder
25. juli 2001 - 10:44 Der er 14 kommentarer og
1 løsning

sammenligning af x antal strings

Antag følgende
string1 = \"blah\"
string2 = \"buuh\"
string3 = \"bøøh\"
string4 = \"olebole\"
string5 = \"test\"
string6 = \"buuh\"
stringx = .....

og så videre

Jeg ønsker en funktion der kan kontrollere at samtlige strenge er forskellige fra hinanden.

Funktionen skal som vist i eksemplet kunne tage x antal strenge og sammenligne. Altså i ovenstående string2 og string6
Avatar billede runesoft Nybegynder
25. juli 2001 - 10:51 #1
function compare(arr1,arr2)
found=0
arr1len=ubound(arr1)
arr2len=ubound(arr2)
for i=0 to arr1len
for j=i to arr2len
if arr1(i)=arr2(j) then
found=1
end if
next
next
compare=found
end function
Avatar billede runesoft Nybegynder
25. juli 2001 - 10:52 #2
øhh... her er den rigtigt. strengene ligger i et array

function compare(arr)
found=0
arrlen=ubound(arr)
for i=0 to arrlen-1
for j=i+1 to arrlen
if arr(i)=arr(j) then
found=1
end if
next
next
compare=found
end function
Avatar billede runesoft Nybegynder
25. juli 2001 - 10:55 #3
Jeg kan også komme med lidt kommentarer hvis det er
Avatar billede spaceman Nybegynder
25. juli 2001 - 11:01 #4
Jeg tester lige inden du får dine point ;-)
Avatar billede runesoft Nybegynder
25. juli 2001 - 11:02 #5
Så afslutter den lidt hurtigere

function compare(arr)
found=0
arrlen=ubound(arr)
for i=0 to arrlen-1
for j=i+1 to arrlen
if arr(i)=arr(j) then
found=1
j=arrlen
i=arrlen
end if
next
next
compare=found
end function
Avatar billede spaceman Nybegynder
25. juli 2001 - 11:04 #6
Hvordan bruges selve funktionen

Skal jeg lave sætte alle strenge sammen i et array først eller hva?
Avatar billede runesoft Nybegynder
25. juli 2001 - 11:04 #7
du kan også bruge StrComp til at sammenligne strengene. Der er lidt flere muligheder :-)
Avatar billede runesoft Nybegynder
25. juli 2001 - 11:05 #8
to sek...
Avatar billede runesoft Nybegynder
25. juli 2001 - 11:08 #9
dim array(4)
array(0)=\"errw\"
array(1)=\"erw\"
array(2)=\"er\"
array(3)=\"er\"
Response.Write compare(array)
Avatar billede runesoft Nybegynder
25. juli 2001 - 11:12 #10
Og nu skulle den ikke være case sensitiv

function compare(arr)
found=0
arrlen=ubound(arr)
for i=0 to arrlen-1
for j=i+1 to arrlen
if not StrComp(arr(i), arr(j), 1)    then
found=1
j=arrlen
i=arrlen
end if
next
next
compare=found
end function
Avatar billede spaceman Nybegynder
25. juli 2001 - 11:12 #11
Jeg tester lige inden du får dine point
Avatar billede runesoft Nybegynder
25. juli 2001 - 11:14 #12
nej, glem lige den sidste
Avatar billede spaceman Nybegynder
25. juli 2001 - 11:19 #13
Nu virker det sgu tak for hjælpen
Avatar billede spaceman Nybegynder
25. juli 2001 - 11:19 #14
Hov du skal da lige have dine point ;-)
Avatar billede runesoft Nybegynder
25. juli 2001 - 11:21 #15
Jo tak :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester