Visual Basic

[oneMen]

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]

knippen en plakken ?

[Jozzy]

JWO schreef:
knippen en plakken ?

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

[DeathKnight]

Zo zeg dat is lang geleden. Die goede ouwe VB tijd. zit nu eingelijk meer in PHP

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

argg.. krijg allemaal flashbacks

[Doc]

't is even geleden, maar ik ga 't proberen

'*************************************
'* 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!

[Chimera]

Tss. PHP is veeeeel leuker!

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

[oneMen]

Chimera schreef:
Tss. PHP is veeeeel leuker!

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

jaja ik geloof jullie
Thanx voor de info

[Marc S]

Doc schreef:
Dit is een simpel voorbeeldje, dit gaat niet voor alle soorten bestandjes op, alleen voor simpele tekstbestandjes....maar goed veel plezier!

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

Zo las ik het altijd in

[Marc S]

Het kan ook in 1 keer, maar ik weet niet meer hoe

[Marc S]

Als het goed is, heb je een voorbeeld-applicatie (text-editor) en die doet het in 1 keer, zonder loop

[Doc]

Marc S schreef:

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

Zo las ik het altijd in

zo kan 't ook ja...
is alleen een andere loop functie

[Misanthropy]

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)

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]

Chimera schreef:
Tss. PHP is veeeeel leuker!

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

makkelijker heet dat

maar als je programma's schrijft, dan is php niet echt de oplossing