Шпионские страсти...

[Terarist]

Допустим у меня есть текстовый файл с разными символами, как мне допустим прочесть этот файл и выбрать из него толбко допустим буквы русского алфавита или цыфры или буквы латинского алфавита или символы и занести в соответсвии с моими запросами в поле моей программы??? Пожжайлуста код!!!

[areh]

Код не могу, так как не имею ВБ6, а алгоритм, это пжалуйста:

Для чтения:

открываешь бинарно файл, причем len = 1, далее циклически, до конца файла считываешь по байту, и если этот байт входит в отрезок от 48 до 57, то это цифра, и т.д.(буквы рус. и лат. алфавита в win кодировке расположены непрерывно). далее добавляешь символ с этим кодом (если он опять же нужен) в какую-нибудь строку

[FaKk2]

цифры, пожалуйста, только...
Ты там что то про курсы русского говорил?

Алгоритм простой:
Создаешь массив нужных символов, открываешь файл.
C помощью InStr ищешь каждый символ в файле и вносишь в текстовое поле на форме.

[Terarist]

Вы за кого меня держите
Я же код просил ... на словах-то я знаю как делать, а вот именно код ...

[GSerg]

Скажу тебе такую вещь, чел. Не научишься ничему никогда, если ответы на такие вопросы сам не будешь находить. Ибо этот процесс нахождения того, чего в книжке не написано, это, как бы сказать... правильно, что-ли...

В общем, на тебе код.

Код: Выделить всё

Function Filter(FilterWhat As String, FilterString as String) as String
  Dim i as Long
  For i=1 to len(FilterWhat)
    If Instr(FilterString, Mid$(FilterWhat, i, 1))>0 Then Filter=Filter + Mid$(FilterWhat,  i, 1)
  Next
End Function


Юзается, к примеру:

Код: Выделить всё

a = Filter("skdfjgn kdfg  допр ывао!94867", "0123456789")


На выходе: "94867"