---

Hvad er der galt med det lille program her:

dim text
inputbox ("skriv hvad der skal stå: " )
dim title
inputbox ("skriv hvad titlen skal være: ")
msgbox ("din popup fil er nu gemt på C:\ som popup.vbs")

sub VbsGem()
Dim FilNummer
Dim FilNavn

FilNummer = FreeFile
FilNavn = "C:\popup.vbs"

Open FilNavn
Print #FilNummer, "msgbox(Prompt:= " & """ & text & ", " & "title:=
"_ & title & ")"
Close #FilNummer

End Sub

Jeg kan bare ikke finde fejlen i den... Er der nogen af jer der kan?

På forhånd tak
Simon

---

Mon, 10 Jan 2005 13:24:35 +0100, Simon <assaultdk@gmail.com> skrev:

> Hvad er der galt med det lille program her:
>
> dim text
> inputbox ("skriv hvad der skal stå: " )
> dim title
> inputbox ("skriv hvad titlen skal være: ")
> msgbox ("din popup fil er nu gemt på C:\ som popup.vbs")
>
> sub VbsGem()
> Dim FilNummer
> Dim FilNavn
>
> FilNummer = FreeFile
> FilNavn = "C:\popup.vbs"
>
> Open FilNavn
> Print #FilNummer, "msgbox(Prompt:= " & """ & text & ", " & "title:=
> "_ & title & ")"
> Close #FilNummer
>
> End Sub
>
> Jeg kan bare ikke finde fejlen i den... Er der nogen af jer der kan?
>


Flere ting. Men de fleste burde du blive fanget i af debuggeren Har du i
det hele taget prøvet at afvikle koden i Visual Basic?

Men primært:

1. en funktion (som 'inputbox') kan ikke afvikles uden for en procedure.
2. funktionen inputbox har forkert syntaks
3. funktionen 'Open' mangler parametre
4. du bør adskille brugerens input og din output..


--------------------------

Option Explicit

Sub VbsGem()
Dim text
Dim title
Dim filtekst
Dim FilNummer
Dim FilNavn
text = InputBox("skriv hvad der skal stå: ")
title = InputBox("skriv hvad titlen skal være: ")

FilNummer = FreeFile
FilNavn = "C:\popup.txt"
filtekst = text & ", " & title

Open FilNavn For Output As FilNummer
Print #FilNummer, filtekst
Close FilNummer

MsgBox ("din popup fil er nu gemt på C:\ som popup.txt")
End Sub


-------------------------------------

mvh
Krabsen

--
Sendt via Opera.
www.krabsen.dk
www.responsnord.dk
mfl

---

"Simon" <assaultdk@gmail.com> skrev i en meddelelse
news:41e27404$0$33650$edfadb0f@dread16.news.tele.dk...
> Hvad er der galt med det lille program her:
>
> dim text
> inputbox ("skriv hvad der skal stå: " )
> dim title
> inputbox ("skriv hvad titlen skal være: ")
> msgbox ("din popup fil er nu gemt på C:\ som popup.vbs")
>
> sub VbsGem()
> Dim FilNummer
> Dim FilNavn
>
> FilNummer = FreeFile
> FilNavn = "C:\popup.vbs"
>
> Open FilNavn
> Print #FilNummer, "msgbox(Prompt:= " & """ & text & ", " &
> "title:= "_ & title & ")"
> Close #FilNummer
>
> End Sub
>
> Jeg kan bare ikke finde fejlen i den... Er der nogen af jer der
> kan?

Der er rigtig mange ting galt !

-du bruger inputbox() udenfor en procedure og gemmer alligevel
ikke resultatet.
-Du bruger Open sætningen uden filnummer
-text og title har ingen værdi når du prøver at skrive til filen

Det ville næsten være nemmere at vise hvad der IKKE er galt
Din Close og din End Sub er helt perfekte !


--
/\ preben nielsen
\/\ prel@post.tele.dk

---

preben nielsen wrote:
> "Simon" <assaultdk@gmail.com> skrev i en meddelelse
> news:41e27404$0$33650$edfadb0f@dread16.news.tele.dk...
>
>>Hvad er der galt med det lille program her:
>>
>>dim text
>>inputbox ("skriv hvad der skal stå: " )
>>dim title
>>inputbox ("skriv hvad titlen skal være: ")
>>msgbox ("din popup fil er nu gemt på C:\ som popup.vbs")
>>
>>sub VbsGem()
>> Dim FilNummer
>> Dim FilNavn
>>
>> FilNummer = FreeFile
>> FilNavn = "C:\popup.vbs"
>>
>> Open FilNavn
>> Print #FilNummer, "msgbox(Prompt:= " & """ & text & ", " &
>>"title:= "_ & title & ")"
>> Close #FilNummer
>>
>>End Sub
>>
>>Jeg kan bare ikke finde fejlen i den... Er der nogen af jer der
>>kan?
>
>
> Der er rigtig mange ting galt !
>
> -du bruger inputbox() udenfor en procedure og gemmer alligevel
> ikke resultatet.
> -Du bruger Open sætningen uden filnummer
> -text og title har ingen værdi når du prøver at skrive til filen
>
> Det ville næsten være nemmere at vise hvad der IKKE er galt
> Din Close og din End Sub er helt perfekte !
>
>

