største tal

Tjae... det er der sikkert flere måder at gøre på - men her ser du det hvor tallene er i et array:

<%
resultat=null
strarr = split("177118475100;177118475101;177118475103;177118475105",";")
for a=0 to ubound(strarr)
if (resultat="" or isnull(resultat)=True) then
resultat=strarr(a)
elseif (resultat<>"" and right(strarr(a),3)>right(resultat,3)) then
resultat=strarr(a)
end if
next
response.write resultat
%>

\Dan

WOW... Hej igen... Det kunne jo være jeg skulle prøve at læse hele dit spørgsmål inden jeg kommer med en løsning... hehe

<%
strtal = "177118475100;177118475101;177118475103;177118475105"
ftest = left(split(strtal,";")(0),9)
strens = split(strtal,";")
for b=0 to ubound(strens)
if "" & ftest & ""="" & left(strens(b),9) & "" then
ens=True
else
ens=False
end if
next
if ens=True then
resultat=null
strarr = split(strtal,";")
for a=0 to ubound(strarr)
if (resultat="" or isnull(resultat)=True) then
resultat=strarr(a)
elseif (resultat<>"" and right(strarr(a),3)>right(resultat,3)) then
resultat=strarr(a)
end if
next
response.write right(resultat,3)
end if
%>

Denne her kommer kun med resultatet hvis de første 9 tal er ens i dem alle...

\Dan

ALternativt:

<%@ language="vbscript" %>
<%
tn = 0
s = "177118475100;177118475107;177118475101;179118475105;177118475103;3501118475105;177118475105"
arrs = split(s,";")
for each sn in arrs
  n = cdbl(sn)
  if int(n / 1000) = int(177118475) then
    if tn < n then
      tn = n
    end if
  end if
next

response.Write("Største tal: " & tn & "<br>")
response.Write("Største tal sidste 3 cifre: " & right(cstr(tn),3) & "<br>")
%>

Tak til begge
har givet dannielsen point
håber det er ok

Ln

Se, det kommer jo an på hvilken løsning du har brugt... :)

Tak for point...!

- hav en fortsat god dag.

\Dan