| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung
|
|
Autor
|
Thema: textdatei einlesen - fehlersuche (442 mal gelesen)
|
tappenbeck
Mitglied
Vermessungsingenieur
   Beiträge: 1218
Registriert: 30.05.2002 AutoCAD (Map)2024, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 22. Jun. 2006 14:35  <-- editieren / zitieren -->   Unities abgeben:          
moin ! kann mir einer von euch sagen woran es scheitert, dass nachfolgender code keine textdatei einlesen kann ? Code:
With Me.lst_files
.Clear
iFileIndex = FreeFile() Open sFilelistFile For Input As #iFileIndex Do While EOF(iFileIndex)
Line Input #iFileIndex, sZeile 'Leerzeichen entfernen
sZeile = LTrim(RTrim(sZeile)) .AddItem sZeile
iCountFiles = iCountFiles + 1
Loop End With
Close #iFileIndex
gruß Jan :-) ------------------
jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten1210
Mitglied
staatl. geprüfter Holztechniker
Beiträge: 1360
Registriert: 24.07.2002
|
erstellt am: 22. Jun. 2006 15:30 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck 
Hallo Jan, Ändere mal die Zeile "Do While EOF(iFileIndex)" in "Do Not While EOF(iFileIndex)". Dann sollte es funktionieren.
Deine Do While-Schleife wird ja nicht durchlaufen, weil das EndOfFile-Ereignis gar nicht auftritt.  Gruß, Carsten [Diese Nachricht wurde von Carsten1210 am 22. Jun. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tappenbeck
Mitglied
Vermessungsingenieur
Beiträge: 1218
Registriert: 30.05.2002 AutoCAD (Map)2024, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 22. Jun. 2006 16:17 <-- editieren / zitieren --> Unities abgeben:
hallo carsten, wenn ich Code:
Do not While EOF(iFileIndex)
eintrage dann wird die zeile rot hinterlegt und ich bekomme die meldung Zitat:
Fehler beim Kompilieren
Erwarte: While oder Until oder Anweisungsende
???? Gruß Jan :-)
------------------
jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1
Moderator
Verm.-Ing.
    
Beiträge: 1526
Registriert: 17.08.2005 Map 2000-2014, Rasterdesign,
MapGuide, Autodesk Topobase,
VS6, VS.net 2013
|
erstellt am: 22. Jun. 2006 16:57 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
Carsten1210
Mitglied
staatl. geprüfter Holztechniker
Beiträge: 1360
Registriert: 24.07.2002
|
erstellt am: 22. Jun. 2006 17:53 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
| |
tappenbeck
Mitglied
Vermessungsingenieur
Beiträge: 1218
Registriert: 30.05.2002 AutoCAD (Map)2024, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 22. Jun. 2006 21:50 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
