Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
VBA. Удаление последних символов до последней буквы
 
#1
10.11.2010 00:28:08
И последний вопрос на сегодня, извиняясь за назойливость :)  
Если не сильно затруднит кого-нибудь... :)  
в общем с помощью VBA хотелось бы удалить все последние символы до последней буквы...  
 
т.е. есть некое: S1 = "значение, ."  
а получить желательно: S2 = "значение"  
 
Из символов после букв могут быть только: пробел, точка и запятая.  
 
Спасибо еще раз всем-всем-всем!
 
 
 
#2
10.11.2010 00:35:28
А в середине строки эти символы могут встречаться?
 
 
 
#3
10.11.2010 00:38:27
Здравствуйте, Юрий! :)  
Да, в середине строчки эти символы могут присутствовать...
 
 
 
#4
10.11.2010 00:52:02
Привет!  
Вот это (для начала) не поможет?  
Sub eee()  
   For i = Len(Cells(1, 1)) To Len(Cells(1, 1)) - 2 Step -1  
       x = Mid(Cells(1, 1), i, 1)  
       MsgBox x  
   Next  
End Sub
 
 
 
#5
10.11.2010 00:58:49
Sub Test()  
   MsgBox CleanText("значение, .")  
End Sub  
 
Function CleanText(iText As String) As String  
Dim i As Long  
   For i = Len(iText) To 1 Step -1  
       If Asc(Mid(iText, i, 1)) > 65 Then  
           CleanText = Left(iText, i)  
           Exit Function  
       End If  
   Next i  
End Function
 
 
 
#6
10.11.2010 01:00:24
Небольшое дополнение    
 
Sub Test()  
   MsgBox CleanText("значение, .")  
End Sub  
 
Function CleanText(iText As String) As String  
Dim i As Long  
   For i = Len(iText) To 1 Step -1  
       If Asc(Mid(iText, i, 1)) >= 65 Then  
           CleanText = Left(iText, i)  
           Exit Function  
       End If  
   Next i  
End Function
 
 
 
#7
10.11.2010 01:05:09
Юрий, Павел! Спасиб за помощь!!! :) Оригинальный весьма метод :)  
Павел, с возвращением! :)
 
 
 
Страницы: 1
Читают тему
Наверх