Notifikationer

Markér alle som læst Log ud

niels_kristian Nybegynder

07. februar 2003 - 09:52 Der er 10 kommentarer og
1 løsning

EFO og string eller integer

Hej
her er 2spm 15 point pr svar

1)
jeg har et filesystemobjekt som jeg sætter til at læse i en txt fil men når den kommer til slutning af filen kommer der fejl fordi der ikke er flere data. Hvordan siger jeg
if Textfil.EFO then
else
end if

der ikke noget der hedder .EFO

2)
hvordan finder jeg ud af om det jeg læser i min text fil er et tal eller text?

Synes godt om

Spotgun Seniormester

07. februar 2003 - 09:57 #1

1. Det er Textfil.EOF
EOF = End Of File...

2. ved at bruge isNumeric(data) eller VarType(data). Se mere her:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vbscripttoc.asp
Kig under "functions"...

Synes godt om

medions Nybegynder

07. februar 2003 - 10:00 #2

If (Textfil.EOF) Then

End If

//>Rune

Synes godt om

niels_kristian Nybegynder

07. februar 2003 - 10:09 #3

sys ik jeg kunne få EFO til at virke
prøver lige igen

Synes godt om

niels_kristian Nybegynder

07. februar 2003 - 10:13 #4

spotgun --> 15 point for spm 2) vil lige prøve igen om jeg kan få EFO til at virke

Synes godt om

Spotgun Seniormester

07. februar 2003 - 10:14 #5

Der er IKKE noget der hedder EFO, det hedder EOF!!!

Synes godt om

jrl0469 Nybegynder

07. februar 2003 - 10:18 #6

Årh hva' når han nu gerne vil kalde det EFO!!!!

Synes godt om

Spotgun Seniormester

07. februar 2003 - 10:20 #7

heh, yeah... gad vide om man kan opfinde sin egen metode, så det alligevel kan la' sig gøre? :-)

Synes godt om

jrl0469 Nybegynder

07. februar 2003 - 10:26 #8

Jah, høhø eller måske FOE = Fools Own Ending!
Nå men hav en god weekend...

Synes godt om

sjh Nybegynder

07. februar 2003 - 13:06 #9

Private Sub Form_Load()
Dim fso As Object
Dim f As Object
Dim strPath As String
Dim strOut As String
strPath = "C:\Autoexec.bat"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strPath, 1)
Do While Not f.AtEndOfStream
strOut = strOut & f.ReadLine & vbCrLf
Loop
f.Close
Text1.Text = strOut
End Sub

Synes godt om

niels_kristian Nybegynder

10. februar 2003 - 08:26 #10

spotgun <--- den her går ikke:
2. ved at bruge isNumeric(data) eller VarType(data). Se mere her:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vbscripttoc.asp
Kig under "functions"... fordi alt jeg læser i text filen er text!

Synes godt om

niels_kristian Nybegynder

01. maj 2003 - 01:48 #11

lukker

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS