vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Texdatei bearbeiten ( incl. Zufallsauswahl) mit VB 2010 
Autor: Gerry239
Datum: 30.06.11 22:19
Hallo, ich tüftle an einem kleinen Programm mit (Visual Basic 2010) welches Folgendes können soll:
Eine Textdatei öffnen, die Zeilenanzahl ermitteln, per Zufallsfunktion zB. 20 Zeilen zufällig daraus auswählen, sowie die 20 Zufällig gewählten Textzeilen unverändert in eine neue Textdatei zurückspeichern.

Also zB: C:\MeinText.txt, enthält 500 Zahlenreihen wie hier:
2 4 55 88 43 12
7 39 12 88 99 33
........

....
6 17 89 45 66 77

Daraus die per Zufall ausgewählten Zeilen in eine neue Textdatei schreiben .

Ich wäre für Anregungen sehr dankbar, ich denke das es möglicherweise keine grosse Sache ist.
Ich habe schon einiges im Forum zusammengetragen und habe mich dabei möglicherweise gedanklich schon zu sehr verrannt.
Vielleicht hat Jemand eine "Einfache Lösung" parat.
Vielen Dank für Eure Hilfe, beste Grüsse von Gerhard.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Texdatei bearbeiten ( incl. Zufallsauswahl) mit VB 2010 
Autor: effeff
Datum: 04.07.11 20:00
Interessante Idee. Lade den Inhalt der Textdatei in einen String, splitte diesen in ein Array mittels Zeilenumbruch als Trennzeichen, erstelle dir 20 Zufallszahlen und schreibe die jeweiligen Array-Inhalte dann in deine Textdatei.

Damit du einen Anfang findest, habe ich anbei mal ein bisschen Code. Der Inhalt der Beispieldatei ("d:\irgendwas\deinedatei.txt") sieht folgendermaßen aus:

hier steht zeile 1.
hier steht zeile 2.
hier steht zeile 3.
hier steht zeile 4.
hier steht zeile 5.
hier steht zeile 6.
hier steht zeile 7.
hier steht zeile 8.
hier steht zeile 9.
hier steht zeile 10.

Beachte, dass die Beispieldatei mit dem Windows-Editor erstellt wurde und es sich bei den Zeilenumbrüchen um "richtige" vbCrLf handelt. Im Beispielcode wird die NEUNTE Zeile abgefragt. Das Array ist Nullbasiert! 

        Dim Datei As String = "d:\irgendwas\deinedatei.txt"
        Dim sr As New System.IO.StreamReader(Datei)
        Dim Inhalt As String
        Dim Zeilen() As String
 
        Inhalt = sr.ReadToEnd()
 
        sr.Close()
 
        Zeilen = Inhalt.Split(vbCrLf)
 
        MsgBox(Zeilen(8))
Wie man Zufallszahlen generiert, steht hier: http://www.vbarchiv.net/tipps/details.php?id=1367

Du musst also nun nur deine gewünschte Anzahl an Zufallszahlen generieren und dann den Inhalt des jeweiligen Array in eine neue Datei schreiben. Das geht fast genauso wie das lesen. Man nimmt dazu den StremWriter.

Have a lot of fun!

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel