Где содержать строку большим обьемом.

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Alfa
Бывалый
Бывалый
 
Сообщения: 249
Зарегистрирован: 12.01.2003 (Вс) 20:15
Откуда: Россия, Красноярск

Где содержать строку большим обьемом.

Сообщение Alfa » 12.11.2003 (Ср) 17:06

У меня есть текст примерно 278 528 байт. Мне его нужно сохранить на форме(его видимость не обязательно, просто нужно общаться с текстом). Где его можно держать, чтобы форма быстро загрузилась(обязательно на форме, а не в другом файле).

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 12.11.2003 (Ср) 17:55

А объявить в модуле формы Public переменную типа string и в него записать? То есть объявить константу а при загрузке формы просто перенести ее в переменную и все.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 12.11.2003 (Ср) 17:56

Какой изящный оборот "примерно 278 528 байт" :) и семь с половиной бит :)
В текстовую переменную можно загнать до 2 Гб текста. Так что ты можешь спокойно загонять весь текст в текстовую переменную.
Lasciate ogni speranza, voi ch'entrate.

SSecurity
Служба безопасности
Аватара пользователя
 
Сообщения: 1283
Зарегистрирован: 19.08.2003 (Вт) 1:11
Откуда: Россия, Мурманск

Сообщение SSecurity » 13.11.2003 (Чт) 1:07

Это ты целую прогу вбить можешь в одну переменную а потом ... восстановить её из ничего :)

Шикарно ... а ещё можно дописать в хвост EXE-шника .... (это для садомазахистов :), но работает )
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)

Alfa
Бывалый
Бывалый
 
Сообщения: 249
Зарегистрирован: 12.01.2003 (Вс) 20:15
Откуда: Россия, Красноярск

Ответ

Сообщение Alfa » 13.11.2003 (Чт) 14:31

Мой текст содержит очень много пробелов. Как мне скопировать это все-таки в одну строчку?

gaidar
System Debugger
System Debugger
 
Сообщения: 3152
Зарегистрирован: 23.12.2001 (Вс) 13:22

Сообщение gaidar » 13.11.2003 (Чт) 15:22

Не понял ... В одну строчку текст? Просто удалить vbCrLf, если они есть :).
А причем здесь пробелы?
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali

Alfa
Бывалый
Бывалый
 
Сообщения: 249
Зарегистрирован: 12.01.2003 (Вс) 20:15
Откуда: Россия, Красноярск

Ответ

Сообщение Alfa » 13.11.2003 (Чт) 17:03

Нет. Мне нужно вставить в String примерно вот такой код :
Код: Выделить всё
#
#
#
#
#
#
#
#
#
#
#
#
(Только в 500 раз длинее)

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 13.11.2003 (Чт) 17:40

Ну и? Тебе что то мешает? ;)

Alfa
Бывалый
Бывалый
 
Сообщения: 249
Зарегистрирован: 12.01.2003 (Вс) 20:15
Откуда: Россия, Красноярск

Ответ

Сообщение Alfa » 13.11.2003 (Чт) 18:11

Для этого надо сидеть и писать :
Код: Выделить всё
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf
string = string & "gkosjgkpnsklbgngkjos" & VbCrLf

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 13.11.2003 (Чт) 18:18

Так это по любому писать придется :) Как ты его не записывай - все равно, печатать на клавиатуре - другого способа ввода текста просто нет %)

Alfa
Бывалый
Бывалый
 
Сообщения: 249
Зарегистрирован: 12.01.2003 (Вс) 20:15
Откуда: Россия, Красноярск

Ответ

Сообщение Alfa » 13.11.2003 (Чт) 20:04

В том то и дело, что текст в компьютере, в файле.

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 13.11.2003 (Чт) 22:36

Э-э-э... Так тебе надо прочитать строку из файла!? :?

Dim Text as String
Dim temp as String

Dim ff as Integer

ff=freefile()
Open "path_to_your_file" for input as #ff
Do while not eof(ff)
line input #ff,temp
Text=Text & temp
loop
Close #ff

:)

SSecurity
Служба безопасности
Аватара пользователя
 
Сообщения: 1283
Зарегистрирован: 19.08.2003 (Вт) 1:11
Откуда: Россия, Мурманск

Сообщение SSecurity » 14.11.2003 (Пт) 1:09

Ну прочитает он текст из файла и что потом? ... будет им наслаждаться? ведь тест у нас в программе не как болванка в СД-РВ раз записал и хранится пока какой-ибудь ламер не покорябает диск :)
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)

mark+
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 156
Зарегистрирован: 03.07.2003 (Чт) 0:04
Откуда: Kurgan

Сообщение mark+ » 19.11.2003 (Ср) 22:23

Я что-то не врубился в вопрос. Ну и засунь из temp в RichTextBox. И храни текст там. TextBox - limit 30 Kb; RichTextBox ~ limit 2Gb :?

sanches
El compañero
El compañero
 
Сообщения: 823
Зарегистрирован: 09.01.2003 (Чт) 3:58
Откуда: Р_О_С_С_И_Я ! (Питер)

Сообщение sanches » 19.11.2003 (Ср) 23:26

Как я понял вопрос:
Есть файл на компе (авторском). Его содержимое должно быть внутри проги (сам файл вместе с прогой переносить нельзя), а вручную набивать
s = s & "sdgfsdgf" & vbcrlf
задалбывает.

Если я так понял проблему, то решение есть. Написать еще одну прогу, которая будет построчно считывать файл и генерить новый:

'NewLine - здесь содержится считанная только что строка
Print #FileNum, "Dim s As String"
Print #FileNum, "s = s & """ & NewLine & """ & vbCrLf"

короче такая прога сгенерит тебе текст программы, который как раз и влом набирать.

(Повтроя - это если я ТАК понял проблему)

p.s. Еще надо учесть кавычки в тексте файла и заменить их на двойные, а CrLF на " & vbCrLf & "
Изображение

SSecurity
Служба безопасности
Аватара пользователя
 
Сообщения: 1283
Зарегистрирован: 19.08.2003 (Вт) 1:11
Откуда: Россия, Мурманск

Сообщение SSecurity » 20.11.2003 (Чт) 0:54

ааа .... поню я так делал ... особено когда попиксельно надо картинку востановить ещё в QBasic'e:)

Клёвый метод:)
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)

Tень
Начинающий
Начинающий
 
Сообщения: 16
Зарегистрирован: 05.11.2003 (Ср) 3:03

Сообщение Tень » 24.11.2003 (Пн) 14:32

А может действительно есть смысл создать RichTextBox и забыть про это? И при необходимости потом удобно будет редактировать. Удобнее чем переменную. (Мне так кажется)

SSecurity
Служба безопасности
Аватара пользователя
 
Сообщения: 1283
Зарегистрирован: 19.08.2003 (Вт) 1:11
Откуда: Россия, Мурманск

Сообщение SSecurity » 25.11.2003 (Вт) 0:41

По мне что String что не стринг, было бы желание а код пишется :)

Ну смотри все зависит от конкретной ситуации.
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, PetalBot и гости: 7

    TopList