Hurra!!!
Tusind tak for hjælpen!!! Til jer begge to...
Jeg prøvede bare et eksempel fra en bog jeg har lånt på biblioteket...
Virker tydeligvis IKKE
Simon

---

Simon wrote:
> preben nielsen wrote:
>
>> "Simon" <assaultdk@gmail.com> skrev i en meddelelse
>> news:41e27404$0$33650$edfadb0f@dread16.news.tele.dk...
>>
>>> Hvad er der galt med det lille program her:
>>>
>>> dim text
>>> inputbox ("skriv hvad der skal stå: " )
>>> dim title
>>> inputbox ("skriv hvad titlen skal være: ")
>>> msgbox ("din popup fil er nu gemt på C:\ som popup.vbs")
>>>
>>> sub VbsGem()
>>> Dim FilNummer
>>> Dim FilNavn
>>>
>>> FilNummer = FreeFile
>>> FilNavn = "C:\popup.vbs"
>>>
>>> Open FilNavn
>>> Print #FilNummer, "msgbox(Prompt:= " & """ & text & ", " & "title:=
>>> "_ & title & ")"
>>> Close #FilNummer
>>>
>>> End Sub
>>>
>>> Jeg kan bare ikke finde fejlen i den... Er der nogen af jer der kan?
>>
>>
>>
>> Der er rigtig mange ting galt !
>>
>> -du bruger inputbox() udenfor en procedure og gemmer alligevel ikke
>> resultatet.
>> -Du bruger Open sætningen uden filnummer
>> -text og title har ingen værdi når du prøver at skrive til filen
>>
>> Det ville næsten være nemmere at vise hvad der IKKE er galt Din
>> Close og din End Sub er helt perfekte !
>>
>>
>
> Hurra!!!
> Tusind tak for hjælpen!!! Til jer begge to...
> Jeg prøvede bare et eksempel fra en bog jeg har lånt på biblioteket...
> Virker tydeligvis IKKE
> Simon

Det gør Gerts for resten heller ikke

---

Mon, 10 Jan 2005 18:14:43 +0100, Simon <assaultdk@gmail.com> skrev:

> Simon wrote:
>> preben nielsen wrote:
>>
>>> "Simon" <assaultdk@gmail.com> skrev i en meddelelse
>>> news:41e27404$0$33650$edfadb0f@dread16.news.tele.dk...
>>>
>>>> Hvad er der galt med det lille program her:
>>>>
>>>> dim text
>>>> inputbox ("skriv hvad der skal stå: " )
>>>> dim title
>>>> inputbox ("skriv hvad titlen skal være: ")
>>>> msgbox ("din popup fil er nu gemt på C:\ som popup.vbs")
>>>>
>>>> sub VbsGem()
>>>> Dim FilNummer
>>>> Dim FilNavn
>>>>
>>>> FilNummer = FreeFile
>>>> FilNavn = "C:\popup.vbs"
>>>>
>>>> Open FilNavn
>>>> Print #FilNummer, "msgbox(Prompt:= " & """ & text & ", " & "title:=
>>>> "_ & title & ")"
>>>> Close #FilNummer
>>>>
>>>> End Sub
>>>>
>>>> Jeg kan bare ikke finde fejlen i den... Er der nogen af jer der kan?
>>>
>>> Der er rigtig mange ting galt !
>>>
>>> -du bruger inputbox() udenfor en procedure og gemmer alligevel ikke
>>> resultatet.
>>> -Du bruger Open sætningen uden filnummer
>>> -text og title har ingen værdi når du prøver at skrive til filen
>>>
>>> Det ville næsten være nemmere at vise hvad der IKKE er galt Din
>>> Close og din End Sub er helt perfekte !
>>>
>>>
>>
>> Hurra!!!
>> Tusind tak for hjælpen!!! Til jer begge to...
>> Jeg prøvede bare et eksempel fra en bog jeg har lånt på biblioteket...
>> Virker tydeligvis IKKE
>> Simon
>
> Det gør Gerts for resten heller ikke

Det kommer an på, hvad det skal. Det danner en tekst-fil med indholdet af
felterne 'tekst' og 'titel'.


/Krabsen

--
Sendt via Opera.
www.krabsen.dk
www.responsnord.dk
mfl

---

