[Embedded VB] file openen en lezen: syntax error * - Softwareontwikkeling

donderdag 7 februari 2002 19:51

Acties:

D2k

Topicstarter

Ok een n00b vraag van de LM

(schaam me diep)

code:

Private Sub Form_Load()
    Dim FilePath As String
    Dim Data As String
    
    Maandag.Text = "Maandag" & vbCrLf & "test"
  
    Dinsdag.Text = "Dinsdag"
    Woensdag.Text = "Woensdag"
    Donderdag.Text = "Donderdag"
    Vrijdag.Text = "Vrijdag"
  
    'FilePath = InputBox("C:\downloads\rooster.txt")
    
    Open "C:\downloads\rooster.txt" For Input As #1 
//loopt op de bovenstaande regel vast met error
//"Compile Error: Expected end of statement"
    
    Do Until EOF(1)
    'Does this loop until End Of File(EOF) for file number 1.
      Line Input #1, Data
      'Read one line and puts it into the varible Data.
      Text1.Text = Text1.Text & vbCrLf & Data
      'Adds the read line into Text1.
      MsgBox EOF(1)
    Loop
    
    Close #1
End Sub

heb de error erin gezet
ik kan dus geen VB maar dit lijkt me syntactisch wel klopppen toch?

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 19:54

Acties:

Blue-eagle

Niet dat ik erg bekend ben met VBA (is dit toch?), maar dit stukkie code bevat een # als start van een iets, whatever dat dan is. Daar (dat hekje) ben ik niet helemaal zeker van dat het mag/kan

donderdag 7 februari 2002 19:55

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 19:54 schreef Blue-eagle het volgende:
Niet dat ik erg bekend ben met VBA (is dit toch?), maar dit stukkie code bevat een # als start van een iets, whatever dat dan is. Daar (dat hekje) ben ik niet helemaal zeker van dat het mag/kan

tis gewoon VB. Embedded wordt het gebruikt maar zou standaard VB moeten zijn

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 20:06

Acties:

mbravenboer

Ben je aan het onderzoeken hoe het voelt om een slot te krijgen?

.

Ik heb je topic titel even duidelijker gemaakt

.

Blog, Stratego/XT: Program Transformation, SDF: Syntax Definition, Nix: Software Deployment

donderdag 7 februari 2002 20:08

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 20:06 schreef mbravenboer het volgende:
Ben je aan het onderzoeken hoe het voelt om een slot te krijgen? .

wijs de error ff aan, dan mag je um dicht doen

Ik heb je topic titel even duidelijker gemaakt .

grrrrrrrrrr

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 20:11

Acties:

Verwijderd

Moet het hekje niet weg op de betreffende regel? Maar dat weet ik niet zeker...

Mischien heb je hier iets aan

code:

'Maakt (of opent) een opgegeven file, en schrijft daat een bepaalde text naar toe.
' bAppend = Geeft aan of de file verder moet gaan, of helemaal leeg moet beginnen.
' bCreateHTMLFile = Geeft aan of het HTML bestand wordt. Zo ja, dan worden er alvast standaard tags geschreven
Public Sub WriteToTextFile(strFileName As String, ByVal strText As String, bAppend As Boolean, Optional bCreateHTMLFile As Boolean = False)
Dim Fso As FileSystemObject
Dim MyFile As TextStream

On Error GoTo ErrorHandler

  Set Fso = New FileSystemObject
  
  If bAppend = False Then
    Set MyFile = Fso.CreateTextFile(strFileName, True)
  Else
    Set MyFile = Fso.OpenTextFile(strFileName, ForAppending, True)
  End If
  
  If bCreateHTMLFile Then
    Call MyFile.WriteLine("<HTML>")
    Call MyFile.WriteLine("  <HEAD>")
    Call MyFile.WriteLine("    <TITLE>Title</TITLE>")
    Call MyFile.WriteLine("  </HEAD>")
    Call MyFile.WriteLine(" ")
    Call MyFile.WriteLine("  <BODY Background=""Data/Img/Back.gif"">")
  End If
  
  Call MyFile.WriteLine(strText)
  
  If bCreateHTMLFile Then
    Call MyFile.WriteLine("  </BODY>")
    Call MyFile.WriteLine("</HTML>")
  End If
  
  MyFile.Close

  Set MyFile = Nothing
  Set Fso = Nothing

Exit Sub
ErrorHandler:

  setError "modMisc.WriteToTextFile"
End Sub

