title image


Smiley Re: VB6 - Txt datei "beschneiden"
Hallo, zum Beispiel so:

Private Sub Command1_Click()

Dim Text As String

Dim Nr As Integer

 

Nr = FreeFile

 

Open "D:\Test.txt" For Binary As Nr

Text = Space(LOF(Nr))

Get Nr, , Text

Close Nr

 

Text = Mid(Text, 3)

 

If Dir("d:\test.txt") <> "" Then Kill "D:\Test.txt"

 

Nr = FreeFile

 

Open "D:\Test.txt" For Binary As Nr

Put Nr, , Text

Close Nr

 

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: