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 ?
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.
