Text

[Max!]

Вот такая проблема встала , есть 4'е TextBox'a txt1(1), txt1(2) txt1(3), txt1(4) , есть предложение "Я был у друга" и надо шоб прога сама расставляла по текстбоксам , тоесть програма прола целое слово или символ до пробела !!! TextBox'a txt1(1) = Я txt1(2) = был
txt1(3) = у txt1(4) = друга ! Предложение может быть любое !

[Amed]

На форме 4 проиндексированных текстбокса

Код: Выделить всё

Option Explicit
Private st() As String

Private Sub Form_Load()
Dim i As Integer
st = Split("Я был у друга", " ", , vbTextCompare)

For i = 1 To UBound(st) + 1
    Text1(i) = st(i - 1)
Next i
End Sub

[Amed]

А лучше так:
На форме только Text1(0) и .Visible=False

Код: Выделить всё

Option Explicit
Private st() As String

Private Sub Form_Load()
Dim i As Integer
st = Split("Я был у друга", " ", , vbTextCompare)

For i = 1 To UBound(st) + 1
    Load Text1(i)
    Text1(i).Top = Text1(0).Top + 320 * i
    Text1(i).Visible = True
    Text1(i) = st(i - 1)
Next i
End Sub

[Max!]

Спасибо Amed ! Вот последнее если добавить кнопку с событием
If Text1(i).Text = "был" Then text2.text = "шол" , но так неработает ! подскажите как !

[Amed]

Что-то я не понял... Может, так

For i=1 To ubound(Text1)
If text1(i).text="был" then
text2.text="шол"
exit for
end if
Next i

[Max!]

И ещё как научить прогу различать чётные и не чётные числа!

[Max!]

И ещё как научить прогу различать чётные и не чётные числа!

[alibek]

И ещё как научить прогу различать чётные и не чётные числа!

В ясли

[XPraptor]

Господа, вы тут забыли товарищу указать, что перед сплитом не плохо бы было проверить предложение на наличие не одного а двух и более пробелов между словами, а то ваш пример кучу пустых контролов на создает

[Max!]

Нет это не к этой теме эта другой вопросс!

[Amed]

Private Sub Form_Load()
Dim x As Integer

x = 14
If x Mod 2 = 1 Then
MsgBox x & " - нечётное число!"
Else
MsgBox x & " - чётное число!"
End If
End
End Sub

[X-BOND]

На счет вопроса про четные числа это ты пошутил наверно?
А если серъезно:
If Число Mod 2 = 0 Then Четное Else Нечетное

P.S.
Пока набирал текст, Amed уже опередил

[Max!]

Всем спасибо

[Max!]

А если в одном текстбоксе десять слов и два из них нужно заменить другими и перепесать в другой текстбокс уже с исправленными словами! Как это сделать

[Amed]

Код: Выделить всё

'На форме 2 текстбокса и кнопка

Private Sub Form_Load()
Text1.Text = "Я сегодня иду в парк"
End Sub

Private Sub Command1_Click()
Dim txt As String

txt = Text1.Text
txt = Replace(txt, "сегодня", "завтра")
txt = Replace(txt, "парк", "цирк")

Text2.Text = txt
End Sub

[Max!]

А если в этом коде

Код: Выделить всё

'На форме 2 текстбокса и кнопка

Private Sub Form_Load()
Text1.Text = "Я сегодня иду в парк"
End Sub

"если слово  "сегодня" написанно с большой буквы


Private Sub Command1_Click()
Dim txt As String

" А здес мы написали смаленькой буквы

txt = Text1.Text
txt = Replace(txt, "сегодня", "завтра")
txt = Replace(txt, "парк", "цирк")

"Кароче как сделать если текст идёт с большими буквами а
txt = Replace(txt, "сегодня", "завтра")
txt = Replace(txt, "парк", "цирк")
"здесь написанно с маленькими буквами то как сделать шоб он серавно изменил слово "сегодня" на "завтра" и тоже слову завтра поставил большую букву !  :evil:



Text2.Text = txt
End Sub


[Max!]

Help!

[Max!]

Please help me very much it is necessary !!!!!

[TEH3OP]

Please help me very much it is necessary !!!!! :shock:

Эээ... типа хаю дую... ;-)

Используй не строку, из текствоха на прямую, а преобразованную LCase$'ом к нижнему регистру, ну... и с ней уже делай Replace.

[Max!]

Код: Выделить всё

Private Sub Command1_Click()
Dim TXTb As String


TXTb = Text1.Text
TXTb = LCase$("privet")
TXTb = Replace(TXTb, "privet", "poka")
Text2.Text = TXTb
End Sub


Он понимает большие буквы но он заменяя ставит с маленькой буквы
а как сделать шоб он ставил заменённое слово тоже с большой если изменяемое было с большой!

[Max!]

Нет ничего не выходит! Совсем!

[XPraptor]

Тебе же сказали, юзай LCase$! Сначала все слово переводи в нихний регистр для сравнения, а потом проверяй первую букву, если она прописная то и замену делай с прописной.

If LCase$(Text1.Text) = "сегодня" then
If LCase$(Left(Text1.Text, 1)) = Left(Text1.Text, 1) Then
Text1.Text = Replace(Text1.Text, "сегодня")
Else
Text1.Text = Replace(Text1.Text, "Сегодня")
End If
end if