I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.