Удалить последнюю букву из всех слов строки

@yahalifeer · Регистрация: 25.12.2011

Author24 — интернет-сервис помощи студентам

Пишем последовательно слова в TextBox1 (между соседними словами не менее одного пробела, за последним словом точка). Задание: 1) Напечатать все слова последовательности - Это выполнил. 2) Удалить из каждого слова последнюю букву - надо сделать.
Вот написал часть программы, где происходит вывод слов:

Visual Basic

Dim S As String
Dim S1 As String
Dim j As Integer
Dim i As Integer
Dim A(1 To 20) As String
Dim N As Integer
S = TextBox1
N = Len(S)
j = 1
For i = 1 To N
If Mid(S, i, 1) <> " " And Mid(S, i, 1) <> "." Then S1 = S1 & Mid(S, i, 1)
If Mid(S, i, 1) = " " Or Mid(S, i, 1) = "." Then A(j) = S1: j = j + 1: S1 = ""
Next i
 
For i = 1 To j
S2 = S2 & A(i) & Chr(13)
Next i
MsgBox (S2)

Теперь нужно удалить последнюю букву каждого введенного слова. Этого сделать не могу. Помогите пожалуйста.

@~~Апострофф~~ · 01.04.2012, 14:26

Visual Basic

Dim A
Dim S$
Dim I%
S = Split(TextBox1, ".")(0)
While InStr(S, "  ")
  S = Replace(S, "  ", " ")
Wend
A = Split(Trim$(S))
MsgBox Join(A, vbCr), , "Задание: 1)"
For I = 0 To UBound(A)
  A(I) = VBA.Strings.Left$(A(I), Len(A(I)) - 1)
Next I
MsgBox Join(A, vbCr), , "Задание: 2)"

@yahalifeer · 01.04.2012, 16:33 **[ТС]**

Апострофф, спасибо! Работает. Но из всего что вы написало, я практически ничего не понял)

@~~Апострофф~~ · 01.04.2012, 17:54

Сообщение от yahalifeer

Но из всего что вы написало

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

@yahalifeer 1 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 26
	01.04.2012, 16:33 [ТС]	3
	Апострофф, спасибо! Работает. Но из всего что вы написало, я практически ничего не понял) 0

@~~Апострофф~~ Заблокирован
	01.04.2012, 17:54	4
	Сообщение от yahalifeer Но из всего что вы написало Из того, что я написало нет ничего, что отсутствует в справке и учебниках... 0