VPF::Сортировка по маске - Форум программистов

XFq

Дата 19.3.2006, 01:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 13.3.2006

Репутация: нет
Всего: нет

[edit]

Это сообщение отредактировал(а) XFq - 12.9.2008, 18:55

cardinal

Дата 19.3.2006, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Если это содержание файла

Цитата

100294
103385
104681
100661
100772

, то вот самая простая реализация решения конкретных задач:

Код


Option Explicit

Private Sub Command1_Click()
Dim num As String
Open "e:\test.txt" For Input As #1
    Do While Not EOF(1)   ' Loop until end of file.
       num = Input(6, #1)   ' Get one character.
       Debug.Print num   ' Print to the Immediate window.
       If Not EOF(1) Then num = Input(2, #1)   ' Get one character.
    Loop
Close #1
End Sub

Private Sub Command2_Click()
Dim num As String
Open "e:\test.txt" For Input As #1
    Do While Not EOF(1)   ' Loop until end of file.
       num = Input(6, #1)   ' Get one character.
       If Left(num, 3) = "100" Then Debug.Print num      ' Print to the Immediate window.
       If Not EOF(1) Then num = Input(2, #1)   ' Get one character.
    Loop
Close #1
End Sub

Private Sub Command3_Click()
Dim num As String
Open "e:\test.txt" For Input As #1
    Do While Not EOF(1)   ' Loop until end of file.
        num = Input(6, #1)   ' Get one character.
        If Left(num, 3) = "100" Then
            If Mid(num, 4, 1) = Mid(num, 5, 1) Then Debug.Print num ' Print to the Immediate window.
        End If
        If Not EOF(1) Then num = Input(2, #1)   ' Get one character.
    Loop
Close #1
End Sub

Думаю исходя из этого ты сможешь сделать похожее с масками...

Успехов!

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

klen1

Дата 20.3.2006, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 16.3.2006
Где: г. Ликино-Дулёво

Репутация: нет
Всего: нет

используй оператор

Код


Like

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »