Вопрос по Excel

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Вопрос по Excel

Опции темы

Поиск в этой теме

Опции просмотра

Вопрос по Excel

10.07.2009, 11:25

BlackSilver

Познающий

Регистрация: 30.01.2009

Сообщений: 30

С нами: 9093757

Репутация: 14

Вопрос по Excel

Я настолько обыдлился, что генерирую исходник в Excel.
И столкнулся с такой проблемой: в одной ячейке есть строка типа IdTypeFactor. Нужно её программно преобразовать до строки id_type_factor. То есть самое сложное - перед каждой заглавной буквой ставить подчерк. Или наоборот, после каждого подчерка букву делать заглавной.
Есть идеи?

𝕏 Twitter Reddit Telegram Копировать ссылку

10.07.2009, 11:38

FireFenix

Постоянный

Регистрация: 03.06.2009

Сообщений: 385

С нами: 8915117

Репутация: 389

1) Проверять коды символов, если относится к диапазону заглавных - то разделять подчёркиванием
2) Брать каждый символ, и принудительно делать его заглавным, и сравнивать с оригиналом, типа
VB : If char = UCase(char) Then ... Else ... End Id
PHP : if (char == strtoupper(char)) {} else {}
3) Юзать регулярку типа [A-ZА-Я]
a) С модом возврата смещения и по массиву смещений вхождений получаем позицию каждого заглавного символа и воротим что хотим
б) Заменять символ нижний регистр + подчёркивание

Последний раз редактировалось FireFenix; 10.07.2009 в 11:48..

10.07.2009, 11:38

m0nsieur

Участник форума

Регистрация: 08.04.2008

Сообщений: 242

С нами: 9520978

Репутация: 229

del...недопонял ТС

10.07.2009, 12:37

BlackSilver

Познающий

Регистрация: 30.01.2009

Сообщений: 30

С нами: 9093757

Репутация: 14

под конец вышло такое

Код:

Function ToField(str) As String
    Dim res As String
    Dim subs As String
    For i = 0 To Len(str) - 1
        subs = str.Substring(i, 1)
        If subs = UCase(subs) Then res = res + "_"
        res = res + subs
    Next i
    ToField = res
End Function

Удаление подчерка в начале и опускание букв уже в ячейке сделаю.
Вот только как теперь заставить таблицу пользоваться этой функцией. Не видит...

10.07.2009, 13:40

FireFenix

Постоянный

Регистрация: 03.06.2009

Сообщений: 385

С нами: 8915117

Репутация: 389

Что значит не видит?
Когда ты запускаешь функцию?

10.07.2009, 13:50

BlackSilver

Познающий

Регистрация: 30.01.2009

Сообщений: 30

С нами: 9093757

Репутация: 14

Когда пишу в ячейке =ToField(A2)

10.07.2009, 14:01

FireFenix

Постоянный

Регистрация: 03.06.2009

Сообщений: 385

С нами: 8915117

Репутация: 389

А чё оно должно собсно работать?
ToField функция не экзеля, а VBA
Приделая на событие к ячейки или добавь ещё контролы, которые по нажатию/изменению/etc будут вызывать функцию

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ВКонтакте "счастливый фермер"	ЖенькО	Социальные сети	309	22.07.2009 11:35
ESET: обнаружены трояны, использующие уязвимость в Excel	tinyM	Мировые новости. Обсуждения.	3	09.03.2009 03:31
Интернетчики задали российскому президенту очень странные вопросы	podkashey	Мировые новости. Обсуждения.	4	07.07.2006 16:53
Microsoft warns of Excel 0-day attack	Dracula4ever	Forum for discussion of ANTICHAT	0	17.06.2006 15:03

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

Создать сделку

Мои сделки

Сделка

ESCROW ADMIN PANEL