PRoblemet med denne er at den tilføjer ',' komma også ved tom email.
******************************** Løsning 2 ************ Dim allmembersemail As String allmembersmail = "" If player1email = "" Then Else allmembersemail = player1email If player2email = "" Then Else allmembersemail = allmembersemail & "," & player2email If player3email = "" Then Else allmembersemail = allmembersemail & "," & player3email If player4email = "" Then Else allmembersemail = allmembersemail & "," & player4email If player5email = "" Then Else allmembersemail = allmembersemail & "," & player5email End If End If End If End If End If If player6email = "" Then Else allmembersemail = allmembersemail & "," & player6email If player7email = "" Then Else allmembersemail = allmembersemail & "," & player7email If player8email = "" Then Else allmembersemail = allmembersemail & "," & player8email If player9email = "" Then Else allmembersemail = allmembersemail & "," & player9email If player10email = "" Then Else allmembersemail = allmembersemail & "," & player10email End If End If End If End If End If If player11email = "" Then Else allmembersemail = allmembersemail & "," & player11email If player12email = "" Then Else allmembersemail = allmembersemail & "," & player12email If player13email = "" Then Else allmembersemail = allmembersemail & "," & player13email If player14email = "" Then Else allmembersemail = allmembersemail & "," & player14email If player15email = "" Then Else allmembersemail = allmembersemail & "," & player15email If player16email = "" Then Else allmembersemail = allmembersemail & "," & player16email End If End If End If End If End If End If
------------------------------------------- Nogen der har en mere holbar lsøning ?
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.
allmembersemail = "" if player1email<>"" then allmembersemail = allmembersemail & player1email & "," end if if player2email<>"" then allmembersemail = allmembersemail & player2email & "," end if ...osv...
kan du selv fjerne det sidste komma, når vi når ned til bunden?
if left(allmembersemail, 1) = "," then allmembersemail = right(allmembersemail, (len(allmembersemail)-1)) if right(allmembersemail, 1) = "," then allmembersemail = left(allmembersemail, (len(allmembersemail)-1))
Hvor svært kan det være at gøre det med et array ?
Eksempel:
Function demo() Dim a(4) As String Dim list As String a(1) = "123" a(2) = "" a(3) = "456" a(4) = "" list = "" For i = 1 To 4 If Len(a(i)) > 0 Then If Len(list) > 0 Then list = list + "," list = list + a(i) End If Next i MsgBox list End Function
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.
