Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 4754 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(2)

Tipp von agowa338 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...