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

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