2 vraagjes

[retsech]

Hi,

Ik heb hier een aantal vraagjes die ik maar in 1 post kan stellen. (ik heb op google gezocht en kan niet vinden wat ik zoek)

Nou, hier komen ze:

----

Hoe kan ik een .listbox in 1 klap helemaal leegmaken?

----

Ik heb een code die dingen bestanden kan opslaan:

Open "dinges.txt" For Output As #1
Print #1, "hoi"
Close #1

Het probleem is dat hij het opslaat met een Enter erbij. Zegmaar een VbCrlf. Dus hij slaat 1 regeltje erbij op en dat is niet de bedoeling. Weet iemand hoe ik dit kan regelen?

----

Thx,

 

[joram]

For i As Integer = 0 To lstlijstnaam.Items.Count - 1
lstlijstnaam.RemoveItem i
Next

 

[retsech]

Die doet het niet helemaal

 

[retsech]

Ik heb al iets anders,

For i = 1 To FrmMain.List1.ListCount

'Remove an item from the ListBox.
List1.RemoveItem 0

Next i

Still, thanks.:thumb:

 

[bn2vs]

Je kan ook gwn dit doen. Niet echt veel zin om met lussen te gaan liggen zooien als er een method voor is die perfect werkt
jeListbox.Items.Clear()

Edit: dit gaat toch over vb.net he?

 

[retsech]

Nop, VB 6.0

Ik zal het er voortaan wel bij schrijven

 

[retsech]

En me 2e vraag?

 

[joram]

Dit is een workaround:

Onderstaande code verwijdert de lege regels uit file a en maakt file b aan zonder deze regels
Public Sub RemoveEmptyLines(ByVal sSource As String, ByVal sTarget as String)
' Open our source file
f1 = FreeFile
Open sSource For Input As #f1

' Open our target file
f2 = FreeFile
Open sTarget For Output As #f2

' Start processing till we reach the end
Do While Not EOF(f1)
' Read a line from the source file
Line Input #f1, x

' And if the line isn't empty, write it to the target file
If x <> "" Then
Print #f2, x
End If
Loop

' Close the two opened files
Close #f2
Close #f1
End Sub

Bron:
http://www.codegurus.be/codegurus/Programming/removeemptylines_en.htm

Mvg