Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Не могу понять https://www.cyberforum.ru/ visual-basic/ thread202310.html
нужно составить несколько строк программы которые описывали б эти действия: 1)посчитать среднее значение У (игриков) 2)посчитать кол-во эл-тов > среднего 3) высчитать сумму квадратов эл-тов <...
Очень долгая загрузка текстового файла VB
Всем привет! Сразу хочу оговориться, что VBA я только начал изучать. Возникла следующая проблемка - если загрузить текстовый файл (в районе нескольких сотен килобайт) в переменную типа string, то он...
Необходим совет профессионального математика или программиста VB
Существует следующая задача, которую необходимо решить в Exel или VBA или C++ или C# (на крайний случай в др.среде): Состоит таблица следующего вида (скриншот, прикрепленный файл Exel). Как можно...
VB Сортировка массива Здраствуйте. Прошу помощи в написании кода для сортировки фамилий по алфавиту и в случайном порядке. Мне подсказали что это можно сделать с помощью массива... вот только как я незнаю... Помогите кто... https://www.cyberforum.ru/ visual-basic/ thread201919.html
VB Двумерные массивы https://www.cyberforum.ru/ visual-basic/ thread201884.html
Помогите пожалуйста сделать программу на VB 6.0, которая находит минимальный элемент диагонали матрицы. У меня получилось сделать для одномерного (нахождение минимального элемента), но с двумерными...
Нужна книга по Visual Basic 6.0 VB
Доброго времени суток ! Нужно вспомнить Visual basic. Уважаемые подскажите где скачать книгу Использование Visual Basic 6 в формате PDF. Найти не смог и купит эту книгу уже нет возможности. ...
Возвращение факториала аргумента VB
Добрый день. Задание: Написать на VBA функцию, которая возвращает факториал аргумента. Моя программа почему то ругается на ошибку: Private Sub CommandButton1_Click() Dim A As Single A =...
VB Снежинка Парни выручите...надо написать прогу... 1. Разработать программу, которая обеспечивает рисование снежинки, число звеньев и количество ветвей которой задаются пользователем. https://www.cyberforum.ru/ visual-basic/ thread201603.html
VB Генерация чисел выбор рандомом и построение графика https://www.cyberforum.ru/ visual-basic/ thread201589.html
Помогите пожалуйста очень нужно к курсовику Очень давно програмировал на VB, и уже вообще ничего не помню А сейчас нужно срочно написать программу суть программы такова генерируется 10 чисел(от...
VB Составить программу, которая позволяет игроку найти выход из лабиринта Составить программу, которая позволяет игроку найти выход из лабиринта. Условия: 1) пусть прямоугольное клеточное поле (размером NxN, число N определяются при помощи генератора случайных чисел или... https://www.cyberforum.ru/ visual-basic/ thread201519.html
3 / 3 / 0
Регистрация: 02.12.2010
Сообщений: 26
02.12.2010, 22:58  [ТС] 0

Преобразовать строку, удалив все символы, не являющиеся буквами или цифрами

02.12.2010, 22:58. Показов 1489. Ответов 11
Метки (Все метки)

Ответ

Цитата Сообщение от <Профессор> Посмотреть сообщение
s=LCase(s)
понял вашу идею. решил сразу в исходной строке изменить её регистр, тем самым отпала необходимость в условном операторе описывать условие с большими буквами.
gaw, спасибо. замечание действительно существенное.
исправленный код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command2_Click()
Dim s As String
Dim a() As Integer
Dim s1 As String
s = InputBox("ââåäèòå ñòðîêó")
s = LCase(s)
k = Len(s)
ReDim a(1 To k)
For i = 1 To k
a(i) = Asc(Mid(s, i, 1))
Next i
s1 = ""
For i = 1 To k
If ((a(i) > 48) And (a(i) < 57)) Or ((a(i) > 97) And (a(i) < 122)) Then s1 = s1 & Chr(a(i))
Next i
Print s1
End Sub
Добавлено через 13 минут
при данном коде и при вводе строки "5a *9Z" выводиться результат 5.

Вернуться к обсуждению:
Преобразовать строку, удалив все символы, не являющиеся буквами или цифрами
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2010, 22:58

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Преобразовать последовательность S1,...,Sn , удалив все символы, не являющиеся буквами или цифрами
Даны натуральное число n, символы S1,...,Sn. Преобразовать последовательность S1,...,Sn , удалив...

Преобразовать последовательность, удалив все символы, не являющиеся буквами и цифрами
здравствуйте, попалась мне задачка ваще подстава-подстав по символьному типу: Даны символы...

Преобразовать строку символов, удалив из нее все символы, не являющиеся буквами
Прошу Вас, помогите! Дана строка символов. преобразовать строку символов, удалив из нее все...

Преобразовать строку символов, удалив из нее все символы, не являющиеся буквами
доброе время суток,Уважаемые знатоки...собственно вопрос вот в чем:Дана строка символов....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.