господа программисты помогите плз, у меня проблема.. мне надо домашку принести в школу завтра а вот у меня комп неработает в интернет кафешке сижу а там ничего нету... так вот проблема простая очень... вот задание короче у меня текстовое поле в котором три слова.. и последственно три пустых поля что после написания этих трёх слов и нажатия на кнопку должно в те три поля вывести по слову я знаю как ето сделать но некде написать плз, пошлите мне весь проект с экзешником... плз.. очень надо.. главное чтобы работало а как там написано будет неважно просто если не работает.. мне короче капут.. а если работает значит хорошо.. плз помогите..
вот код мой приблизительно как бы ето могло быть а так незнаю если работать будет

Код

bytOrder = InStr(strName, " ") ' ischet probel v pole strName strName = Trim(txtName.Text) ' ubiraet probely v konce strFName = Left(strName, bytOrder-1) ' vozmjot slovo do pervogo probela strSName = Mid(strName, bytOrder+1) ' podschitaet vse znaki od probela strTitul = Right(strName, bytOrder) 'vse znaki s prava do probela

плз помогите незнаю где код писать даже.. mail [email protected]

Это сообщение отредактировал(а) M.E.G.U.S - 9.1.2005, 15:53

[email protected] cz

Это сообщение отредактировал(а) Vach - 10.1.2005, 18:11

короче спасибо тебе Вач и Бом .. всё окей.. короче ещё надо чтобы определало первое слово должно быть титул их всего 19 как ух определить.. ето первое слово если его нету то в первое поле ничего непишется а если оно неправельное ошибку выдаст до завтра надо

вот что у меня получилось.. незнаю если правельно

Код

Option Explicit Dim i Dim z Private Sub Command1_Click() Dim Titul(4) As String Titul(0) = "MUDr." Titul(1) = "Ing." Titul(2) = "Mgr." Titul(3) = "JUDr." z = Left(Text1, InStr(Text1, " ") - 1) For i = 0 To 4  If Titul(i) <> z Then      Text2 = ""      Text3 = Left(Text1, InStr(Text1, " ") - 1)      Text4 = Right(Text1, (Len(Text1) - Len(Text3)) - 1)  End If Next i For i = 0 To 4 If Titul(i) = z Then  Text2 = Left(Text1, InStr(Text1, " ") - 1)  Text3 = Left(Right(Text1, Len(Text1) - InStr(Text1, " ")), InStr(Right(Text1, Len(Text1) - InStr(Text1, " ")), " ") - 1)  Text4 = Right(Text1, (Len(Text1) - Len(Text2) - Len(Text3)) - 2) End If Next i End Sub

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

Код

Text4 = Right(Text1, (Len(Text1) - Len(Text2) - Len(Text3)) - 2)

to Vach
у тебя тоже очень хороший код, вот к тебе и вопрос ;) а вот смотри а если я введу только имя и фамилию а больше ничего как быть?

"как быть" с чем, где, когда? Я с первого поста не очень хорошо понял задачу
Объясни что нужно подробнее.

короче ты всё зделал правельно в проге и с титулами.. всё окей.. помоги ещё плз напиши думаю нетрудно что когда введена тока имя и фамилия тогда тока они выведутся а титул пустой остаётся ;) вот так вот и мне хватит при помощи метода сплит ;) понял?

смотри код выше что я выкладывал если поможет
Добавлено @ 09:15
да и времени подзарез.. мне через 10 минут уходить если сможешь счас до 10 минут своять сто лет блогадарен буду

Это сообщение отредактировал(а) M.E.G.U.S - 11.1.2005, 09:15

Код

Private Sub Title(ByRef s_In As String) 'Title collection Dim nF1 As Integer Dim fAdd As Boolean fAdd = False For nF1 = 0 To List1.ListCount - 1    If s_In = List1.List(nF1) Then        fAdd = True        End If    Next nF1 If Not fAdd Then s_In = "Title not found" End Sub

Замени If Not fAdd Then s_In = ""
Ты прго это?

не ето нето опять будет.. смотри если я ввожу первое слово то оно его определяет как титул.. а если я титул не введу а вместо него имя то оно ненапишется.. надо писат два раза или ставить пробел

Если первое слово не титул >> нечего не выводить вообще?

всё зделано в школе код ещё успел дописатЬ огромное спасибо вамза помощь