Edit: Oeps, je wilt lezen... dit is voor schrijven, maar dat kan ook met het FileSystemObject.
Zie verder de search en de MSN

PS vergeet niet een reference naar MS Scripting aan te vinken!

donderdag 7 februari 2002 20:17

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 20:11 schreef KoenM het volgende:
Moet het hekje niet weg op de betreffende regel? Maar dat weet ik niet zeker...

Mischien heb je hier iets aan
[code]

code is leuk maar je ziet de error in mijn stukje dus ook niet?
aardig gek

Edit: Oeps, je wilt lezen... dit is voor schrijven, maar dat kan ook met het FileSystemObject.
Zie verder de search en de MSN

zal ik doen

PS vergeet niet een reference naar MS Scripting aan te vinken!

vertel??

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 20:18

Acties:

Verwijderd

Op donderdag 07 februari 2002 20:11 schreef KoenM het volgende:
Edit: Oeps, je wilt lezen... dit is voor schrijven, maar dat kan ook met het FileSystemObject.
Zie verder de search en de MSN

Indeed, gebruik maken van het FileSystemObject is een stuk netter

donderdag 7 februari 2002 20:20

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 20:18 schreef dev het volgende:
Da's raar, die code is echt goed.

blijkbaar niet
als ik run doe komt ie met die error en gaat dan met de cursor voor de For staan in

code:

1	Open "C:\downloads\rooster.txt" For Input As #1

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 20:21

Acties:

Verwijderd

Op donderdag 07 februari 2002 20:17 schreef D2k het volgende:
vertel??

Kijk eens hier:

code:

Option Explicit

Private Sub Command1_Click()
Dim fso As New FileSystemObject

  Text1.Text = fso.OpenTextFile("c:\temp\labels.xml").ReadAll
  
End Sub

Pleur een textbox en een commandbutton op een form, zet een reference aan (Project -> References) naar Miscrosoft Scripting Runtime
En runnen maar! Nu zou het moeten werken, en het is nog mooier ook :)!

donderdag 7 februari 2002 20:22

Acties:

Verwijderd

Op donderdag 07 februari 2002 20:20 schreef D2k het volgende:

[..]

blijkbaar niet
als ik run doe komt ie met die error en gaat dan met de cursor voor de For staan in
code:
1
Open "C:\downloads\rooster.txt" For Input As #1

He? Ik heb precies hetzelfde in mijn VB6 gezet en t werkt prima... Dit kan al sinds QBasic

donderdag 7 februari 2002 20:23

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 20:21 schreef KoenM het volgende:
Pleur een textbox en een commandbutton op een form, zet een reference aan (Project -> References) naar Miscrosoft Scripting Runtime
En runnen maar! Nu zou het moeten werken, en het is nog mooier ook :)!

The New keyword is not supported voor Windows CE

tnx maar kan niet

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 20:25

Acties:

Verwijderd

Windows CE?

donderdag 7 februari 2002 20:26

Acties:

D2k

Topicstarter

Ik ben dus bezig met MicroSoft Embedded Visual Tools: EMbedded Visual Basic
maar dat wijkt weer aardig af dan

beetje jammer

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 20:26

Acties:

Verwijderd

Op donderdag 07 februari 2002 20:23 schreef D2k het volgende:
The New keyword is not supported voor Windows CE

Ja, dat zij je er niet bij!
Je moet je vragen wel volledig formuleren, hé

Het kan zijn dat door CE het hele file systeem anders is geworden, en blijkbaar lukt het daardoor niet... Maar da's een heel ander probleem!

donderdag 7 februari 2002 20:27

Acties:

Verwijderd

Ik dacht al, ben ik nu gek geworden

donderdag 7 februari 2002 20:28

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 20:26 schreef KoenM het volgende:
Ja, dat zij je er niet bij!
Je moet je vragen wel volledig formuleren, hé
Het kan zijn dat door CE het hele file systeem anders is geworden, en blijkbaar lukt het daardoor niet... Maar da's een heel ander probleem!

M$ zet toch zijn eigenstandaarden?
dusik dacht VB=VB

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 20:29

Acties:

Verwijderd

Niet dus blijkbaar, zit er geen help bij die Visual Basic versie?

donderdag 7 februari 2002 20:30

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 20:29 schreef dev het volgende:
Niet dus blijkbaar, zit er geen help bij die Visual Basic versie?

jawel maar daar ben ik nmog niet helemaal uit
ben er in aan het spitten

[edit]
zoeken op FSO levert alemaal unsupported VBscripting zooi op

