Есть ли команда BASIC для подсчета количества символов в строке?

Я не мог найти ни одного. Есть ли один? Google мне не помог, потому что он нечувствителен к регистру и думает, что я ищу «базовые» команды.


person user2341977    schedule 02.05.2013    source источник
comment
Какой диалект основного языка вы используете?   -  person Damien_The_Unbeliever    schedule 02.05.2013
comment
Используйте LEN(переменная$)   -  person eoredson    schedule 29.07.2018


Ответы (6)


Используйте LEN(выражение), где выражение может быть любой строкой или строковой переменной.

Пример:

X = LEN("Jack Daniels") >>> X contains 12

or

strX = "Jack"
X = LEN(strX) >>> X contains 4
person Ivan Stankovic    schedule 18.07.2013

Все известные мне диалекты Basic имеют функцию len, которая возвращает длину строкового выражения. Примеры:

В Visual Basic .NET вы также можете использовать свойство .Length строки, но это свойство ведет себя иначе для значения Nothing: функция Len() против свойства String.Length; что выбрать?

person nd.    schedule 02.05.2013

Используйте Len

Dim YourString as String

Dim CharCount as Integer

YourString ="MyString"

CharCount  = LEN(YourString)

msgbox "There are " & CharCount & " Characters in mystring"
person JustGreat    schedule 30.03.2014

conta = strlen(name_of_variable)

strlen дает количество символов переменных, заданных целым числом

person Community    schedule 15.11.2013

Если вы имеете в виду, что хотите подсчитать количество определенного символа в a , вы можете сделать что-то вроде этого:

Dim YourString as String

Dim CharCount as Integer


Dim MyChr as Char
Dim chrl as Char

YourString ="MyString"
MyChr ="A"


CharCount  = 0

For i = 1 To Len(YourString)


chrl = Mid(YourString, i, 1)
if UCase(chrl) = UCase(MyChr) then
CharCount  = CharCount  + 1
end if

next i


msgbox "There are " & CharCount & " " & MyChr & " Characters in mystring"
person JustGreat    schedule 30.03.2014

Да, посмотрите на этот пример:

' Initializes variable. 
Dim TestString As String = "Hello World" 
' Returns 11. 
Dim TestLen As Integer = Len(TestString)

Итак, TestString = Hello World, а TestLen = 11, потому что в Hello World 11 символов.

person Tutorial Nom    schedule 23.11.2014