Строковые функции

@Viktor Grishko · Регистрация: 20.12.2016

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

Мне надо изменить код так, чтобы он смог работать с числами.
Вот код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Command1_Click()
Dim s As String
Dim fam As String
Dim im As String
Dim oth As String
Dim d As String
Dim n As String
Dim m As String
s = Trim(Text1.Text)
d = Len(s)
n = InStr(s, " ")
fam = Left(s, n - 1)
Text2.Text = fam
w = Len(fam)
Label1.Caption = Str(w)
m = InStrRev(s, " ")
im = Mid(s, n + 1, m - (n + 1))
Text3.Text = im
h = Len(im)
Label2.Caption = Str(h)
oth = Right(s, d - m)
Text4.Text = oth 
c = Len(oth)
Label3.Caption = Str(c)
z = UCase(Left(fam, 1)) + UCase(Mid(fam, 2)) + " " + UCase(Left(im, 1)) + "." + UCase(Left(oth, 1)) + "."
List1.AddItem z
End Sub

Должно быть как на картинке. Я пытался сам. Label мне не нужен(по заданию), убирая строки с Label я так же, убирал строки которые с ним могут быть связаны. Не получилось. Помогите, чем сможете, спасибо!

@Alex77755 · 01.01.2017, 15:20

Надо так меняй!
Начни с того, что измени объявления переменных со строки на числовые

@Viktor Grishko · 01.01.2017, 15:31 **[ТС]**

Так менял! Не получается. Можешь объяснить, а не тыкать тем, что я не понимаю.

Добавлено через 1 минуту
Если бы я сам смог разобраться, я бы не обращался за помощью. Мне надо тыкнуть пальцем, туда, где надо, что-то поменять или удалить....

@Catstail · 01.01.2017, 17:26

Начинать нужно с постановки задачи. Что нужно сделать? Разобрать дату на год месяц и день и отобразить где-то? Переделывать чей-то код - неправильный подход.

@gaw · 01.01.2017, 19:36

Visual Basic
1
2
3
4
5
6
7
8
9
Dim d As Date
If IsDate(Text1.Text) Then
d = Text1.Text
Label1 = Day(d)
Label2 = Month(d)
Label3 = Year(d)
Else
MsgBox "Format ##.##.#### or ##/##/####"
End If

@Viktor Grishko · 03.01.2017, 11:04 **[ТС]**

Я все понимаю, что переделывать чей-то код это не совсем правильно. В следующий раз вопрос будет поставлен точнее.
Я хочу разобраться, только у меня это не очень получается. Я читаю пояснения к заданиям, перечитываю их по несколько раз, выписываю из них важное. Все равно остаются непонятные вещи!

Спасибо за помощь!

Еще вопрос: MsgBox "Format ##.##.#### or ##/##/####" - это вывод сообщения с определенным кол-во символов?

@gaw · 03.01.2017, 11:27

это сообщение о том, что дату надо изначально вводить в таком формате
можно было бы написать dd.mm.yyyy или dd/mm/yyyy, т.е.,
если Вы изначально введете дату 12 12 2000 - то это не будет принято как дата
а 12/12/2000 - то это формат даты, и программа принимает эту дату , ну и дальше
выделяет день Day(d) , месяц Month(d) и год Year(d)

@Viktor Grishko · 03.01.2017, 11:31 **[ТС]**

Спасибо, удачного дня вам)

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	01.01.2017, 15:20
	Надо так меняй! Начни с того, что измени объявления переменных со строки на числовые 0

@Viktor Grishko 0 / 0 / 0 Регистрация: 20.12.2016 Сообщений: 26
	01.01.2017, 15:31 [ТС]
	Так менял! Не получается. Можешь объяснить, а не тыкать тем, что я не понимаю. Добавлено через 1 минуту Если бы я сам смог разобраться, я бы не обращался за помощью. Мне надо тыкнуть пальцем, туда, где надо, что-то поменять или удалить.... 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,741 Записей в блоге: 14
	01.01.2017, 17:26
	Начинать нужно с постановки задачи. Что нужно сделать? Разобрать дату на год месяц и день и отобразить где-то? Переделывать чей-то код - неправильный подход. 1

@Viktor Grishko 0 / 0 / 0 Регистрация: 20.12.2016 Сообщений: 26
	03.01.2017, 11:04 [ТС]
	Я все понимаю, что переделывать чей-то код это не совсем правильно. В следующий раз вопрос будет поставлен точнее. Я хочу разобраться, только у меня это не очень получается. Я читаю пояснения к заданиям, перечитываю их по несколько раз, выписываю из них важное. Все равно остаются непонятные вещи! Спасибо за помощь! Еще вопрос: MsgBox "Format ##.##.#### or ##/##/####" - это вывод сообщения с определенным кол-во символов? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	03.01.2017, 11:27
	это сообщение о том, что дату надо изначально вводить в таком формате можно было бы написать dd.mm.yyyy или dd/mm/yyyy, т.е., если Вы изначально введете дату 12 12 2000 - то это не будет принято как дата а 12/12/2000 - то это формат даты, и программа принимает эту дату , ну и дальше выделяет день Day(d) , месяц Month(d) и год Year(d) 0

@Viktor Grishko 0 / 0 / 0 Регистрация: 20.12.2016 Сообщений: 26
	03.01.2017, 11:31 [ТС]
	Спасибо, удачного дня вам) 0

Опции темы