dat ondersteund die ipaq nieteens

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 20:33

Acties:

Janoz

Moderator Devschuur®

!litemod

Op donderdag 07 februari 2002 20:22 schreef dev het volgende:
He? Ik heb precies hetzelfde in mijn VB6 gezet en t werkt prima... Dit kan al sinds QBasic

gwbasic zelfs al

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'

donderdag 7 februari 2002 20:37

Acties:

Verwijderd

Je moet een filesystem control op je form gooien en dan
File1.Open "Text.txt", fsModeInput gebruiken

donderdag 7 februari 2002 20:39

Acties:

NetForce1

(inspiratie == 0) -> true

Op donderdag 07 februari 2002 20:33 schreef Janoz het volgende:

[..]

gwbasic zelfs al

In GWBASIC moest het toch zo:

Open "I",1,filenaam oid

De wereld ligt aan je voeten. Je moet alleen diep genoeg willen bukken...
"Wie geen fouten maakt maakt meestal niets!"

donderdag 7 februari 2002 21:13

Acties:

elnino

Ik heb niet echt verstand van PDA's en Embedded computers, maar heeft een PDA wel een bestandssysteem zoals Windows dat heeft? Misschien gebruikt een PDA een heel ander systeem om dingen in op te slaan (stack space en dat soort dingen).

Op donderdag 07 februari 2002 19:51 schreef D2k het volgende:
Ok een n00b vraag van de LM (schaam me diep)

There is a n00b in all of us.

donderdag 7 februari 2002 21:14

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 20:37 schreef dev het volgende:
Je moet een filesystem control op je form gooien en dan
File1.Open "Text.txt", fsModeInput gebruiken

woei
dat werkt al een stukkie beter

dev +3 behulpzaam

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 21:23

Acties:

Verwijderd

K heb misschien nog een interessante site voor je gevonden:

http://www.devbuzz.com/content/articles.asp

heleboel Embedded VB code.

donderdag 7 februari 2002 21:24

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 21:23 schreef dev het volgende:
K heb misschien nog een interessante site voor je gevonden:

http://www.devbuzz.com/content/articles.asp

heleboel Embedded VB code.

ja ik was ook weer aan het googlen geslagen
tnx iig
kijk hij kan die file nu nog niet openen omdat de bestandsverwijzing niet klopt
maar ik ben wel van mijn errors af

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 21:27

Acties:

xtra

Op donderdag 07 februari 2002 20:33 schreef Janoz het volgende:

[..]

gwbasic zelfs al

En MSX Basic niet te vergeten

Helaas heb ik geen andere oplossing voor het probleem dan eens flink in de help/msdn/google te spitten.

donderdag 7 februari 2002 21:35

Acties:

Verwijderd

Op donderdag 07 februari 2002 21:24 schreef D2k het volgende:

[..]

ja ik was ook weer aan het googlen geslagen
tnx iig
kijk hij kan die file nu nog niet openen omdat de bestandsverwijzing niet klopt
maar ik ben wel van mijn errors af

Ik heb nog nooit embedded VB gebruikt, wat voor mogelijkheden heeft dat File Control? File1.Input oid?

donderdag 7 februari 2002 21:39

Acties:

D2k

Topicstarter

Op donderdag 07 februari 2002 21:35 schreef dev het volgende:
Ik heb nog nooit embedded VB gebruikt, wat voor mogelijkheden heeft dat File Control? File1.Input oid?

met deze regel zou het denk ik moeten gaan werken
ben er nog mee bezig iig
File1.Open "\My Documents\dennis.txt", fsModeInput, fsAccessReadWrite
bleek dus dat ik idd eerst zon file dingetje moet neerzetten in mijn form

_{VB n00b@work}

Doet iets met Cloud (MS/IBM)

donderdag 7 februari 2002 23:11

Acties:

Janoz

Moderator Devschuur®

!litemod

Op donderdag 07 februari 2002 21:27 schreef xtra het volgende:

[..]

En MSX Basic niet te vergeten

Helaas heb ik geen andere oplossing voor het probleem dan eens flink in de help/msdn/google te spitten.

Daar heb ik het nooit die functies gebruikt omdat bij mijn msx's nog bandjes zaten

Het is me zelfs nooit gelukt om mijn creaties te kunnen saven (Alle mogelijke stekker combinaties geprobeert). Als ik wat in elkaar gehacked hat moest de computer tig dagen aanblijven zodat ik het kon showen (En mijn broertje mocht zolang geen ICE spelen

)

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'