как вернуть все символы до конца строки

Программирование на Visual Basic for Applications
Olegk
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 24.11.2004 (Ср) 22:09

как вернуть все символы до конца строки

Сообщение Olegk » 01.05.2005 (Вс) 10:43

нигде не нашел,
mid() вроде этоьго не делает,
задача такая есть строки
id:45865 55
id:45850 55

должный быть ранв
как
45865 55
45865 5
45865
и т.д
т.е здесь получатеся надо вернуть всю строку начиная с 4 символа.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 01.05.2005 (Вс) 10:46

mid$(s,4)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Olegk
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 24.11.2004 (Ср) 22:09

Сообщение Olegk » 01.05.2005 (Вс) 10:51

хмм... я думал при таком использовании он вернет первых четыре, ну даладно гут,спасибо.

Olegk
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 24.11.2004 (Ср) 22:09

Сообщение Olegk » 01.05.2005 (Вс) 10:56

а как сдлеать чтобы это условие возврощало true

Sub sss()
s = "id:130967 55"
d = "130967"
If Mid(s, 4) = d Then
MsgBox d & s
End If
End Sub

Olegk
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 24.11.2004 (Ср) 22:09

Сообщение Olegk » 01.05.2005 (Вс) 11:00

а если так
Sub sss()
d = "130967"
l = Len(d)
s = "id:130967 55"
If Mid(s, 4, l) = d Then
MsgBox d & s
End If
End Sub

при сравнении на равеснтво могут быть проблемы?

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 01.05.2005 (Вс) 12:45

Не думаю. Обе переменные - стринг, проблем быть не должно ;)


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList