VPF::Замена десятичных разделителей у чисел

motorway

Дата 14.7.2009, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0

Есть некоторая строка. Как на VBA заменить у всех входящих в нее чисел (имеются в виду именно отдельные числа) десятичные разделители с запятой на точку?
Пример: A1+3,5; B2+b=max(3,7+5,6; 3) -> A1+3.5; B2+b=max(3.7+5.6; 3)

Это сообщение отредактировал(а) motorway - 14.7.2009, 15:45

--------------------

Russian Pascal Developer Network - Сеть разработчиков на языке программирования Pascal/Object Pascal
Форум Delphi/Kylix, Free Pascal Compiler/Lazarus, PascalABC.NET
Онлайн-кинотеатр

Veve

Дата 14.7.2009, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 1.1.2005
Где: Латвия, Рига

Репутация: 2
Всего: 13

Код


Sub Test()
    Const strTest As String = "A1+3,5; B2+b=max(3,7+5,6; 3)"
     MsgBox RE6(strTest)
End Sub
 
Function RE6(strData As String) As String
    Dim RE As Object, REMatches As Object
     
    Set RE = CreateObject("vbscript.regexp")
    With RE
        .MultiLine = False
        .Global = True
        .IgnoreCase = True
        .pattern = "([0-9]),([0-9])"
    End With
    
    ReplacedString = RE.Replace(strData, "$1.$2")

    RE6 = ReplacedString
     
End Function

Если для некоторых вариантов не подойдёт. То приведите варианты входящих строк и результат.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »