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