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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@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 Супер-модератор 38178 / 21113 / 4307 Регистрация: 12.02.2012 Сообщений: 34,716 Записей в блоге: 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