If Not (rs.BOF Or rs.EOF) Then rs.MoveFirst While Not rs.EOF MsgBox rs(0) MsgBox rs(1) rs.MoveNext Wend End If --------------------------
MsgBox rs(0) virker fint. Den viser første værdi af alle linierne, men MsgBox rs(1) fejler. Den siger "Item cannot be found in the collection corresponding to the requested name or ordinal." og der ER flere værdier i hver linie.
Jeg programmerer med VB5 og har for 20 år siden arbejdet med tidlige basic-versioner under DOS. Derfor er min kode meget enkel og jeg kalder det 'husmands-programmering'.
Jeg laver mange programmer, der anvender ascii-filer til opbevaring af data og normalt er det linieskift der skiller felterne (VbCrLf) og jeg læser med Line Input. I den enkleste form læser 'Input' jo netop til en separator - typisk komma.
Hvor Print # skriver en linie, der afsluttes med CrVbLf skriver Write # en variabel og skiller med 'komma', hvis ingen anden separator er valgt. Dette lille eksempel har jeg lige lavet afprøvet.
Dim var As String Private Sub Command1_Click() Input #1, var MsgBox var End Sub
Private Sub Form_Load() Open App.Path & "\komma.txt" For Input As #1 End Sub
Tekstfilen består af ole,er,sød
Håber det kan inspirere, - din syntaks kan jeg ikke kommentere.
Grunden til at jeg foreslår en alternativ løsning er, at jeg ikke har meget forstand på at åbne filen og få den ind i et recordset. Har aldrig set det før... Så jeg foreslår noget andet, fordi jeg er for dum til at forstå hvad du har gang i ;o)
Hej, Tak for point. Hvis du så hvad man kan udrette med simple metoder i VB ville du blive forbavset. F.eks. at læse de sidste 128 bytes i en MP3-fil for at få fat i ID3-tags.
Data = "" filepos = FileLen(mp3fil) - 127 Open thisfile For Binary As #2 Get #2, lfilepos, Data Close #2
Du skal se nogle 'herresving' jeg har set i andre kodeeksempler
PS: Mht split, så kan man jo godt "splitte" uden at have funktionen split
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
