ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обьём данных
12 сообщений из 12, страница 1 из 1
Обьём данных
    #33747991
Pchel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pchel
Гость
Как увеличить обьём данных string? Большие текстовые файлы не хочет открывать,выдаёт ошибку:Overflow.

Вот код:

Private Sub cbStart_Click()
Dim strfilename As String
Dim strfilecontent As String
s = 1024
Dim nFreefile As Integer
Dim nfilelenght As Integer
CommonDialog1.ShowOpen
strfilename = CommonDialog1.FileName
nFreefile = FreeFile
If strfilename <> "" Then
Open strfilename For Input As nFreefile
nfilelenght = FileLen(strfilename)
strfilecontent = Input(nfilelenght, #nFreefile)
Text1.Text = strfilecontent
Close
End If


End Sub
Что не так?Подскажите.Заранее благодарен
...
Рейтинг: 0 / 0
24.05.2006, 12:17
| Ответить | Цитировать | Написать  
Обьём данных
    #33748417
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Поменяй

Код: plaintext
Dim nfilelenght As Integer

на

Код: plaintext
Dim nfilelenght As Long
...
Рейтинг: 0 / 0
24.05.2006, 13:56
| Ответить | Цитировать | Написать  
Обьём данных
    #33748602
Pchel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pchel
Гость
AshtonПоменяй

Код: plaintext
Dim nfilelenght As Integer

на

Код: plaintext
Dim nfilelenght As Long



Возникает другая ошибка:Type mismatch.

Мне нужно прочитать текстовые файлы.
...
Рейтинг: 0 / 0
24.05.2006, 14:37
| Ответить | Цитировать | Написать  
Обьём данных
    #33748671
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
VB нет подрукой для VBA
FileLen - возвращает размер файла в байтах тип Long
Input(n, f) читает n символов из файла f
чуешь разницу?
попробуй InputB(n, f) написанно в справке что n - это число байт которые нужно вернуть.
хотя в VB может и подругому хотя врятли.
_____________________________________
А я хочу Брежнева, чтобы все было по прежнему... "Стволы"
...
Рейтинг: 0 / 0
24.05.2006, 14:51
| Ответить | Цитировать | Написать  
Обьём данных
    #33748683
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
какая структура файла? его можно читать и в цикле до конца файла прибавляя к Text1.Text значения постепенно, но домаю что вы можите наткнуться на ограничение в самом контроле.
_____________________________________
А я хочу Брежнева, чтобы все было по прежнему... "Стволы"
...
Рейтинг: 0 / 0
24.05.2006, 14:54
| Ответить | Цитировать | Написать  
Обьём данных
    #33748733
Pchel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pchel
Гость
Задание такое:Кнопкой открываешь текстовый файл.Надо,что бы в текстовом окне(Textbox)тобразилось содержимое.Файлы видит,но большие обьёмы не хочет открывать...
...
Рейтинг: 0 / 0
24.05.2006, 15:05
| Ответить | Цитировать | Написать  
Обьём данных
    #33748860
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
так на небольших файлах работает?
_____________________________________
А я хочу Брежнева, чтобы все было по прежнему... "Стволы"
...
Рейтинг: 0 / 0
24.05.2006, 15:31
| Ответить | Цитировать | Написать  
Обьём данных
    #33748927
Pchel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pchel
Гость
barrabasтак на небольших файлах работает?

Да.Но 50 Кб уже не берёт.
...
Рейтинг: 0 / 0
24.05.2006, 15:44
| Ответить | Цитировать | Написать  
Обьём данных
    #33749010
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Что-то вы не договариваете. Проверил на текстовом файле 25,9 Мб, все прекрасно работает.
...
Рейтинг: 0 / 0
24.05.2006, 16:01
| Ответить | Цитировать | Написать  
Обьём данных
    #33749033
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
Так и прихлось самому проверять, там же написанно если хелп нажать при ошибке что нужно использовать чтение файла кусками, что я и предлагал вначале. Вот проверь, глюк будет при если читать будешь не текстовые файлы в них есть разные спецсимволы и на них может все прерываться и табы тоже обозначаются при таком импорте как квадратик возможно поможе бинарное чтение а на простых текстовых файлах проверил работатет
Dim InputData Open "c:\1.txt" For Input As #1 Do While Not EOF(1) Line Input #1 InputData Me.Pole0.Value = Me.Pole0.Value & Chr(13) & Chr(10) & _ InputData Loop Close #1
...
Рейтинг: 0 / 0
24.05.2006, 16:06
| Ответить | Цитировать | Написать  
Обьём данных
    #33749039
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
barrabasТак и прихлось самому проверять, там же написанно если хелп нажать при ошибке что нужно использовать чтение файла кусками, что я и предлагал вначале. Вот проверь, глюк будет при если читать будешь не текстовые файлы в них есть разные спецсимволы и на них может все прерываться и табы тоже обозначаются при таком импорте как квадратик возможно поможе бинарное чтение а на простых текстовых файлах проверил работатет
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim InputData
    Open "c:\1.txt" For Input As # 1 
    Do While Not EOF( 1 ) 
        Line Input # 1 , InputData   
        Me.Pole0.Value = Me.Pole0.Value & Chr( 13 ) & Chr( 10 ) & _
                         InputData 
    Loop
    Close # 1


тег не тот
...
Рейтинг: 0 / 0
24.05.2006, 16:08
| Ответить | Цитировать | Написать  
Обьём данных
    #33749942
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
А на какой строчке ошибка??
Не на этой ли:
Код: plaintext
Text1.Text = strfilecontent
?
Контрол Text в VB не бесконечен, а довольно таки невелик.
В хелпе написано:
The Text setting for a TextBox control is limited to 2048 characters unless the MultiLine property is True, in which case the limit is about 32K
На практике (я занимался подобной задачей) влезает до 40-50 Кб, а не 32, но все равно мало.
Надо цеплять другой контрол...
...
Рейтинг: 0 / 0
24.05.2006, 23:21
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обьём данных
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=279&tid=2165815]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 50ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 236ms
total:  343ms
созд. / загр.: 343ms
x
x
Закрыть


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