OpenOffice.info

[quote="clag"]
Du solltest vielleicht einmal einen Python Einsteigerkurs hier anbieten!
Ich würde glatt [u]mit[/u] machen :lol:[/quote]

Du darfst ruhig selbst initiativ sein.
Einsteigerkurse gibts [url=https://docs.python.org/dev/tutorial/index.html]schon[/url] sogar auf [url=http://py-tutorial-de.readthedocs.org/de/python-3.3/]deutsch[/url] da darfst du nicht nur [i][u]mit[/u]machen[/i] sondern auch ganz alleine ... :wink:
Daneben gibts z.B. auch ein sehr gutes [url=http://www.python-forum.de/viewforum.php?f=1]Python-Forum[/url], da gibts auch freundliche[1] und kompetente Unterstützung bei konkreten Fragen.

[1]Solange der Fragesteller nicht gerade den Eindruck erweckt [u]seine[/u] Hausaufgaben von anderen erledigen lassen zu wollen.

Karolus

Hallo Karolus,

Danke erst einmal.

Du solltest vielleicht einmal einen Python Einsteigerkurs hier anbieten!
Ich würde glatt mit machen :lol:

Der Code sieht ja wirklich kurz und bündig aus!

with open('testfile.txt') as answerfile:
    next(answerfile)
    next(answerfile)
    print(answerfile.readline()) 

Hallo

Sowas macht man nicht in [u]Basic[/u] , beim ersten Zeichen ausserhalb von Ascii fällst du eh auf die Nase.

so gehts in python:

[code=php]with open('testfile.txt') as answerfile:
    next(answerfile)
    next(answerfile)
    print(answerfile.readline()) [/code]
das ist das einfachste um gezielt die dritte Zeile zu lesen

dim sLine as variant
sFileName = "c:\batch\ccalout.txt"
iNumber = Freefile

  Open sFileName For Random As iNumber  <<<<<<<<<<< löscht den inhalt der Datei 
    Get #iNumber, 2, sLine
  Close #iNumber

dim sLine as variant
sFileName = "c:\batch\ccalout.txt"
iNumber = Freefile

 Open sFileName For Input As iNumber
  While Not EOF(iNumber)
    if left(sLine,3) = "ans" then sAnswer = Right(sLine,len(sLine)-5)
  Wend
 Close #iNumber

Hallo Kenner und Könner,

laut Basic Hilfe soll man mit
Get [#] FileNumber As Integer, [Position], Variable
gezielt eine Zeile auslesen können

wenn ich das so ausführe bekomme ich einen
[b]BASIC Laufzeitfehler
Geräte E/A Fehler.
[/b]
Habe jetzt herausgefunden das nach ansprechen der Datei mit
[code]
dim sLine as variant
sFileName = "c:\batch\ccalout.txt"
iNumber = Freefile

Open sFileName For Random As iNumber <<<<<<<<<<< löscht den inhalt der Datei
Get #iNumber, 2, sLine
Close #iNumber
[/code]

diese leer ist


diese Schleife funktioniert hingegen

[code]
dim sLine as variant
sFileName = "c:\batch\ccalout.txt"
iNumber = Freefile

Open sFileName For Input As iNumber
While Not EOF(iNumber)
if left(sLine,3) = "ans" then sAnswer = Right(sLine,len(sLine)-5)
Wend
Close #iNumber
[/code]

was mache ich in dem ersten Code zum direkten ansprechen der Zeile falsch und was löscht den Inhalt der Datei?