Új hozzászólás Aktív témák

• #26856 Fferi50 Topikgazda azopi74 #26855

  Új Válasz 2015-05-10 11:57:27 #26856

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz azopi74 #26855 üzenetére

  Szia!

  Akkor marad egy kis makrós történet benne...
  A sok üres sor miatt egy kicsit meg kell szerintem "simogatni" a függvényt:
  Function JoinAll(InputArray As Variant, delim As String) As String
  Dim join1 As String
  join1 = Join(InputArray, delim)
  Do While InStr(join1, String(2, delim)) > 0
  join1 = Replace(join1, String(2, delim), delim)
  Loop
  If Right(join1, 1) = delim Then join1 = Left(join1, Len(join1) - 1)
  If Left(join1, 1) = delim Then
  JoinAll = Mid(join1, 2)
  Else
  JoinAll = join1
  End If
  End Function

  Így nem marad benne egymást követő határoló, továbbá az elején és a végén sem.

  Üdv.

Új hozzászólás Aktív témák