Wie kann ich das öffnen ????

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Tiranium

Betreff: Wie kann ich das öffnen ????

BeitragFr, Jan 13, 2006 19:16
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi ich hab ein Problem ich will ein text dukoment in BlitzBasic öffnen so das er dann den Text anzeigt.

Wie kann ich das machen ????
 

dark19

Gast

BeitragFr, Jan 13, 2006 19:19
Antworten mit Zitat
Haste dir Nen Grundlagen Tutorial durchgelesen?
Nein!
Geh auf www.robsite.de und les dir das Turoial von Rob durch dann weiste es Rolling Eyes

Aber hier sag ich es trozdem
Code: [AUSKLAPPEN]

Hier nen beispiel:
Stream=Readfile("Dubistdoof.txt")
DuBistdoof$=Readline(Stream)
CloseFile(Stream)
Print Dubistdoof$

Jetzt hast du die erste zeile der Datei DUbistdoof.txt Gelesen und ausgegeben!
Fertig
Wenn du mehr über dateien wissen wilst Geh auf [url] www.robsite.de[/url]

  • Zuletzt bearbeitet von dark19 am Fr, Jan 13, 2006 19:25, insgesamt einmal bearbeitet
 

Rubber

BeitragFr, Jan 13, 2006 19:20
Antworten mit Zitat
Benutzer-Profile anzeigen
da steht (fast) ales für den Anfang drin

mfg
rubber
Wenn Gott mich schon liebt, dann dich erstrecht...
 

Tiranium

Betreff: Ich hab dar schon mal na

BeitragFr, Jan 13, 2006 19:24
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich hab dar schon mal nachgesehen und ReadFile ...
gefunden ich find aber nicht den Befehl wie mann alles darstehlen kann und nicht nur ein sTRING gezeigt wird cih will das alles untereinander steht z.b

Was

Ich nicht

Di

konjj
...
So wie issen der Befehl sacht mir das doch mal !!!!!!!!!!!!
 

dark19

Gast

BeitragFr, Jan 13, 2006 19:27
Antworten mit Zitat
Hier der code um eine ganze datei auszulesen:
Code: [AUSKLAPPEN]

stream=Openfile("dubistdoof.txt")

while not eof(stream)

print readline(stream)
wend
Closefile(stream)



Hast du schon was gecodet?
Wenn ja dann zeig mal bitte
 

Tiranium

BeitragFr, Jan 13, 2006 19:32
Antworten mit Zitat
Benutzer-Profile anzeigen
Geht das auch Mit Microsoft Wod Dateien ????? Embarassed Embarassed
  • Zuletzt bearbeitet von Tiranium am Fr, Jan 13, 2006 19:36, insgesamt einmal bearbeitet

Artemis

BeitragFr, Jan 13, 2006 19:33
Antworten mit Zitat
Benutzer-Profile anzeigen
du kannst sogar exe-dateien auslesen.
nur bekommst du sie so zurück, als wenn du sie mit nem text-editor öffnest.
 

Tiranium

BeitragFr, Jan 13, 2006 19:36
Antworten mit Zitat
Benutzer-Profile anzeigen
Und wie kann ich das machen das ich es so habe wie in Microsoft Word ???

(Ach wie lauten den der Befehl wenn ich ein Micro Datei einlesen wil ????)

5k41

BeitragFr, Jan 13, 2006 19:40
Antworten mit Zitat
Benutzer-Profile anzeigen
Also erstmal zu deiner ursprünglichen frage: ich kann es echt nicht fassen...WIR HABEN DICH SCHON MINDESTENS 100000000 MAL DARAUF HINGEWIESEN DIE FORUM-SUCHE ZU BENUTZEN UND DIR TUS REINZUPFEIFEN!!!!!!!!
so nun zu den word dateien...du musst dazu die verschlüssellung des words format knnen...sprich: praktisch unmöglich da microsoft mit word ja auch gelf verdienen willl und das somit nicht so einfach rausgibt, da sonst leute wie du ein word coden würden (wenn sie denn coden könnten) und es billiger als microsoft vertreiben könnten...also schlag dir das lieber aus dem kopf...
Projekte:
For a better World - Gesellschaftsspiel ( 100%)

User posted image
 

dark19

Gast

BeitragFr, Jan 13, 2006 19:41
Antworten mit Zitat
du must nur den datei namen ändern im meinem beispiel ist es "Dubistdoof.txt"
 

Chris02

BeitragFr, Jan 13, 2006 20:10
Antworten mit Zitat
Benutzer-Profile anzeigen
sieh dir mal execfile an

BtbN

BeitragFr, Jan 13, 2006 20:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Also OpenOffice kann Word-Dateien verarbeiten, und seit wann sind die verschlüsselt?
Wenn ich da mit gedit ran gehe, kann ich meinen Text(zugegeben mit etwas müll drumrum) im klartext erkennen.
 

Florian

BeitragFr, Jan 13, 2006 22:47
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]


Function Doc_In_Txt(Doc$,Txt$)
 DocNr=ReadFile(Doc$)
 TxtNr=WriteFile(Txt$)
 
 SeekFile DocNr,31
 Textbegin=ReadInt(DocNr)
 SeekFile DocNr,Textbegin
 
 AscII=ReadByte(DocNr)
 While AscII<>0
  WriteByte TxtNr,AscII
  AscII=ReadByte(DocNr)
 Wend

 CloseFile TxtNr
 CloseFile DocNr
End Function
 
Function WordText$(DateiName$)

 DateiNr=ReadFile(DateiName$)

 SeekFile DateiNr,31
 Textbegin=ReadInt(DateiNr)
 SeekFile DateiNr,Textbegin

 AscII=ReadByte(DateiNr)
 While AscII<>0
  Text$=Text$+Chr$(AscII)
  AscII=ReadByte(DateiNr)
 Wend

 CloseFile DateiNr

 Return Text$
End Function

5k41

BeitragFr, Jan 13, 2006 22:57
Antworten mit Zitat
Benutzer-Profile anzeigen
mh ok das man worddateien so einfach umwandeln kann wusst ich nicht dann tut es mir in diesem fall leid was ich gesagt hab aber BITTE BITTE nimm dir meine antwort zum ersten punkt zu herzen und lies tutorials und BENUTZ DIE FORUMSUCHE!!!das wird hier bestimmt auch schon zum 10. mal diskutiert...
Projekte:
For a better World - Gesellschaftsspiel ( 100%)

User posted image

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group