Kommunerne har digitaliseret indgangen for borgerne. Men bag skærmen håndteres mange arbejdsgange stadig manuelt mellem systemer, mails og organisatoriske siloer.
Du skal bruge to løkker ind i hinanden noget i den retning: Function IngenDub(minArray) dim Samlignarray, j, i, l Samlignarray = minArray for j = 0 to ubound(Samlignarray) l = 0 for i = 0 to ubound(Samlignarray) if Samlignarray(i) = Samlignarray(j) then l = l + 1 if l > 1 then IngenDub = True Exit function end if next next IngenDub = False End Function
<% response.write IngenDub(tal) ' og tal er: Tal = (1,7,7,2,7,2) brug replace for at ændre - til , %>
Mnoer ... jeg har prøvet med følgende men kan ikke helt få det til at virke: RID_arr = Split(Session("Tid-" & (StartTime) * 100 + Minute(Interval)+y*Interval & ""), "-") For i = lbound(RID_arr) To ubound(RID_arr) If InStr(db_RessourceID, "-" & RID_arr(i) & "-") Then Else RessourceID = RessourceID & "-" & RID_arr(i) End if Next
hossein ... jeg kan ikke lige få din ændre så den kan køre med det jeg skal have. Jeg har jeg 2 tal strenge hvor jeg deler den ene op og checker om talne ligger i den anden.
Prøv det her: RID_arr = Split(Session("Tid-" & (StartTime) * 100 + Minute(Interval)+y*Interval & ""), "-") For i = lbound(RID_arr) To ubound(RID_arr) If InStr(RessourceID, "-" & RID_arr(i) & "-") Then Else RessourceID = RessourceID & "-" & RID_arr(i) End if Next
trækker du tallene ud fra en tabel (i DB)? hvis ja, så bedste måde er at lade sql sætning gøre det for dig i stedet for en funktion, da det giver også en bedre performance.
Nu skal du fortale, hvad har du gang i :) Du har 1. array med tallene fx: 1,2,2,7,7 og den skal blive til 1,2,7 Du har 2. array med tallene fx: 1,2,2,9,3 og den skal blive til 1,2,9,3
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.