Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Как заполнить оставшуюся часть строки символом?

Автор: OrbitRus 3.5.2013, 19:34

нужно чтобы именно после последней буквы шло заполнение "_" до конца строки!

такое возможно??

Автор: Akina 4.5.2013, 20:08

Да, возможно.

Автор: OrbitRus 6.5.2013, 00:53

Akina, а не подскажешь как это сделать??

Автор: Akina 6.5.2013, 07:53

Сделать конкатенацию имеющейся строки (при необходимости - удалить хвостовые пробелы) со строкой, состоящей из заведомо достаточного количества символов-заполнителей. Из полученной строки взять слева нужное количество символов.
Если исходную строку тримать не требуется - можно сразу посчитать необходимое количество дополняемых символов, и подготовить для конкатенации подстроку заполнителей сразу требуемой длины, тогда последующая обрезка не нужна.

Автор: OrbitRus 6.5.2013, 08:21

Akina, а в коде как это?? smile

просто у меня после текста из Combobox'a хотелось бы дополнить строку нижним подчёркиванием;) а то текст в Combobox'е разный же=(

Автор: Данкинг 6.5.2013, 10:09

Цитата(OrbitRus @ 6.5.2013, 09:21

)

просто у меня после текста из Combobox'a хотелось бы дополнить строку нижним подчёркиванием

А в чём разница между текстом из Комбобокса и строкой?

Автор: Akina 6.5.2013, 11:25

Цитата(OrbitRus @ 6.5.2013, 09:21

)

у меня после текста из Combobox'a

Код


txtText = Combo1.Text

а далее - по описанному алгоритму, но уже в текстовой переменной.

Автор: OrbitRus 6.5.2013, 12:24

Данкинг, я объясняю после чего мне нужно заполнить строку "нижним подчёркиванием"!

Akina, не вкурил как это выглядеть должно... txtText за что отвечает??за строку текста?

Автор: Akina 6.5.2013, 12:31

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Добавлено через 3 минуты и 12 секунд

Код


Dim txtText As String
const length as integer = ??

sub somebutton_click
txtText = Combo1.Text
txtText = left(txtText & string(length, "_"), length)
' остальные операторы
end sub

Автор: OrbitRus 6.5.2013, 12:36

Akina, а что во 2-й строке вместо вопросов??

Автор: Akina 6.5.2013, 12:41

Цитата(OrbitRus @ 6.5.2013, 13:36

)

что во 2-й строке вместо вопросов??

А вот это надо у тебя спрашивать, а не у меня.

Автор: OrbitRus 6.5.2013, 12:44

Akina, что там по идее должно быть?

Автор: Mirkes 6.5.2013, 15:46

Длина нужной строки smile

Автор: Данкинг 6.5.2013, 16:42

Цитата(OrbitRus @ 6.5.2013, 13:44

)

что там по идее должно быть?

Если бы ответил на мой вопрос о том, что есть "строка", то знал бы, что "там должно быть".

Автор: OrbitRus 6.5.2013, 17:29

ничего не вышло=((

Автор: Akina 6.5.2013, 17:33

В таком случае идите в раздел фриланса, заказывайте работу и оплачивайте её выполнение. Или ждите прихода какого-нибудь альтруиста, вдруг да повезёт.

Автор: OrbitRus 6.5.2013, 18:29

Akina, спасибо за попытку помочь;)

Автор: Сергейчик 20.5.2013, 22:14

может это?
dim b as integer
b=0
do until b= (количество добавляемого символа)
b=b+1
text1.text=text1.text & "_"
loop
или
зная сколько символов в строке и вычислив предварительно сколько поставленно ваших b=(предполагаемое количество символов строки)-len (text1.text)
заполняем всю строку

Автор: OrbitRus 28.5.2013, 19:44

Сергейчик, у меня изменяются данные в строке=( то больше букв, то меньше
из комбобокса переношу данные в Word