| Вопрос: требуется небольшой хэлп | Добавлено: 04.09.04 09:20 |
Автор вопроса:  Makc
|
|
В связи со слабоумием немогу разобратся :))
в вайл пишется только один символ, как сделать так что бы записывались все значения? Заранее благодарен! Private Sub Form_KeyPress(KeyAscii As Integer) Open "Key.txt" For Output As #100 Dim temp Dim kascci kascci = Chr(KeyAscii) temp = kascci RichTextBox1 = temp Print #100, temp Close #100 End Sub |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  dNW Вопросов: 30 Ответов: 683 |
Профиль | | #1 | Добавлено: 04.09.04 09:59 |
| Может быть все дело в том, что при использований Output предидущий файл затирается? | ||
|
Номер ответа: 2 Автор ответа: Makc Вопросов: 17 Ответов: 45 |
Профиль | | #2 | Добавлено: 04.09.04 10:03 |
| фиг знает, мысли есть как переделать? | ||
|
Номер ответа: 3 Автор ответа: cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #3 | Добавлено: 04.09.04 10:12 |
| Попробуй открывать файл как For Append и добавлять, не перетирая предыдущее содержимое | ||
|
Номер ответа: 4 Автор ответа: MakcВопросов: 17 Ответов: 45 |
Профиль | | #4 | Добавлено: 04.09.04 10:15 |
cresta, поподробней пожалйуста можно?  )
плохо я еще разбираюсь  (
|
||
|
Номер ответа: 5 Автор ответа: MakcВопросов: 17 Ответов: 45 |
Профиль | | #5 | Добавлено: 04.09.04 10:17 |
|
cresta, спасибо, уже лучше, но новый символ вставляется в новой строке, как сделать попорядку? )
|
||
|
Номер ответа: 6 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #6 | Добавлено: 04.09.04 11:08 |
|
Print #100, temp - автоматом вставляет в конце строки комбинацию CrLf (перевод строки). Поэтому новые буквы вставляются с новой строки. Похоже тебе больше подойдёт такой вариант: Считать строку из файла в переменную (например StringVar), потом сделать Replace :
StringVar=Replace(StringVar,CrLf, <твой добавляемый символ> 
и после этого Print #100, temp Replace заменит перевод строки на твой символ, а Print снова добавит CrLf в конце строки. |
||
|
Номер ответа: 7 Автор ответа: MakcВопросов: 17 Ответов: 45 |
Профиль | | #7 | Добавлено: 04.09.04 11:25 |
|
cresta, все нормально, спасибо большое! )
|
||
|
Номер ответа: 8 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #8 | Добавлено: 04.09.04 11:50 |
|
На здоровье
|
||
|
Номер ответа: 9 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #9 | Добавлено: 04.09.04 12:14 |
|
А можно вспомнить QB, из которого был заимствован этот тупой синтаксис работы с файлами и написать вот так: Print #100, temp; Вставка в конце двоеточия предотвращает вставку CRLF. Вариант с считыванием файла в память целиком может не подойти, если планируется работа с большими файлами. |
||
|
Номер ответа: 10 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #10 | Добавлено: 04.09.04 12:52 |
| Тут похоже, что несколько символов надо скинуть в файл. А набирать с клавы гигантские файлы, которые не поместятся в память, вряд ли кто будет. | ||
Страница: 1 |