|
| |

Visual-Basic Einsteiger| Re: Na, löschen wir mal ... | |  | | Autor: Atlan | | Datum: 13.01.02 18:36 |
| Hi Lordchen,
habe ausprobiert und bin leider an folgenden Fehlern
hängengeblieben:
Hier bricht der Vogang ab, wenn ich auf einen Eintrag klicke,
der sich vor dem letzten Eintrag befindet mit der Meldung:
Laufzeitfehler '63':
Falsche Dateisatznummer
'********************************************
Get #F, sNr, Addressen 'Hier bricht der Vogang ab
'********************************************
Siehe: 'Hier bricht der Vogang ab
Private Function ConvertUDT(oUDT As Adr) As String
Dim S As String
S = Space(Len(Addressen))
CopyMem ByVal S, oUDT, Len(Addressen)
ConvertUDT = S
End Function
Private Sub LoadDS(ByVal sNr As Long)
Dim vErg As Variant
Dim F As Byte
Dim n As Integer
Dim i As Long
Dim S As String
'Felder leeren
For i = 0 To 15
txt(i).Text = ""
Next
F = FreeFile()
On Error GoTo FileError
Open "Adressen.TXT" For Random As #F Len = Len(Addressen)
On Error GoTo 0
Get #F, sNr, Addressen 'Hier bricht der Vogang ab
Close #F
S = ConvertUDT(Addressen)
vErg = Split(S, ";") 'na Trickreich was
For i = 0 To UBound(vErg) - 1 Step 2
txt(n) = Trim(vErg(i))
n = n + 1
Next
Exit Sub
FileError:
MsgBox "Fehler beim Öffnen der Datei.", vbExclamation, "Dateifehler"
End Sub
Woran kann das liegen ?
Und warum entsteht dieser Fehler, wenn die Datei Adressen.TXT schon
vorhanden ist, aber ohne Einträge, und ich das Proggi das erste Mal
mit einem Klick auf "cmdNew" starte erscheint folgendes:
1,57854406130268 in "txt(0)"
gruß
Atlan |  |
 Text einlesen 2 | 93 | Atlan | 12.01.02 00:43 |   Na, da wollen wir Dich vor einem schweren Designfehler schüt... | 239 | unbekannt | 12.01.02 12:35 |   Teil 1: Done. | 245 | unbekannt | 12.01.02 16:05 |    Re: Teil 2: Done. | 235 | unbekannt | 12.01.02 16:35 |     Re: Teil 3: Done. | 252 | unbekannt | 12.01.02 16:45 |      Re: Teil 4: Done. | 216 | unbekannt | 12.01.02 17:28 |       Das war's mal, aber: | 224 | unbekannt | 12.01.02 17:36 |   Re: Das war's mal, aber: | 37 | Atlan | 12.01.02 21:27 |    Wieso, das ist doch keine Datenbank? Naja, ich fasse es mal ... | 261 | unbekannt | 12.01.02 21:35 |   Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ... | 72 | Atlan | 13.01.02 00:10 |    Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ... | 239 | unbekannt | 13.01.02 00:23 |   Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ... | 68 | Atlan | 13.01.02 01:46 |    Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ... | 214 | unbekannt | 13.01.02 01:48 |     Komplett und funkt  | 345 | unbekannt | 13.01.02 15:03 |      Re: Komplett und funkt  | 48 | Atlan | 13.01.02 16:07 |       Na, löschen wir mal ... | 432 | unbekannt | 13.01.02 18:11 |        Re: Na, löschen wir mal ... | 43 | Atlan | 13.01.02 18:36 |         Re: Na, löschen wir mal ... | 284 | unbekannt | 13.01.02 19:11 |          Re: Na, löschen wir mal ... | 38 | Atlan | 13.01.02 20:09 |           Re: Na, löschen wir mal ... | 240 | unbekannt | 13.01.02 20:15 |            Re: Na, löschen wir mal ... | 58 | Atlan | 13.01.02 21:10 |             Re: Na, löschen wir mal ... | 252 | unbekannt | 14.01.02 00:22 |              Re: Na, löschen wir mal ... | 44 | Atlan | 14.01.02 23:37 |               Re: Na, löschen wir mal ... | 35 | Atlan | 16.01.02 09:56 |                Re: Na, löschen wir mal ... | 43 | Atlan | 16.01.02 19:59 |                 Hi ... Hi .... | 439 | unbekannt | 16.01.02 20:06 |                  Re: Hi ... Hi .... | 46 | Atlan | 16.01.02 21:50 |                   So isses ... fast ... Good work! (oT) | 240 | unbekannt | 16.01.02 21:55 |                    Naja, wenn einige bei Snake so mitgedacht hätten ... uiii | 361 | unbekannt | 16.01.02 22:11 |                     Re: Naja, wenn einige bei Snake so mitgedacht hätten ... uii... | 44 | Atlan | 17.01.02 10:56 |                      Hi Lordchen | 37 | Atlan | 20.01.02 11:29 |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|