Gert Krabsen wrote:
> Mon, 10 Jan 2005 18:14:43 +0100, Simon <assaultdk@gmail.com> skrev:
>
>> Simon wrote:
>>
>>> preben nielsen wrote:
>>>
>>>> "Simon" <assaultdk@gmail.com> skrev i en meddelelse
>>>> news:41e27404$0$33650$edfadb0f@dread16.news.tele.dk...
>>>>
>>>>> Hvad er der galt med det lille program her:
>>>>>
>>>>> dim text
>>>>> inputbox ("skriv hvad der skal stå: " )
>>>>> dim title
>>>>> inputbox ("skriv hvad titlen skal være: ")
>>>>> msgbox ("din popup fil er nu gemt på C:\ som popup.vbs")
>>>>>
>>>>> sub VbsGem()
>>>>> Dim FilNummer
>>>>> Dim FilNavn
>>>>>
>>>>> FilNummer = FreeFile
>>>>> FilNavn = "C:\popup.vbs"
>>>>>
>>>>> Open FilNavn
>>>>> Print #FilNummer, "msgbox(Prompt:= " & """ & text & ", " &
>>>>> "title:= "_ & title & ")"
>>>>> Close #FilNummer
>>>>>
>>>>> End Sub
>>>>>
>>>>> Jeg kan bare ikke finde fejlen i den... Er der nogen af jer der kan?
>>>>
>>>>
>>>> Der er rigtig mange ting galt !
>>>>
>>>> -du bruger inputbox() udenfor en procedure og gemmer alligevel ikke
>>>> resultatet.
>>>> -Du bruger Open sætningen uden filnummer
>>>> -text og title har ingen værdi når du prøver at skrive til filen
>>>>
>>>> Det ville næsten være nemmere at vise hvad der IKKE er galt Din
>>>> Close og din End Sub er helt perfekte !
>>>>
>>>>
>>>
>>> Hurra!!!
>>> Tusind tak for hjælpen!!! Til jer begge to...
>>> Jeg prøvede bare et eksempel fra en bog jeg har lånt på biblioteket...
>>> Virker tydeligvis IKKE
>>> Simon
>>
>>
>> Det gør Gerts for resten heller ikke
>
>
> Det kommer an på, hvad det skal. Det danner en tekst-fil med indholdet
> af felterne 'tekst' og 'titel'.
>
>
> /Krabsen
>

Yes det er det der er meningen. Men det gør det bare ikke!!

---

Tue, 11 Jan 2005 11:17:28 +0100, Simon <assaultdk@gmail.com> skrev:

> Gert Krabsen wrote:
>> Mon, 10 Jan 2005 18:14:43 +0100, Simon <assaultdk@gmail.com> skrev:
>>
>>> Simon wrote:
>>>
>>>> preben nielsen wrote:
>>>>
>>>>> "Simon" <assaultdk@gmail.com> skrev i en meddelelse
>>>>> news:41e27404$0$33650$edfadb0f@dread16.news.tele.dk...
>>>>>
>>>>>> Hvad er der galt med det lille program her:
>>>>>>
>>>>>> dim text
>>>>>> inputbox ("skriv hvad der skal stå: " )
>>>>>> dim title
>>>>>> inputbox ("skriv hvad titlen skal være: ")
>>>>>> msgbox ("din popup fil er nu gemt på C:\ som popup.vbs")
>>>>>>
>>>>>> sub VbsGem()
>>>>>> Dim FilNummer
>>>>>> Dim FilNavn
>>>>>>
>>>>>> FilNummer = FreeFile
>>>>>> FilNavn = "C:\popup.vbs"
>>>>>>
>>>>>> Open FilNavn
>>>>>> Print #FilNummer, "msgbox(Prompt:= " & """ & text & ", " &
>>>>>> "title:= "_ & title & ")"
>>>>>> Close #FilNummer
>>>>>>
>>>>>> End Sub
>>>>>>
>>>>>> Jeg kan bare ikke finde fejlen i den... Er der nogen af jer der kan?
>>>>>
>>>>>
>>>>> Der er rigtig mange ting galt !
>>>>>
>>>>> -du bruger inputbox() udenfor en procedure og gemmer alligevel ikke
>>>>> resultatet.
>>>>> -Du bruger Open sætningen uden filnummer
>>>>> -text og title har ingen værdi når du prøver at skrive til filen
>>>>>
>>>>> Det ville næsten være nemmere at vise hvad der IKKE er galt Din
>>>>> Close og din End Sub er helt perfekte !
>>>>>
>>>>>
>>>>
>>>> Hurra!!!
>>>> Tusind tak for hjælpen!!! Til jer begge to...
>>>> Jeg prøvede bare et eksempel fra en bog jeg har lånt på biblioteket...
>>>> Virker tydeligvis IKKE
>>>> Simon
>>>
>>>
>>> Det gør Gerts for resten heller ikke
>>
>>
>> Det kommer an på, hvad det skal. Det danner en tekst-fil med indholdet
>> af felterne 'tekst' og 'titel'.
>>
>>
>> /Krabsen
>>
>
> Yes det er det der er meningen. Men det gør det bare ikke!!
>

Det gør det hos mig. Men så må du jo igang med debuggeren )
...for at se, om jeg har lavet en klippe-klistre-fejl.



--
Sendt via Opera.
www.krabsen.dk
www.responsnord.dk
mfl

---

Simon skrev:
> > Det danner en tekst-fil med indholdet af felterne 'tekst' og 'titel'.
> Yes det er det der er meningen. Men det gør det bare ikke!!

Hvorfra og hvordan kalder du Gerts VbsGem procedure?
Må jeg se din kode?

-------
Tomas