Kleines Source Code snippet zum bearbeiten von textdateien Visual Basic Forum

Visual Basic Forum für VB6 und VB.NET Programmierer	Registrieren Login

Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Autor
Nachricht

Elrohir_
Tutorial Leser

Anmeldedatum: 10.09.2007
Beiträge: 59

Kleines Source Code snippet zum bearbeiten von textdateien
Verfasst am: 02.03.2009, 09:13

Guten Morgen!

Ich hatte mich schon länger damit beschäftigt, Teile aus einer Textdatei wieder entfernen zu können, doch die Lösungen von vbarchiv etc waren mir irgentwie alle viel zu lang und umständlich...
Jetzt habe ich hier mal eine einfache, und relativ kurze Funktion geschrieben, um halt einen String aus einer Textdatei zu entfernen..

Code:

Public Function deletefromtxt(ByVal sFilename As String, ByVal strtodelete As String)
ff = FreeFile
Open sFilename For Input As #ff
Dim liste As String
Input #ff, liste
Close #ff
If Len(liste) = Len(strtodelete) Then
Kill sFilename
Exit Function
End If
listeneu = Mid(liste, 1, InStr(1, liste, strtodelete) - 1) & Mid(liste, InStr(1, liste, strtodelete) + Len(strtodelete), Len(liste) - InStr(1, liste, strtodelete) - Len(strtodelete) + 1)
Dim listen() As String
listen() = Split(listeneu, vbCrLf)
listeneu = listen(0)
For i = 1 To UBound(listen)
If Not listen(i) = "" Then
listeneu = listeneu & vbCrLf & listen(i)
End If
Next i
ff = FreeFile
Open sFilename For Output As #ff
Write #ff, listeneu
Close #ff
End Function

Ich hoffe, es hilft dem ein oder anderen Smile
_________________

Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Tags: bearbeiten, textdatei, textdateien, code, source, snippet

Verwandte Themen Aufrufe Letzter Beitrag

Keine neuen Beiträge Problem mit always on top funktion 1039 30.10.2009, 11:26

IntStr()funktion 1177 11.10.2007, 08:49

TopMost Funktion unter DirectX 921 27.07.2007, 10:48

Wie Funktion nutzen ? 1102 29.06.2007, 20:59

update funktion einbauen 1341 28.01.2007, 23:11

RSS Grillen V
Sprüche
RSS Thomas Gsella - Voelkergedichte
RSS Taiwan: Drahtloses Internet ist grundlegendes Menschenrecht
dealrabbit Gutscheine Sprüche

[ Time: 0.1318s ][ Queries: 81 (0.0243s) ][ GZIP on - Debug on ]