• На форуме с 3 ноября 2004г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Служебные символы по коду 1 в объекте "MTEXT"

Всем привет.
Производится суммирование чисел записанных в виде отдельных мультитекстов.
Посоветуйте, пожалуйста, эффективный алгоритм выделения из объекта "MTEXT" числа, если оно записано с использованием служебных символов (курсив, почеркивание и т.п.)

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Служебные символы по коду 1 в объекте "MTEXT"

Dim text As String
    Dim char As String
    Dim num As Integer
    Dim lenght As Integer
    Dim i As Integer
    text = MTextObj.TextString
    lenght = Len(text)
    For i = 1 To lenght
     char = Mid(text, i, 1)
     If (IsNumeric(char)) Then
          num = CInt(char)
          MsgBox num
     End If
    Next i

Насчет подчеркивания не знаю, не пробовал...