Суть проблемы:
- Код: Выделить всё
a = Environ("windir")
b = Environ("tmp")
c = Environ("path")
Dim strNewText As String
With Text1
strNewText = a
.SelStart = Len(.Text)
.SelText = vbNewLine & strNewText
End With
With Text1
strNewText = b
.SelStart = Len(.Text)
.SelText = vbNewLine & strNewText
End With
With Text1
strNewText = c
.SelStart = Len(.Text)
.SelText = vbNewLine & strNewText
End With
End Sub
В одном textbox необходимо вывести информацию по windows. Для этого использовал такую схему. И тут возникла проблема. Как можно сделать перенос на новую строку проще? Пробовал с этой константой, vbCrLf = Chr (13) + Chr (10), что то не выходит.
И при выводе содержимого Environ("path") в одну строку пишет много лишнего с разделителем ";":
C:\PROGRA~1\Borland\CBUILD~1\Bin;C:\PROGRA~1\Borland\CBUILD~1\Projects\Bpl;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\Microsoft Visual Studio\Common\Tools\WinNT;C:\Program Files\Microsoft Visual Studio\Common\MSDev98\Bin;C:\Program Files\Microsoft Visual Studio\Common\Tools;C:\Program Files\Microsoft Visual Studio\VC98\bin
Мне же нужно только:
C:\WINDOWS\system32
C:\WINDOWS
C:\WINDOWS\System32\Wbem