Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 | 3 |

 

  Вопрос: считывание и запись в файл Добавлено: 19.01.09 11:47  

Автор вопроса:  amentis
нужно считать из текстового файла определенную строку и записать собственно ее же. некое подобие базы данных настроек
короче, как считать из текстового файла например 2 строку. И как ее записать. чтото вроде
Open App.Path & "\блабла.txt" For Input As #F
и тоже самое output чтобы читал и записывал не весь файл а только строку нужную

Ответить

  Ответы Всего ответов: 45  

Номер ответа: 1
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #1 Добавлено: 19.01.09 13:20
режим Random - почти база данных :)
MSDN:
  1. Type Record   ' Define user-defined type.
  2.    ID As Integer
  3.    Name As String * 20
  4. End Type
  5.  
  6. Dim MyRecord As Record   ' Declare variable.
  7. Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
  8. ' Close before reopening in another mode.
  9. Close #1
  10.  

Ответить

Номер ответа: 2
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #2 Добавлено: 19.01.09 16:10
а можно немного расписать? =) я просто тока 2й день как бэйсик учу =)

Ответить

Номер ответа: 3
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #3 Добавлено: 19.01.09 16:29
amentis пишет:
я просто тока 2й день как бэйсик учу

прошу: :)
http://www.firststeps.ru/vba/vbahelp/r.php?40

Ответить

Номер ответа: 4
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #4 Добавлено: 19.01.09 16:31
вот тебе совсем вроде разжевано:
http://vbzero.narod.ru/chapter1/page_17.htm

Ответить

Номер ответа: 5
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #5 Добавлено: 19.01.09 17:36
спасиб большое =) я именно по vbzero и учил..тока видимо проскочил эту главу и не заметил

Ответить

Номер ответа: 6
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #6 Добавлено: 19.01.09 17:59
  1. Dim F As Integer, S As String, I As Long
  2. F = FreeFile
  3. Open App.Path & "\блабла.txt" For Input As #F
  4.   For I = 1 To 2 'если нужна 2-я строка
  5.     If Not EOF(F) Then Line Input #F, S Else S = ""
  6.   Next I
  7. Close F
  8. F = FreeFile
  9. Open App.Path & "\блабла2.txt" For Output As #F
  10.   Print #F, S
  11. Close F


Если файл текстовый, то Random здесь не поможет.
Откуда знаем, какая длина строки. И что за Integer в начале строки.

Ответить

Номер ответа: 7
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #7 Добавлено: 19.01.09 18:25
amentis пишет:
некое подобие базы данных настроек

намного удобнее работать с записями через Random, нежели постоянно считывать-записывать весь файл.

Ответить

Номер ответа: 8
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #8 Добавлено: 19.01.09 18:26
Кстати в твоем примере после записи останется только 1 вторая строка и все... ;)

Ответить

Номер ответа: 9
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #9 Добавлено: 19.01.09 19:17
Вопрос звучал
чтобы читал и записывал не весь файл а только строку нужную
,
т.е. одну. Если это действительно база с заданным форматом записей, то и спорить не о чем. Только Random! А из текстового файла выбрать сколь угодно строк с заданными номерами не сложно, но все равно через Input-Output.

Ответить

Номер ответа: 10
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #10 Добавлено: 19.01.09 19:41
так..чет не могу разобраться..пытаюсь присвоить текстбоксу данные..что тут надо написать?
get #1,1...как тут?

Ответить

Номер ответа: 11
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #11 Добавлено: 19.01.09 19:47
все, спасибо, разобрался сам =)

Ответить

Номер ответа: 12
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #12 Добавлено: 19.01.09 21:14
ой, народ, а можно это все зашифровать и расшифровать..ато простым блокнотом открыть и все видно

Ответить

Номер ответа: 13
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #13 Добавлено: 19.01.09 21:29
  1. For I = 1 To Len(S)
  2.   Mid(S, I, 1) = Chr(256 - (Asc(Mid(S, I, 1))))
  3. Next I


Зашифрует и расшифрует

Ответить

Номер ответа: 14
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #14 Добавлено: 19.01.09 21:35
Прошу прощения .....(255 - (....

Ответить

Номер ответа: 15
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #15 Добавлено: 19.01.09 23:21
все равно нифига не понял.. =) вот для начала записываю в базу данные:
  1. Private Sub Form_Load()
  2. Open "путь" For Random As #1
  3. Put #1, 1, stroka
  4. Text1.Text = stroka
  5. Close #1
  6. End Sub

затем считываю его в текстбокс
  1. Private Sub Command1_Click()
  2. Open "C:\\data.bzd" For Random As #1
  3. Get #1, 1, stroka
  4. Text1.Text = stroka.name
  5. Close #1
  6. End Sub

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

Ответить

Страница: 1 | 2 | 3 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам