פ פיסטוק חלבי
18 באוק׳ 2020, 12:33

@גבאי
שינתי בכל המקומות וזה מה שהוא כותב
המחשב לא נותן לי לעלות צ''מ ולכן אני מעתיק

Function GetNameFilds(ByVal strText As String)
Dim tmpNamesFildsFile(100) As String

    s = 1
    Do
    filds = Mid(strText, s, InStr(s, strText, "#") - s)
    cntFilds = cntFilds + 1
    tmpNamesFildsFile(cntFilds) = filds
    strText = Replace(strText, "%" & filds, "")
    s = InStr(s, strText, "%") + 1
    If s = 1 Then Exit Do
    Loop
    
    Dim NamesFildsFile() As Variant
    ReDim NamesFildsFile(cntFilds)
    
    For f = 1 To cntFilds
    NamesFildsFile(f) = tmpNamesFildsFile(f)
    Next
    GetNameFilds = NamesFildsFile

End Function

השורה הזו filds = Mid(strText, s, InStr(s, strText, "#") - s)
מודגשת בצהוב