Re: Обработка текста из Clipborda

Написал magnus_z в 08/02/2008 15:52:38

Цитата:

Задача для VB, для VBA решается так же.
Сорри - нет времени расписывать подробно и думать над кодом, что нужно - доработай сам. Все работает, по крайней мере в Corel'овском VBA. Вместо "C:\Temp\1.txt" вставь, что нужно:

Private Sub rtrt()

Dim aaa_ As Integer
Dim aaa_l As Integer
Dim aa As String
Dim bb As String
Dim mm As String
Dim k As Integer

Open "C:\Temp\1.txt" For Input As #3
While Not (EOF(3))
Line Input #3, A$
aa = ""
bb = ""
mm = ""
For k = 1 To 2
aaa_l = Len(A$)
' Здесь " " - разделитель. Если разделитель другой, то ставь нужный, напр. vbTab , "*" и пр.
aaa_ = InStr(1, A$, " ", vbTextCompare)
If aaa_ <> 0 And Trim(A$) <> "" Then
If k = 1 Then
aa = Left(A$, aaa_ - 1)
A$ = Right(A$, aaa_l - aaa_)
End If
If k = 2 Then
bb = Left(A$, aaa_ - 1)
mm = Right(A$, aaa_l - aaa_)
End If
Else
MsgBox "В строке нет разделителя, пропускаю", vbCritical, " Тесту - тест!"
GoTo per_1
End If
Next
MsgBox "aa = " & aa & "; " & "bb = " & bb & "; " & "mm = " & mm
per_1:
Wend
Close 3

End Sub