Перейти к содержимому

Фотография

Копирование подстроки из строки


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 4

#1 Crash

Crash

    Новый участник

  • Members
  • Pip
  • 36 сообщений

Отправлено 11 мая 2006 - 10:19

Привет!

Помогите, пожалуйста!
Уже час ковыряюсь в хелпах в поиске функции копирования подстроки из строки. Подскажите, pls.

Суть вопроса заключается в следующем:

Из строки "aaaaa: 1.0" надо выцепить 1.0.

Есть ли аналоги sprintf(..) в VBA?
  • 0

#2 Nadezhda

Nadezhda

    Активный участник

  • Members
  • PipPip
  • 81 сообщений
  • Город:Харьков

Отправлено 11 мая 2006 - 10:30

Mid[$]( string$, start% [, length%] )

Mid ("aaaaa: 1.0", 8, 3)
  • 0

#3 Crash

Crash

    Новый участник

  • Members
  • Pip
  • 36 сообщений

Отправлено 11 мая 2006 - 10:37

Mid[$]( string$, start% [, length%] )

Mid ("aaaaa: 1.0", 8, 3)

Просмотр сообщения


Спасибо!
Видел же ее и читал :(
Извините, что отвлек на такой пустяковый вопрос.
  • 0

#4 Owl

Owl

    Новый участник

  • Members
  • Pip
  • 44 сообщений


Отправлено 06 июня 2006 - 07:42

Mid[$]( string$, start% [, length%] )

Mid ("aaaaa: 1.0", 8, 3)

Просмотр сообщения


А не подскажешь, как решается та же проблема (выделение подстроки из строки), если параметры Start% и Length% неизвестены. Но известно после какой подстроки начинается выделяемая и на какую подстроку она заканчивается.

Т.е. мне нужно выделить из "...Имя файла: бла-бла-бла.spl..." подстроку "бла-бла-бла.spl". :victory:
  • 0

#5 Nadezhda

Nadezhda

    Активный участник

  • Members
  • PipPip
  • 81 сообщений
  • Город:Харьков

Отправлено 06 июня 2006 - 08:46

Немного фантазии и все получится :victory:
Dim subStringBefore as String
Dim subStringAfter as String
Dim n1 as Integer
Dim n2 as Integer
Dim str as String
Dim targetString as String
...
str =  "...Имя файла: бла-бла-бла.spl..."
subStringBefore = "...Имя файла: "
subStringAfter = "..."
n1 = InStr (str, subStringBefore)
n2 = InStr (n1, str, subStringAfter)
targetString = Mid (str, n1 + len (subStringBefore), n2 - n1 - len (SubStringBefore))
...

  • 0


Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных