Возьмем например вот такой класс формирования путей по файловой системе:
00001: Public Class Common 00002: Public Shared Function Translit(ByVal X As String) As String 00003: Dim Res As New StringBuilder 00004: Dim Yes() As Char = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "a", "s", "d", "f", "g", "h", "j", "k", "l", "z", "x", "c", "v", "b", "n", "m", "Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", "A", "S", "D", "F", "G", "H", "J", "K", "L", "Z", "X", "C", "V", "B", "N", "M"} 00005: Dim Rus() As Char = {"й", "ц", "у", "к", "е", "н", "г", "ш", "з", "х", "ф", "ы", "в", "а", "п", "р", "о", "л", "д", "ж", "э", "я", "ч", "с", "м", "и", "т", "б", "ю", "й", "Ц", "У", "К", "Е", "Н", "Г", "Ш", "З", "Х", "Ф", "Ы", "В", "А", "П", "Р", "О", "Л", "Д", "Ж", "Э", "Я", "Ч", "С", "М", "И", "Т", "Б", "Ю"} 00006: Dim Eng() As Char = {"i", "s", "u", "k", "e", "n", "g", "s", "z", "h", "f", "i", "v", "a", "p", "r", "o", "l", "d", "g", "e", "i", "4", "s", "m", "i", "t", "b", "u", "i", "s", "u", "k", "e", "n", "g", "s", "z", "h", "f", "i", "v", "a", "p", "r", "o", "l", "d", "g", "e", "i", "4", "s", "m", "i", "t", "b", "u"} 00007: For Each Ch1 As Char In X 00008: If Array.IndexOf(Yes, Ch1) > 0 Then 00009: Res.Append(Ch1) 00010: Else 00011: Dim RusInd As Integer = Array.IndexOf(Rus, Ch1) 00012: If RusInd > 0 Then Res.Append(Eng(RusInd)) 00013: End If 00014: Next 00015: Return Res.ToString 00016: End Function 00017: ... 00018: End Class
И кто сказал, что вот этот отбор в SQL должен совпадать с РЕАЛЬНЫМ наличием файлов в файловой системе?
Comments (
)
Link to this page:
//www.vb-net.com/asp2/29/3.htm
|