Сортировка по маске вида "XYXY95"

[ILVI]

Интересует такой момент, как его реализовать.
Допустим имею текстовый файл с 6-ти значными числами, записанными одно число на строку от 100000 до 999999.
Как отсортировать все числа, которые подходят под данную маску, как все это реализовать, и впоследствии в файле остались только числа, подходящие под маску.
Т.е. результат должен быть примерно таким:
121295
131395
141495
..........
191995
202095
212195
232395
242495
..........
292995
303095
313195
..........
979795
989895

Помогите, пожалуйста, лучше вместе с кодом, а то я в этом деле новичек совсем.

[GSerg]

Конечный порядок сортировки неясен.

[ILVI]

А что тут не ясного, из всего списка чисел, должны остаться только те, которые удовлетворяют маске.

[GSerg]

В первом варианте поста число 212195 стояло выше 131395. Это было непонятно.

[Ramzes]

регулярные выражения

[ILVI]

регулярные выражения

Мне это совсем ни чего не говорит, ребята, будьте чуть терпимее чтоли, я ж говорю, что совсем чайник еще, а вы отвечаете одназначно в одно слово. Мнеб кто помог нормально разобраться, а лучше с примером кода.

[Ramzes]

MSDN - Это раз
Google - Это два
Яндекс - это три
Программу за тебя писать здесь никто не будет

[ILVI]

Программу за тебя писать здесь никто не будет

За файлик спасибо, а про программу, так я и не прошу писать, может у кого есть какие примеры, а в поисковые системы меня отправлять не надо, на то здесь и форум, чтоб проблемы по этой тематике и решать, а иначе вы и гроша ломанного не стоите вместе с форумам, если считаете, что он только для самых крутых, коем вы и не являетесь

[Thomas]

GSerg
Ramzes
Приветствую.
Мы в школе еще не проходили работу с файлами. В сентябре начнем.
Потому спрашиваю у Вас.
В данном случае можно использовать интерфейс IComparer с функцией Compare(String.Compare)?
Или использование регулярных выражений наиболее рациональный способ.
Заранее спасибо.

[Ramzes]

Thomas
Во всяком случае это будет гараздо быстрее и легче в разработке (по крайней мере для меня), также я думаю, что смама программа будет работать быстрее при использование RegEx. Потому, что по личному опыту могу сказать, что большинство тормозов программ свзяно со строками

[Andrey Fedorov]

Считать в таблицу и обыкновенный SELECT по ней.
Вроде достаточно просто...

[ILVI]

Считать в таблицу и обыкновенный SELECT по ней.

Это как, не очень понимаю?

[GSerg]

Это просто подход человека, применяющего SQL для сортировки массива (кто-то тут на форуме уже признавался в этом)...

[ILVI]

Самый главный вопрос - это как сделать, чтобы цифры сопоставлялись с буквами, ведь Х и У в данном случаи не дожны иметь только одно значение, например, "1", а перебираться от 0 до 9

[GSerg]

Самый главный вопрос - это как понять, откуда вдруг взялись буквы.

[ILVI]

Самый главный вопрос - это как понять, откуда вдруг взялись буквы.

Так я ведь ввожу определенную маску именно, в таком примерно ввиде как описал, а программа, должна определить, подходит ли значение под эту маску или нет, если нет, то удалить его, если до, то оставить.

[ILVI]

Маску я ввожу в диалоге пользователя в том виде как есть, и она имеет тип строковых данных

[Ramzes]

ILVI
ты мне обьясни, чем тебе RegEg не подходит?

[ILVI]

ILVI
ты мне обьясни, чем тебе RegEg не подходит?

Весь МСДН про нее прочитал, а так толком и не понял, как с ней работать, как под букву подставить число

[GSerg]

Что, вот это всё прочитал и не понял?

[ILVI]

Что, вот это всё прочитал и не понял?

Не то что не понял , что там, а как это реализовать

[GSerg]

Ну там подраздел небольшой, про обратные ссылки. Его ещё раз прочитай?..

[сесодмин]

Sub FilterMask()

Dim line As String

Dim sr As IO.StreamReader = IO.File.OpenText("data.txt") 'Первый файл с всеми числами 100000 - 999999
Dim sw As IO.StreamWriter = IO.File.AppendText("data2.txt") 'Второй файл (маска XYXY95)

Do While sr.Peek <> -1

line = sr.ReadLine

If line.Substring(4, 2) = 95 Then
If line.Substring(0, 1) = line.Substring(2, 1) Then
If line.Substring(1, 1) = line.Substring(3, 1) Then

sw.WriteLine(line)

End If
End If
End If

Loop

sw.Close()
sr.Close()

End Sub

[GSerg]

сесодмин
Каждый раз при смене маски будешь переписывать код?

[сесодмин]

Автор вроде писал что маска не меняется.

Если уж очень надо, то можно сделать чар за чаром:

...
If line.Substring(0, 1) = Textbox1.Text _
And line.Substring(1, 1) = Textbox2.Text _
And line.Substring(2, 1) = Textbox3.Text
...

Ну ты понял. Элементарный логический фильтр AND на схожесть всех условий. Для фильтровых задач такого уровня не вижу смысл доставать плагин с регулярными выражениями, тем более что в VB.NET (в отличии от, например, ASP.NET), в основном пакете компонентов такого компонента нет.

[GSerg]

Автор вроде писал что маска не меняется.

Автор писал "Маску я ввожу в диалоге пользователя в том виде как есть, и она имеет тип строковых данных".

Ну ты понял. Элементарный логический фильтр AND на схожесть всех условий. Для фильтровых задач такого уровня не вижу смысл доставать плагин с регулярными выражениями, тем более что в VB.NET (в отличии от, например, ASP.NET), в основном пакете компонентов такого компонента нет.

а) Ну напиши "элементарный логический фильтр" для маски, которую вводит пользователь. Посмотрим, насколько элементарным он получится.
б) В vb .net этот... хм... "плагин"... мягко говоря, есть. Равно как во всех остальных местах. Потому что это часть FW.

[сесодмин]

а) Ну напиши "элементарный логический фильтр" для маски, которую вводит пользователь. Посмотрим, насколько элементарным он получится.

А я что написал в том же посте? Фильтр на каждую цифру читается с соответсвующего текстбокса, если все буквы в строке совпадают с заданным пользователем цифрой в соответсвующем текстбоксе, линия принимается. Куда уж элементарнее??

[Ramzes]

Для фильтровых задач такого уровня не вижу смысл доставать плагин с регулярными выражениями, тем более что в VB.NET (в отличии от, например, ASP.NET), в основном пакете компонентов такого компонента нет.

Плагин .... в ASP есть а в VB нет
я сейчас упаду, держите меня семеро....вытаскивать...ггггг...отудка....

PS спасибо, ты мне настроение поднял на целый день

[temur]

Ну вот вам без RegEx примерчик. Только не осуждайте сильно. Вроде работает вот только о быстроте мечтать прийдется (наверно)

[Viper]

Где он???