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

Написал aus_gift в 11/02/2008 18:23:38

как понял вопрос так и пишу:

Sub mReadFile()


Dim tmp_str As String
Dim str_val() As String
Dim m_obj As Object
Dim m_file As Object

Dim ind_lv As Integer
ind_lv = 1

'Для отображения содержимого с несклькими столбцами лучше воспользовать ListView
'lv - это имя ListView на форме

lv.ColumnHeaders.Add 1, , "1", "70"
lv.ColumnHeaders.Add 2, , "2", "70"
lv.ColumnHeaders.Add 3, , "3", "70"
lv.ColumnHeaders.Add 4, , "Коментарий", "70"

' Че-то у меня Open работать не хотела
' Поэтому я сделал через объект

Set m_obj = CreateObject("Scripting.FileSystemObject")

Set m_file = m_obj.OpenTextFile("C:\1.txt", 1, False)


Do Until m_file.AtEndOfStream
tmp_str = m_file.ReadLine

If InStr(1, tmp_str, " ", vbTextCompare) > 1 And Trim(tmp_str) <> "" Then
str_val = Split(tmp_str, " ")
lv.ListItems.Add ind_lv, , str_val(0)
lv.ListItems.Item(ind_lv).SubItems(1) = str_val(1)

If UBound(str_val) >= 2 Then
lv.ListItems.Item(ind_lv).SubItems(2) = str_val(2)
End If

ind_lv = ind_lv + 1

End If

Loop
m_file.close

End Sub