Разбить строку на подстроки - VB

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

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

Люди подскажите возможно ли считать из Text или какого другого окна в массив значения написанные например через пробелы и определить их количество? Как это сделать?
Мне нужно вводить кучю значений и не хочется создавать кучю Text, можно это как-то по проще сделать????

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

textual
Листинг программы
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 
Const KEYEVENTF_KEYUP = &H2 
 
Private Sub AddTo() 
Dim Buff$ 
On Error GoTo ErrClip 
   Call keybd_event(vbKeyControl, 0, 0, 0) 'нажимаем Ctrl 
   Call keybd_event(vbKeyC, 0, 0, 0) 'нажимаем C 
   Call keybd_event(vbKeyC, 0, KEYEVENTF_KEYUP, 0) 'отпускаем С 
   Call keybd_event(vbKeyControl, 0, KEYEVENTF_KEYUP, 0) 'отпускаем Ctrl 
 
   Buff = Clipboard.GetText 
   RichText1.Text=RichText1.Text & Buff 
End If 
ErrClip: 
End Sub

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


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

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

12   голосов , оценка 4.25 из 5
Похожие ответы