Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Текстовоя строка

Автор: Gannibal 9.1.2005, 15:11

господа программисты помогите плз, у меня проблема.. мне надо домашку принести в школу завтра а вот у меня комп неработает в интернет кафешке сижу а там ничего нету... smile

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

Код


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 smile

gannibal@centrum.cz

Автор: Vach 10.1.2005, 01:41

gannibal@centrum.v2.0 cz smile

Автор: Gannibal 10.1.2005, 16:47

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

Автор: Gannibal 10.1.2005, 22:57

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

Код


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)

Автор: Gannibal 11.1.2005, 09:08

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

Автор: Vach 11.1.2005, 09:12

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

Объясни что нужно подробнее.

Автор: Gannibal 11.1.2005, 09:14

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

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

Автор: Vach 11.1.2005, 09:18

Код

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 = ""
Ты прго это?

Автор: Gannibal 11.1.2005, 09:22

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

Автор: Vach 11.1.2005, 09:27

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

Автор: Gannibal 11.1.2005, 18:53

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