VBNet - Форум - Помогите с кодом

Вопрос: Помогите с кодом Добавлено: 16.02.05 17:07

Автор вопроса: Skywalker | Web-сайт: iSkywalker.ru | ICQ: 300-70-6пятьЪ

В общем я сделал корявый, долгий и тупой код. Помогите оптимизировать его. Возможно какую то другую функцию использовать или что-то еще.

Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As String
Dim str5 As String
Dim str6 As String
Dim str7 As String
Dim str8 As String
Dim str9 As String
Dim st As String
Dim AllText As String

Dim город As String
Dim число As Integer
Dim месяц As String
Dim год As Integer
Dim фио_прод As String
Dim адрес_прод As String
Dim фио_пок As String
Dim адрес_пок As String

город = Text1.Text
число = Text2.Text
месяц = Text3.Text
год = Text4.Text
фио_прод = Text5.Text
адрес_прод = Text6.Text
фио_пок = Text7.Text
адрес_пок = Text8.Text
Open "44_3.txt" For Input As #1
Do While Not EOF(1)
Input #1, st
AllText = AllText + st + Chr(13) + Chr(10)
Loop
Close #1
str1 = AllText
str2 = Replace$(str1, "<город>", город)
str3 = Replace$(str2, "<число>", число)
str4 = Replace$(str3, "<месяц>", месяц)
str5 = Replace$(str4, "<год>", год)
str6 = Replace$(str5, "<фио_прод>", фио_прод)
str7 = Replace$(str6, "<адрес_прод>", адрес_прод)
str8 = Replace$(str7, "<фио_пок>", фио_пок)
str9 = Replace$(str8, "<адрес_пок>", адрес_пок)

Вот. Значь прога открывает текстовик и ищет там слова и заменяет их на те которые введешь в текстовые поля. Но я плохо и тупо намудил с Replace, тем более, что по идее текстовикох должно быть много и они будут разные. Я запарюсь же такое каждый раз писать. Посоветуйте как сделать?
Ответить

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

Номер ответа: 1 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #1	Добавлено: 16.02.05 17:24
	Для текстовиков используй For Each TextBox.. для переменных - массив Dim str(50) As String Ответить

Номер ответа: 2 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #2	Добавлено: 17.02.05 09:27
	Верно. Можно использовать пользовательский тип чтобы собрать все данные в кучу. Либо массив строк + TextBox с Index. Тогда размер печатного кода вообще сократится до нескольких строк и одного цикла. Ответить

Номер ответа: 3 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #3	Добавлено: 17.02.05 16:15
	For Each TextBox я вот не понял че это такое)) (незнаю) расскажите Ответить

Номер ответа: 4 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #4	Добавлено: 17.02.05 16:16
	и я еще хотел узнать может быть есть более простой способ замены слов в тексте?, а то че то мне так не нравится)) Ответить

Страница: 1 |