Разбить строку на подстроки - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д