Sammenligne to strenge

Du er nødt til at splitte strengene med Split() og så løbe arrayene igennem:

<%
  VarStrA = "1,23,56,340"
  VarStrB = "8,25,56,321"
  arrStrA = Split(VarStrA, ",")
  arrStrB = Split(VarStrB, ",")

  For intIndex = 0 To UBound(arrStrA)
    If arrStrA(intIndex) = arrStrB(intIndex) Then intMatches = intMatches + 1
  Next

  Response.Write "Der er " & intMatches & " der er fælles."
%>

Jeg har ikke haft mulighed for at teste det. :-)

s = Split(VarStrA)
VCompare = 0
for Each item in s
  if inStr(VarStrB, Item) > 0 then
    VCompare = VCompare + 1 
  end if
next

response.write("Der er" & Vcompare & "der er fælles")

coltau den tror jeg ikke virker....

hvis nu 2 bliver fundet ... 2 kan jo godt være i 23 og det er jo ikke det samme...

den første er vist god nok

Ja der er forskel på de to måder.
invisibleman's metode kontrollere om første tal i VarStrA = første tal i VarStrB osv ...

Mit genneløb "skulle" tælle hvormange gange de enkelte tal i VarStrA indgår i VarStrB

Det vil sige de giver forskellige resultater.

Tror han ville tælle om første tal i VarStrA var det samme som første tal i VarStrB and so on ?

<%

  VarStrA = "1,23,56,340"
  VarStrB = "8,25,56,321"
  arrStrA = Split(VarStrA, ",")
  arrStrB = Split(VarStrB, ",")

donear=0
   
do until donear >= arrStrA.Count
  For intIndex = 0 To UBound(arrStrB)
    If arrStrA(donear) = arrStrB(intIndex) Then   
    intMatches = intMatches + 1
  Next
donear=donear + 1
loop

Response.Write "Der er " & intMatches & " der er fælles."
%> 

burde det ikek virke?

De strenge der matches behøver ikka at have de matchende tal på samme sted i strengen:

VarStrA = "1,23,56,340"
  VarStrB = "8,25,27,33,44,56,321"

Skal give et match på een, eller blot true for match større end 0


/s

Oky - i programmering gælder alle kneb.

VarStrA = "," & VarStrA & "," ' Sikre at alle tal er omklamret af komma
VarStrB = "," & VarStrB & "," ' på begge sider.
s = Split(VarStrA, ",")
VCompare = 0
for Each item in s
  if inStr(VarStrB, "," & Item & ",") > 0 then ' Find tallet med , omkring
    VCompare = VCompare + 1
  end if
next

response.write("Der er" & Vcompare & "der er fælles")

Det er måske ikke så flot men det virker.

arrStrA = Split(VarStrA, ",")
arrStrB = Split(VarStrB, ",")
For Each intIndexA in arrStrA
    For Each intIndexB in arrStrB
    if intIndexA=intIndexB then
          Response.Write(intIndexA)
    end if
    Next
  Next