Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
RUNY0N_
Tutorial Leser
Tutorial Leser



Anmeldedatum: 19.05.2007
Beiträge: 53

Textdateien zusammenfügen
Verfasst am: 07.06.2007, 01:16

Wie kann ich 2 Textdateien zu einer zusammenfügen?

Also zum Beispiel in der ersten Textdatei steht:
1111
1111

in der zweiten:
2222
2222

und in der neu erstellten Textdatei soll dann stehen:
1111
1111
2222
2222
 
RUNY0N_
Tutorial Leser
Tutorial Leser



Anmeldedatum: 19.05.2007
Beiträge: 53


Verfasst am: 07.06.2007, 02:09

Naja kann geclosed werden, habe einen Lösungsweg gefunden.
 
Chickenman_
Poster
Poster

Anmeldedatum: 24.04.2007
Beiträge: 149


Verfasst am: 07.06.2007, 10:47

und wie hast du das gelöst ?
 
Bahamut_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 12.12.2006
Beiträge: 250


Verfasst am: 07.06.2007, 11:48

Bitte in Zukunft immer euere Lösungswege dazuschreiben, wenn einer sowas ähnliches braucht, sucht er über die SUFU, findet euren Thread und... weiß danach genausoviel wie vorher ^^

Denkt auch an die anderen User hier im Board Wink
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/
 
RUNY0N_
Tutorial Leser
Tutorial Leser



Anmeldedatum: 19.05.2007
Beiträge: 53


Verfasst am: 07.06.2007, 12:52

OK hier ist mein Lösungsweg:

[code]
dim first_txt as string
dim first_load as string

dim second_txt as string
dim second_load as string

dim third_txt as string

Open "c:\first.txt" For Input As #1
Do Until EOF(1)
Input #1, first_txt
first_load = first_load + first_txt + vbNewLine
Loop
Close #1


Open "c:\second.txt" For Input As #1
Do Until EOF(1)
Input #1, second_txt
second_load = second_load + second_txt + vbNewLine
Loop
Close #1


third_txt = first_load & second_load

Open "c:\third.txt" For Output As #1
Print #1, third_txt
Close #1
[/code]
 
Chickenman_
Poster
Poster

Anmeldedatum: 24.04.2007
Beiträge: 149


Verfasst am: 07.06.2007, 12:53


Zitat:

Dim first_txt As String
Dim first_load As String

Dim second_txt As String
Dim second_load As String

Dim third_txt As String

Open "c:\first.txt" For Input As #1
Do Until EOF(1)
Input #1, first_txt
first_load = first_load + first_txt + vbNewLine
Loop
Close #1


Open "c:\second.txt" For Input As #1
Do Until EOF(1)
Input #1, second_txt
second_load = second_load + second_txt + vbNewLine
Loop
Close #1


third_txt = first_load & second_load

Open "c:\third.txt" For Output As #1
Print #1, third_txt
Close #1



Danke schön , nur ne frage dazu . für was hast du das gebraucht.

Das programm könnt man z.b für verschlüsserung benutzen.

Z.b 1 text datei steht drin "Na mein schatz wie gehts " in der 2 datei
"du bist doof wie aldi "

Nun brauch man diese beiden Sätze bzw text datein um einen vollständigen
satz zu sehen wie "Na mein schatz wie gehts , du bist doof wie alti"

So nun das ist dann natürlich leicht knack bar aber man könnt ja

" du schatz aldi ,na mein wie doof gehts " Du verstehst hoffenlich was ich meine

Das wäre cool , Wink

Für serialnummer oder bilder schutz z.b[/code]
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: zusammenfügen, textdateien

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Konvertieren oder Neu schreiben einer VB 6 Anwendung? 948 27.06.2011, 08:47
Keine neuen Beiträge VB6: Projekt neu kompilieren ohne Steuerlemente Lizenz 464 05.01.2011, 17:09
Keine neuen Beiträge Ich bin neu hier! 526 08.01.2002, 18:48
Keine neuen Beiträge Msn Freezer ( Beispiel Ice-Cold ) 1696 07.02.2008, 18:48
Keine neuen Beiträge Einstellungen Speichern [Beispiel Source] 461 04.11.2007, 15:05
 


[ Time: 0.0683s ][ Queries: 97 (0.0271s) ][ GZIP on - Debug on ]