Programmieren - alles kontrollieren 4.941 Themen, 20.715 Beiträge

Verfolgung starten Optionen

bräuchte dringend QBasic oder VB quelltext

Fäbu / 8 Antworten / Baumansicht Nickles

Hallo zusammen
ich bräuchte ein möglichst einfaches Programm, welchen
aus der Dazei "c:\\Datei1.txt" linie für linie einliest
(nur ein Wort pro linie), vor jede linie die zeichenfolge
SN vorne ranhängt und die neu entstandene zeichenfolde in die
Datei "c:\\Datei2.txt" schreibt. also wenn Datei1.txt so aussieht:
dies
ist
ein
beispiel
dann müsste die Datei2.txt so aussehen:
sndies
snist
snein
sbbeispiel
ich hoffe jemand kann mir helfen
das Script sollte möglichst winfach sein
und in QB oder VB geschrieben sein.
leider weis ich nicht wie man linie für
linie einlesen kann.
wäre froh, wenn jemand einen kleinen
beispiels-quelltext posten könnte.
thx
Fabian

bei Antwort benachrichtigen
(Anonym) Fäbu „bräuchte dringend QBasic oder VB quelltext“
Optionen

...und dann? Dann wird das geistige Eigentum eines Lesers hier, von dir als dein Machwerk ausgegeben, stimmt's?

bei Antwort benachrichtigen
Manuela (Anonym) „...und dann? Dann wird das geistige Eigentum eines Lesers hier, von dir als dein...“
Optionen

Geistiges Eigentum - ein paar lächerliche Codezeilen, die es tonnenweise im Internet und in der VB-Hilfe gibt? Wenn du nicht mehr aufzuweisen hast als das, dann bist du eh arm dran.

Bleibe ruhig hocken auf deinem "geistigen Eigentum" und brüte darauf. Vielleicht schlüpft noch was aus - ein Floh vielleicht?

bei Antwort benachrichtigen
(Anonym) Manuela „Geistiges Eigentum - ein paar lächerliche Codezeilen, die es tonnenweise im...“
Optionen

Ich kenn solche Schmarotzer, bei ein paar Zeilen bleibt es nicht!
Gehörst du auch dazu?

bei Antwort benachrichtigen
(Anonym) Nachtrag zu: „Ich kenn solche Schmarotzer, bei ein paar Zeilen bleibt es nicht! Gehörst du...“
Optionen

ach, ich liebe hilfsbereite leute.
komm mal von deinem hohen ross herunter, warst du denn noch nie im netz? von was leben denn boards, wieso sind sie so populär? bestimmt nicht wegen solchen leuten wie dir, die einen anpöblen, wenn man was fragt.

bei Antwort benachrichtigen
(Anonym) Nachtrag zu: „ach, ich liebe hilfsbereite leute. komm mal von deinem hohen ross herunter,...“
Optionen

>wieso sind sie so populär?

weil man hier DAU's(dich eingeschlossen) so richtig klatschen kann!

bei Antwort benachrichtigen
Manuela (Anonym) „ach, ich liebe hilfsbereite leute. komm mal von deinem hohen ross herunter,...“
Optionen

Ach laß doch, der ist unbelehrbar.

bei Antwort benachrichtigen
Manuela Fäbu „bräuchte dringend QBasic oder VB quelltext“
Optionen

Hier ein Beispiel, das eigentlich für Access gedacht ist, aber es sollte dir weiterhelfen.



VAFile$ = "c:\Datei2.txt"


Wrap$ = Chr$(13) + Chr$(10)


Open VAFile$ For Input As #1


Do Until EOF(1)


Line Input #1, LineOfText$


AllText$ = AllText$ & LineOfText$ & Wrap$


txtVA.Text = AllText$


Loop


Close #1

bei Antwort benachrichtigen
Fäbu Manuela „Hier ein Beispiel, das eigentlich für Access gedacht ist, aber es sollte dir...“
Optionen

Danke für den Tip
habe es folgendermassen gamacht (VB 6.0):

wrap$ = Text3
MsgBox wrap$
Open Text1 For Input As #1
Open Text2 For Append As #2
Do Until EOF(1)
Line Input #1, lineoftext$
lineoftext$ = wrap$ & lineoftext$
Print #2, lineoftext$
Loop
Close #2
Close #1
MsgBox "fertig"

bei Antwort benachrichtigen