Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Vb строки (left, mid, space ??) Помогите пожалуйста.  (Прочитано 13764 раз)
0 Пользователей и 1 Гость смотрят эту тему.
antonios
Гость
« : 17-02-2006 18:39 » new

Есть строка типа :
слово произвольной длинны (пробел) слово (пробел) слово (пробел) слово.
Количество прообелов можно сделать одинаковым. Надо отдельно вывести слова [первое (пробел) второе] [(прообел) третье]
[и последнее].
Все слова произвольной длинны.
Спасибо.
и если можно шибко наглядно Улыбаюсь)
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 17-02-2006 21:09 » 

antonios, нечерта не ясно: по твоему описанию, у тебя что на входе, то и на выходе. Пиши подробнее!
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
RomCom
Опытный

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 02-05-2006 06:08 » 

добавлено в FAQ_VB/VBA
Записан

R.O.M.C.O.M.: Robotic Operational Mathematics and Ceaseless Observation Machine
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #3 : 23-05-2008 07:54 » 

не понятно о чем данный топик,
но смею предположить:
есть строка. слова разделены символом(ами) "пробел".
задача: отформатировать строку так, чтобы между словами было одинаковое кол-во пробелов

пример (пробел заменен символом "подчеркивание")
исходная строка: "ффф___фывапе_____________ваыофдываофыдлао_выждпалфжвыдпл______ыфвджывдывпжфыпдл"
результат: "ффф_фывапе_ваыофдываофыдлао_выждпалфжвыдпл_ыфвджывдывпжфыпдл"

код:

Код:
    Dim MyStr As String             'входная строка
    Dim charNot As String           ' символа, которого точно нет в строке
   
    MyStr = "ффф___фывапе_____________ваыофдываофыдлао_выждпалфжвыдпл______ыфвджывдывпжфыпдл"
    charNot = "@"
   
    MyStr = Replace(Replace(Replace(MyStr, "__", "_" + charNot), charNot + "_", ""), charNot, "")
    Debug.Print MyStr

конечно код не совсем удачный, но все же
Записан

I Have Nine Lives You Have One Only
THINK!
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #4 : 29-05-2008 17:38 » 

HandKot,
https://forum.shelek.ru/index.php/topic,8682.msg128910#msg128910
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines