Функции обработки строк - VB

Узнай цену своей работы

Формулировка задачи:

не могу разобраться со всеми этими функциями, где и что использовать. например две задачи: а)указать минимальное количество первых букв, по которым можно различить слова из заданного набора (слова разделены пробелами). б) разбить исходныйтекст на строки длиной не более 50 символов. перенос на новую строку осуществлять на месте пробела (часть слова переносить нельзя) ну во второй задаче возможно надо использовать left и mid функции...но не понимаю как...помогите, если не сложно...

Решение задачи: «Функции обработки строк»

textual
Листинг программы
Option Explicit
 
Private Sub Комманда1_Click()
Dim S As String
Dim M() As String
Dim QWERT
S = "мама мыла машу мылом"
M = Split(S)
MsgBox StringAnd(M)
End Sub
 
Function StringAnd(ST() As String) As Byte
StringAnd = 1
Dim N
Dim T
Dim J
Dim I As Integer
N = 1
For I = 0 To UBound(ST)
DOB:
T = Left(ST(I), N)
       For J = I + 1 To UBound(ST)
       DoEvents
       If T = Left(ST(J), N) Then N = N + 1: GoTo DOB
       Next J
       If StringAnd < N Then StringAnd = N: N = 1
Next I
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5