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

[Alfa]

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

[RayShade]

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

[alibek]

Какой изящный оборот "примерно 278 528 байт" и семь с половиной бит
В текстовую переменную можно загнать до 2 Гб текста. Так что ты можешь спокойно загонять весь текст в текстовую переменную.

[SSecurity]

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

Шикарно ... а ещё можно дописать в хвост EXE-шника .... (это для садомазахистов , но работает )

[Alfa]

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

[gaidar]

Не понял ... В одну строчку текст? Просто удалить vbCrLf, если они есть .
А причем здесь пробелы?

[Alfa]

Нет. Мне нужно вставить в String примерно вот такой код :

Код: Выделить всё

#
#
#
#
#
#
#
#
#
#
#
#


(Только в 500 раз длинее)

[RayShade]

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

[Alfa]

Для этого надо сидеть и писать :

Код: Выделить всё

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]

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

[Alfa]

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

[Amed]

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

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]

Ну прочитает он текст из файла и что потом? ... будет им наслаждаться? ведь тест у нас в программе не как болванка в СД-РВ раз записал и хранится пока какой-ибудь ламер не покорябает диск

[mark+]

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

[sanches]

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

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

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

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

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

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

[SSecurity]

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

Клёвый метод:)

[Tень]

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

[SSecurity]

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

Ну смотри все зависит от конкретной ситуации.