1. VisualBasic / Говнокод #422

    −512

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    Public Function MakeShort(Parametr As String) As String
    Dim temp As String
        
    Dim f1index As Integer
    Dim Lastindex As Integer
        
    If (Parametr <> "") Then
    temp = Strings.Replace(Parametr, "\", " ")
    temp = Strings.Replace(temp, "/", " ")
    temp = Strings.Replace(temp, ":", " ")
    temp = Strings.Replace(temp, "*", " ")
    temp = Strings.Replace(temp, "?", " ")
    temp = Strings.Replace(temp, "<", " ")
    temp = Strings.Replace(temp, ">", " ")
    temp = Strings.Replace(temp, "|", " ")
        
        
        f1index = Strings.InStr(temp, Strings.Chr(34))
        Lastindex = Strings.InStrRev(temp, Strings.Chr(34))
        
        temp = Strings.Mid(temp, f1index, Lastindex)
        
        MakeShort = Strings.Replace(temp, Strings.Chr(34), "")
    Else
        MakeShort = ""
    End If
    End Function

    Что то типа парсера... или точнее готовится так из строки имя файла

    Запостил: guest, 19 Января 2009

    Комментарии (55) RSS

    Добавить комментарий