24. maj 2001 - 21:30Der er
16 kommentarer og 1 løsning
Replace alle kommaer?
Jeg benytter Application-variabler til at tjekke hvilke brugere der er logget ind på min hjemmeside. Alle brugerid\'s samles i en streng ex: 1,85,34,78 Jeg benytter følgende funktioner..:
Og linien som igen fjerner brugeren: Application(\"OnlineList\") = Replace(Application(\"OnlineList\"),Session(\"uid\") & \",\",\"\")
Problemet er så at når den skal fjerne brugeren, så fjerner den også ALLE kommaene...så er det ikke så nemt at opbygge et array når man ikke har nogle adskilleles tegn ;)
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.
Jamen, så er det et andet sted du manipulerer listen. Den Replace kan ikke fjerne kommaerne hvis der står noget i Session(\"uid\"). Må vi be\' om lidt mere kode ??
Sub AddUser(NewUser) UserArray = Application(\"users\") If IsArray(UserArray) = True then Redim Preserve UserArray(Ubound(UserArray)+1) UserArray(Ubound(UserArray)) = NewUser Application(\"users\") = UserArray else Dim NewArray(0) NewArray(0) = NewUser Application(\"users\") = NewArray end if
Sub RemoveUser(DelUser) OldArray = Application(\"users\") Dim NewArray(Ubound(OldArray)-1) Counter = 0 For F = 0 to Ubound(OldArray) If OldArray(F) <> DelUser Then NewArray(Counter) = OldArray(F) end if Counter = Counter + 1 Next Application(\"users\") = NewArray End Sub
Synes godt om
Slettet bruger
24. maj 2001 - 21:59#12
Ok..prøver...vender tilbage om kort tid ;)
Synes godt om
Slettet bruger
24. maj 2001 - 22:07#13
Dim TmpArray(Ubound(OnlineListe)-1) Den spytter fint en fejl ud (Heltalskonstant var ventet)
Det virker ganske fint, du skal bare prøve dig lidt frem, det er skrevet sådan på stående fod, så jeg kan ikke teste.
Men tak anyway.
Synes godt om
Ny brugerNybegynder
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.
