Возьмем например вот такой класс формирования путей по файловой системе:

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
< THANKS ME>