Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Datei eingabe - ausgabe via Schleife

Frage Entwicklung VB for Applications

Mitglied: BadFsaadKl

BadFsaadKl (Level 1) - Jetzt verbinden

10.08.2009, aktualisiert 21:37 Uhr, 4784 Aufrufe, 2 Kommentare

Probleme mit dem Schreiben in eine Datei via Schleife in Visual Studio 2005

Hallo zusammen,


ich versuche in Visual Studio 2005 eine Datei auszulesen...
dies funktioniert ja auch wunderbar...
Nur wenn ich dann für jeden Wert in der Datei, mir diesen Wert via Schleife in eine neue Datei ausgeben will, macht er nur den letzten Wert.

Kann mir jemand helfen wo hier mein Denkfehler ist ???

Imports System.IO
Public Class frm_main

Private Sub cmd_open_file_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_open_file.Click
Dim ofc As New OpenFileDialog
ofc.Filter = "Texte (*.txt)|*.txt"
ofc.Title = "Wählen Sie die zu öffnende Datei aus"
If ofc.ShowDialog() = Windows.Forms.DialogResult.OK Then
MsgBox("Es wird geöffnet: " & ofc.FileName)
Else
MsgBox("Es ist ein Fehler aufgetreten")
End If
Dim Inhalt As New FileStream(ofc.FileName, FileMode.Open)
Dim sr As New StreamReader(Inhalt)
Dim zeile2 As String
Do Until sr.Peek() = -1
zeile2 = sr.ReadLine()
Dim fs As New FileStream("output.txt", FileMode.Create)
Dim sw As New StreamWriter(fs)
sw.WriteLine(zeile2 & vbCrLf)
sw.Close()
Loop
sr.Close()
End Sub
End Class

Im oberen Teil öffne ich die Datei normal via "OpenFileDialog"...
das funktioniert ja wie gesagt wunderbar...

Muß ich da die ein oder andere Zeile ein wenig "verrücken" ???

Bin mit Schleifen nicht so ganz "per du"....

Danke
Mitglied: bastla
10.08.2009 um 22:10 Uhr
Hallo BadFsaadKl!

Da Du in der Zeile
Dim fs As New FileStream("output.txt", FileMode.Create)
die Datei "output.txt" bei jedem Schleifendurchlauf neu erzeugst, enthält diese natürlich am Ende nur die letzte Zeile - verwende daher "Append" anstelle von "Create" (es geht also auch ohne eine besonders "verrückte" Zeile ) ...

Grüße
bastla
Bitte warten ..
Mitglied: BadFsaadKl
10.08.2009 um 22:19 Uhr
Moin Bastla,


danke dir recht herzlich....
hat funktioniert...

also nach dem "fehler" hätt ich glaub ich EWIG gesucht...


DANKE
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst FOR Schleife mit Unterverzeichnissen, die Ausgabe kürzen (tokens evtl.) (5)

Frage von Kriegstreiber zum Thema Batch & Shell ...

Batch & Shell
gelöst Powershell Funktion Ausgabe in Datei (2)

Frage von schicksal zum Thema Batch & Shell ...

Batch & Shell
For Schleife in einer .sh Datei (4)

Frage von CrystalFlake zum Thema Batch & Shell ...

Batch & Shell
gelöst Batch Eingabe in Datei schreiben (2)

Frage von MedicalAd zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(1)

Information von DerWoWusste zum Thema Microsoft ...

Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(6)

Information von LordGurke zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (19)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (15)

Frage von Lynkon zum Thema TK-Netze & Geräte ...