Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение txt-файла на PocketPC / 7 сообщений из 7, страница 1 из 1
27.07.2009, 20:02
    #36111986
tudimon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt-файла на PocketPC
Пишу програмку на VB.net (.NET Compact Framework 3.5) для PocketPC 2003.
Нужно прочитать данные из текстового файла, лежащего на кпк.
Три дня роюсь в инете, но примера как это сделать найти так и не смог.
Подскажите хоть в какую сторону рыть.
за пример кода буду благодарен вдвойне
...
Рейтинг: 0 / 0
28.07.2009, 09:59
    #36112575
Core12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt-файла на PocketPC
Попробуйте сделать так код правда не тестировал но скорее всего будет работать

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim Fail As String, Str As String 
Dim FileNumber As Integer
Fail =  "fail.txt"
FileNumber = FreeFile 
Open Fail For Random As FileNumber
Do Until EOF(FileNumber) 
  Get FileNumber, , Str
Loop

Такой способ используеться в 6 Basice , под XP работает нормально, суть я думаю что такая же и для PocketPC

Еще если знать что находиться в файле, например если в файле находяться
Имя , Должность , Телефон , то можно использовать структуру.
...
Рейтинг: 0 / 0
28.07.2009, 10:01
    #36112579
Core12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt-файла на PocketPC
Вот нашел как это сделать
http://www.vbstreets.ru/VBdotNET/Upgrade/66062.aspx
...
Рейтинг: 0 / 0
28.07.2009, 10:48
    #36112695
tudimon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt-файла на PocketPC
в том то и дело что Compact Framework урезан не хило:

Нет объявления для: "Open". Функции ввода-вывода файлов обычно доступны в пространстве имен "Microsoft.VisualBasic", однако заданная версия .NET Compact Framework не поддерживает его

Имя "FileOpen" не объявлено

нужно именно код для Compact Framework
я пробовал и так и так
...
Рейтинг: 0 / 0
28.07.2009, 17:48
    #36114171
Ivan TB
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt-файла на PocketPC
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
        Dim fImport As New StreamReader(strFileName, System.Text.Encoding.GetEncoding( 1251 ))

        Do While fImport.Peek >=  0 
            strLine = fImport.ReadLine
            ' ...
        Loop

        fImport.Close()
:-)
...
Рейтинг: 0 / 0
28.07.2009, 20:05
    #36114389
tudimon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt-файла на PocketPC
Ivan TB,
я дошел тока до вот такого варианта:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
        If System.IO.File.Exists(FilePath_vl) = True Then

            Dim objReader As New System.IO.StreamReader(FilePath_vl)
            str = objReader.ReadToEnd
            objReader.Close()

            arr = Split(str, vbCrLf)
        Else
            MsgBox("Не могу найти файл " & FilePath_vl & "!")
        End If

копал как раз в туже сторону - чтение по строкам.
спасибо. завтра на работе попробую ваш вариант
...
Рейтинг: 0 / 0
29.07.2009, 12:00
    #36115177
tudimon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение txt-файла на PocketPC
Ivan TB, проверил
это то что нужно было
спасибо!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение txt-файла на PocketPC / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]