Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 10.08.2011
Сообщений: 25
1

Как взять строку из файла и сделать ее переменной?

05.09.2011, 13:12. Просмотров 1200. Ответов 9
Метки нет (Все метки)


Проблема такая.
Файл к примеру 1.txt там три строчки:

123,4546,4635464627,10
222,22,22,26666666,333
34.33,33499,67.,44..,55

И как заставить VB чтобы он взял эти строки при том что каждая строка должна ровняться одной переменной
Visual Basic
1
2
3
open 'C:1.txt' for input as #1
input #1, a$
close #1
но тут проблема a$ = 123 а дальше он брать не хочет и запятую он понимает как переход на новую строку !!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.09.2011, 13:12
Ответы с готовыми решениями:

Как взять значение переменной String из текстового файла?
как взять значение переменной String из текстового файла?

Как взять строку из файла
Нужно в веб форму вставлять поочередно емайлы из файла. Как это сделать. Как я понимаю...

Как поочерёдно взять строку из файла
Привет всем. Возникла небольшая проблемка. Есть у меня файл с проксями и нужно при каждом...

Как из файла взять нужную строку?
Как из файла взять нужную строку?

9
4 / 4 / 2
Регистрация: 06.03.2011
Сообщений: 151
05.09.2011, 13:45 2
Откравый файл как двоичный, читай побайтово. Накапливай символы в текстовых переменных. Байт 13 - признак конца строки. Байт 10 - игнорируй. Наверняка можно и по-другому, но я бы сделал именно так (люблю двоичнай доступ к файлам - никаких ограничений).
0
0 / 0 / 0
Регистрация: 10.08.2011
Сообщений: 25
05.09.2011, 13:54  [ТС] 3
напиши код как это сделать !
0
4 / 4 / 2
Регистрация: 06.03.2011
Сообщений: 151
05.09.2011, 14:12 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Buf As String, A As String * 1
Open 'C:1.txt' For Binary As #1
Buf = '' 'здесь будет накапливаться текст строки
Do While Loc(1) < LOF(1) 'читаем, пока файл не закончится
Get #1, , A 'читаем один символ
If A = Chr(13) Then '<CR> - конец строки
'В переменной Buf - очередная строка, с ней нужно что-то сделать
Buf = '' 'подготовка к приёму новой строки
ElseIf A <> Chr(10) Then 'любой символ кроме <CR> и <LF>
Buf = Buf & A 'добавляем символ к строке
End If
Loop
Close #1
Примечание: Код не проверялся на наличие опечаток.
0
Comanche
05.09.2011, 14:28 5
Line Input, вообще-то...
2 / 2 / 1
Регистрация: 18.10.2007
Сообщений: 1,749
06.09.2011, 13:51 6
2mmos: ну если уж и делать через двоичный доступ, что на самом деле оправдано из-за высокой производительности, то так:
Visual Basic
1
2
3
4
5
Dim full as string, lines() as string
Open File for binary access read as #1
get #1,, full
close #1
lines=split(full, vbcrlf)
0
4 / 4 / 2
Регистрация: 06.03.2011
Сообщений: 151
06.09.2011, 14:34 7
Признаюсь - не знал!
Но твой код не хочет работать, пока не напишешь примерно так:
full As String * N (где N - в идеале длина файла).
Если ты честный человек (в чём я не сомневаюсь), то объясняй, в чём проблема. Если без N не обойтись, то целесообразность использования для произвольного файла вызывает сомнения.
0
2 / 2 / 1
Регистрация: 18.10.2007
Сообщений: 1,749
06.09.2011, 15:22 8
извиняюсь, строчку пропустил.
Visual Basic
1
a = Space(FileLen(File))
это до Get
0
4 / 4 / 2
Регистрация: 06.03.2011
Сообщений: 151
06.09.2011, 16:27 9
Та це ж зовсiм iнша справа! - как говорится в одном анекдоте.
Однако не мешало бы добавить после этой строки перед Get:
full = a ' ;b
И вообще есть предложение ко всем - давайте не будем выкладывать непроверенный код.
0
2 / 2 / 1
Регистрация: 18.10.2007
Сообщений: 1,749
06.09.2011, 16:53 10
какая разница, а там или full.
Главное, что смысл ясен.
Я же не полный код выложил, а только строку одну.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.09.2011, 16:53

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

Как взять из файла (массива) строку и ввести ее в переменную?
Подскажите, как поочередно вводить из файла строку в переменную. В прочем, похоже на брут, но мне...

Разделить строку, взятую из файла, на несколько подстрок и сделать каждую значением соответствующей переменной
Добрый день Уважаемые форумчане. Может кто поможет студенту Необходимо реализовать на VBS такую...

Взять строку из файла
Добрый день, подскажите пожалуйста, целый день уже мучаюсь... Есть код в котором используются...

Как сделать, чтобы можно было взять тригонометрическую функцию из файла или textBox и вставить в код ?
Есть у меня программа(реализация БПФ), но тригонометрическая функция, которая берётся для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.