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

• #33797 poffsoft veterán Fferi50 #33795

  Új Válasz 2017-01-23 12:09:57 #33797

  Ú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

  

  poffsoft

  veterán

  válasz Fferi50 #33795 üzenetére

  Nekem eszembe sem jutott volna.

  Ezt sikerült összehoznom végül:

  Public Function STR_SPLIT(ByVal str As String, ByVal sep As String, Optional ByVal n As Integer = 0)
Dim V() As String
Dim num As Integer
V = Split(str, sep)
num = UBound(V)
If num < n Then STR_SPLIT = "#SOK": Exit Function
If n = 0 Then STR_SPLIT = num Else STR_SPLIT = V(n - 1)
End Function

  a képlet pedig:
  =STR_SPLIT(CELLA("filenév");"\";STR_SPLIT(CELLA("filenév");"\"))

  ahol:
  =STR_SPLIT(CELLA("filenév");"\")
  megadja, hány darabból áll a mappanév,
  =STR_SPLIT(CELLA("filenév");"\";2)
  megadja, hogy a 2. mappa nevét.
  

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