Иногда ради интереса, а может и нет надо перевернуть строку задом наперед строку (текст). Например:
имеем:
мы рулим!
Надо получить:
!милур ым
Может быть в данной ситуации текст перевернуть проблем не составит… А вот если это не 2 слова, а килобайты текста?
Тут нас на помощь приходит программирование. В данном случае программа будет на VB (Visual Basic). Никто не говорит, что надо именно на нем, просто мне так захотелось.
Итак, начнем. Сделаем переворот строки!
1. Запустим VB
2. Выберем «Standart EXE»:
3. Поставим на форму элемент text box
4. Поставим на форму command button:
Теперь займемся программной частью
1. Давайте дважды щелкнем по полю (не по кнопке и не по текстовой область, а именно по девственно чистой форме)
2. Щелкнули, видим:
Private Sub Form_Load()End Sub
Давайте между Private Sub Form_Load и End Sub напишем небольшой программный код:
text1.MultiLine = True Text1.text = "" Command1.Caption = "Перевернуть"
вместо «Перевернуть» можете написать свое.
3. Вернемся на форму и щелкним дважды на command button
появилось:
Private Sub Command1_Click()End Sub
Давайте посередине вставим:
Dim S, S1 As String S1 = "" S = Text1.Text For I = Len(S) To 1 Step -1 S1 = S1 + Mid(S, I, 1) Text1.Text = S1 Next I
4. Пробуем должно все получиться!
ну а кому лень все это делать могут скачать готовый проект —
perevertysh.rar (1,2 KiB, 832 hits)
Но все же ленивцам рекомендую:
если вы действительно хотите стать хорошим программистом, то наберите все вручную, не качайте готовый проект. Сделайте все сами. При этом у вас могут возникнуть ошибки. Именно умение находить и устранять их сделает из Вас настоящего программиста! Ну а позже можно скачать и сверить с нагим кодом.
Comments ( 0 )