ListBox=>RichTextBox

[RayShade]

Ну... Переносить в цикле?

[RayShade]

Ну так тогда в чем вопрос?

Делай цикл и того, переноси

[GSerg]

Циклом

[Antonariy]

Замечательный вопрос. Прежде, чем с таким лезть на форум, потрудись купить (скачать, благо ссылки здесь представлены) и прочитать какую-нибудь книжку по VB.

Здесь был код, но его здесь больше нет

[GSerg]

мдаа...замечательный форум....

Да, здесь приходится работать головой, не все выдерживают, ты это точно заметил...

[RayShade]

Блин, ну зачем человеку который даже не знает что такое цикл, что то куда то переносить? Тьфу блин.

Код: Выделить всё

dim i as long
for i=0 to listbox1.listcount-1
rtb.text=rtb.text+listbox1.list(i)+vbcrlf
next i

[GSerg]

Что и требовалось доказать?..

[RayShade]

Ну мозг то включи.

Ну не listitems а просто list. Это в listview listitems

Справочником то можно воспользоваться в конце концов. Или хлтя бы просто после точки CTRL+SPACE нажать. Иногда, говорят помогает.

[RayShade]

emogod

И в каком месте оно у тебя не работает? Я что угадывать должен? Или может, ты скажешь чт оза ошибка и где?

[GB826]

Предполагаю, что Vb не знает что такое rtb... :о))

[CORBA]

Предполагаю, что Vb не знает что такое rtb... :о))

Это который по дефолту RichTextBox1

[Nicky]

TextRTF

[RayShade]

emogod

А ты уверен в том, что этот код вообще вызывается? Скажем, в каком месте программы, ты его поместил?

Nicky

Нет. Именно, TEXT потому что TEXTRTF, принимает только RTF форматированную строку.

[Nicky]

RayShade

Код: Выделить всё

  With rtb
    .Text = "lalala"
    MsgBox "Любуемся"
    .SelStart = 0
    .SelLength = Len(.Text)
    .SelFontSize = 26
    .SelItalic = True
    .SelColor = clRED
    MsgBox "Любуемся"
    .Text = ""
   
    .TextRTF = "lalala"
    MsgBox "Любуемся"
    .SelStart = 0
    .SelLength = Len(.TextRTF)
    .SelFontSize = 26
    .SelItalic = True
    .SelColor = clRED
    MsgBox "Любуемся"
    .TextRTF = ""
  End With


Результат один и тот же
Правда Len(.TextRTF) = 153, а .SelLength = 8 (?)

Догадка: emogod, у тебя список-то заполнен?

[Nicky]

Код: Выделить всё

Sub AppendLog(s As String)
  On Error Resume Next
 
  Open App.Path & "\logs " & Format$(Now, "dd.mm.yy") & ".log" For Append As #1
  Print #1, Format$(Now, "dd.mm.yyyy Hh:Nn:Ss") & " - " & s
  Close #1
End Sub


[GSerg]

Т.е. человек, успешно сделавший клиент-серверную прогу, не знает, как перенести строки в рич и как разделить файлы по дням?..

[Viper]

лог-файл надо считывать построчно

[Nicky]

Перебираем файлы по маске "logs*.log"

[Nicky]

Код: Выделить всё

Sub Files2List(sFolder as String, sMask as String)
  Dim f As Object, s As String, v, i As Long

  With CreateObject("Scripting.FileSystemObject").GetFolder(sFolder)
    For Each f In .Files
      If LCase$(f.name) Like sMask Then
        Open f.name For Binary As #1
        s = String$(LOF(1), Chr(0))
        Get #1, , s
        Close #1
        v = Split(s, vbCrLf)
        For i = LBound(v) To UBound(v)
          Form1.List1.AddItem v(i)
        Next
      End If
    Next
  End With
End Sub


[Nicky]

GSerg

=) а у меня всегда так. даже моя первя программа была не "hello world!" а простенький проигрыватель wav файлов)))

И кого ты замучал в прошлый раз?

[RayShade]

И тут я вспомнил старый старый, анекдот.

Был у мужика (М) геморрой (не тот, который на работе, а тот который настоящий). Пришел он к доктору (Д), и тот ему выписал свечи. И, значит, написал "применять ректально".
(М) Доктор, а это как?
(Д) Ну, это, анально то есть
(М) Простите, не совсем понимаю....
......
(Д) Да в ж@#у! В ж@#у себе их засунь!!!
(М) Ну вот... КУльтурный вроде человек, а ругаетесь...

[RayShade]

Ты это, юмор то понимай это раз. И выражения выбирай это два.

[Nicky]

Или так, красивее

Код: Выделить всё

Private Sub Form_Load()
  Files2List "c:\logs", "logs*.log"
End Sub

Sub Files2List(sFolder As String, sMask As String)
  Dim s As String, v, i As Long
 
  s = Dir(sFolder & "\" & sMask)
  Do Until Len(s) = 0
    Open sFolder & "\" & s For Binary As #1
    s = String$(LOF(1), Chr(0))
    Get #1, , s
    Close #1
    v = Split(s, vbCrLf)
    For i = LBound(v) To UBound(v)
      Form1.List1.AddItem v(i)
    Next
    s = Dir
  Loop
End Sub


Если уж это непонятно, то...
А матюгаться не стоит, звание новичка не дает такого права

[RayShade]

emogod

Жаль конечно. Что, предупреждениям ты не внял.

Сообщение это, наверное тебе читать уже не придется.

[emogod1]

Nicky

спасибо за код

RayShade
удачи тебе по жизни

[Viper]

[offtop]Судя по реинкарнации надо полагать, автор получил награду? а почему сей факт не отметился в соответствующем списке?[/offtop]

[Ruslan Demidow]

Мда. Долго смеялся читая тред.
Самое главное чел ни одного алгоритма видимо не писал - всё за него сделали формучане. Он только собрал в одну кучку всё это.