Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> как обрезать данные в переменной ? 
V
    Опции темы
qweqwe
  Дата 3.2.2008, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 0
Имеется пременная T$ в которой хранится значение "37" хранится именно как я и написал в ковычках.
каким методом мне обрезать значение так чтобы получилось 37 без ковычек
желательно пример спасибо.
PM MAIL   Вверх
Dexx
Дата 3.2.2008, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 7
Используй функцию Replace

Function Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As String
    Member of VBA.Strings
    Find and replace a substring within a string
Код

Sub main()
Dim s As String

s = "@37@"

MsgBox Replace(s, "@", "")


End Sub




Это сообщение отредактировал(а) Dexx - 3.2.2008, 17:17


--------------------
PM   Вверх
I_Am_Rock
Дата 3.2.2008, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 15
А разве не проще использовать 

Код

MsgBox Mid(T$, 2, 2)
PM MAIL WWW   Вверх
Dexx
Дата 3.2.2008, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 7
А если число будет 337. например


--------------------
PM   Вверх
qweqwe
Дата 3.2.2008, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 0
пасиба вы мне оч помогли.
PM MAIL   Вверх
Dexx
Дата 3.2.2008, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 7
Можно, конечно  MsgBox Mid(T$, 2, 3) и тд.
Но Replace на мой взгляд универсальней

А вообщето пофиг как.

Вопрос уже решен. 

Это сообщение отредактировал(а) Dexx - 3.2.2008, 19:52


--------------------
PM   Вверх
I_Am_Rock
Дата 3.2.2008, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 15
Цитата(Dexx @  3.2.2008,  19:50 Найти цитируемый пост)
Но Replace на мой взгляд универсальней

Да, наверное, ты прав...
PM MAIL WWW   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0426 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.