Scholieren.com forum - Visual Basic

Scholieren.com forum (https://forum.scholieren.com/index.php)

- Software & Hardware (https://forum.scholieren.com/forumdisplay.php?f=20)

- - Visual Basic (https://forum.scholieren.com/showthread.php?t=11842)

oneMen

08-11-2001 19:54

Visual Basic

Hoe kan je tekst uit een ander bestand importeren en vervolgens gebruiken? het is mij gelukt om een bestand te importeren in een #1 (?) maar verder lukt het me niet...

JWO	08-11-2001 20:00

knippen en plakken ?

Jozzy

08-11-2001 20:01

Citaat:

JWO schreef:
knippen en plakken ?

http://forum.scholieren.com/rolleyes.gif

Zo "ver" ben ik nog niet met VB moet ik zeggen...

DeathKnight

08-11-2001 21:53

Zo zeg dat is lang geleden. Die goede ouwe VB tijd. zit nu eingelijk meer in PHP http://forum.scholieren.com/smile.gif

Ik heb wel wat voor je gevonden:
http://www.vb-world.net/files/openstatement/

argg.. krijg allemaal flashbacks http://forum.scholieren.com/wink.gif

Doc	09-11-2001 00:23

't is even geleden, maar ik ga 't proberen http://forum.scholieren.com/smile.gif

Code:

'*************************************

'* Open een bestandje in een textbox *

'*************************************



Open "c:\text.txt" For Input As #1

  Do

    Input #1, Regel

    Text1.Text = Text1.Text & Regel

  Loop Until EOF(1)

Close #1

Dit is een simpel voorbeeldje, dit gaat niet voor alle soorten bestandjes op, alleen voor simpele tekstbestandjes....maar goed veel plezier! http://forum.scholieren.com/biggrin.gif

Chimera

09-11-2001 00:37

Tss. PHP is veeeeel leuker! http://forum.scholieren.com/wink.gif

$regels = file("tekstfile.txt");

http://forum.scholieren.com/biggrin.gif http://forum.scholieren.com/biggrin.gif http://forum.scholieren.com/biggrin.gif

oneMen

09-11-2001 07:37

Citaat:

Chimera schreef:
Tss. PHP is veeeeel leuker! http://forum.scholieren.com/wink.gif

$regels = file("tekstfile.txt");

http://forum.scholieren.com/biggrin.gif http://forum.scholieren.com/biggrin.gif http://forum.scholieren.com/biggrin.gif

jaja ik geloof jullie http://forum.scholieren.com/smile.gif
Thanx voor de info

Marc S

09-11-2001 08:39

Citaat:

Doc schreef:
Dit is een simpel voorbeeldje, dit gaat niet voor alle soorten bestandjes op, alleen voor simpele tekstbestandjes....maar goed veel plezier! http://forum.scholieren.com/biggrin.gif

Code:

while not EOF(1)

Input #1, Regel

Text1.Text = Text1.Text + Regel

wend

Zo las ik het altijd in http://forum.scholieren.com/wink.gif

Marc S

09-11-2001 08:40

Het kan ook in 1 keer, maar ik weet niet meer hoe http://forum.scholieren.com/biggrin.gif

Marc S

09-11-2001 08:43

Als het goed is, heb je een voorbeeld-applicatie (text-editor) en die doet het in 1 keer, zonder loop http://forum.scholieren.com/wink.gif

Doc	09-11-2001 11:04

Citaat:

Marc S schreef:

Code:

while not EOF(1) Input #1, Regel Text1.Text = Text1.Text + Regel wend

Zo las ik het altijd in http://forum.scholieren.com/wink.gif

zo kan 't ook ja...
is alleen een andere loop functie http://forum.scholieren.com/wink.gif

Misanthropy

10-11-2001 14:54

Code:

Dim nFile As Integer, sText As String



nFile=FreeFile

Open "pipo.txt" For Input As #nFile

sText=Input$(LOF(nFile),#nFile)

Close #nFIle

{edit}

Of gebruik FileSystemObject (ook voor ASP)

Code:

Dim oFso as Object, oTxt as Object, sText As String

Set oFso=CreateObject("Scripting.FileSystemObject")

set oTxt=oFso.OpenTextFile("pipo.txt", 1) '// 1=lezen , 2=schrijven, 8=Append

sText=oTxt.ReadAll()

oTxt.Close

set oFso=Nothing

[Dit bericht is aangepast door Misanthropy (10-11-2001).]

pietje63

10-11-2001 17:21

Citaat:

makkelijker heet dat

maar als je programma's schrijft, dan is php niet echt de oplossing http://forum.scholieren.com/smile.gif

Alle tijden zijn GMT +1. Het is nu 10:56.