CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede starf Nybegynder
20. september 2011 - 08:31 Der er 2 kommentarer og
1 løsning

hent hver linie i et txt dokument

Er det muligt at hente hver linie ud fra en tekst fil, på følgende måde.

txt fil:
----------------
linie1
linie2
linie3
linie4
-------------------

vb:
p1=linie1
p2=linie2
p3=linie3
p4=linie4

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

det gør intet at jeg skal skal angive hver "p=" men hvordan får man dem pejet ind på hver sin linie fra et tekst dokument.
Avatar billede starf Nybegynder
20. september 2011 - 09:28 #1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("\\info-adm-01\script", ForReading)

For i = 1 to 1
Mads = objTextFile.ReadLine
Next

For i = 2 to 2
Peter = objTextFile.ReadLine
Next

For i = 3 to 3
Jens = objTextFile.ReadLine
Next

For i = 4 to 4
Kenth = objTextFile.ReadLine
Next

For i = 5 to 5
Finn = objTextFile.ReadLine
Next

objTextFile.Close
Avatar billede tjp Mester
20. september 2011 - 11:42 #2
Lidt kortere version:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("\\info-adm-01\script", ForReading)

Mads = objTextFile.ReadLine
Peter = objTextFile.ReadLine
Jens = objTextFile.ReadLine
Kenth = objTextFile.ReadLine
Finn = objTextFile.ReadLine

objTextFile.Close

:-)
Avatar billede starf Nybegynder
20. september 2011 - 12:04 #3
ja ok det er jo lidt mere simpelt :)
Avatar billede 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.

Loading billede Opret Preview
Kategori
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 18:30 Messenger Af Cool i Andet software
I dag 13:37 Fejl i Dato = Format(Now(), "dd-mm-yyyy hh:mm:ss") Af per2edb i Access
I dag 12:58 udvidede sikkerhedsopdateringer for Windows 10 til oktober 2026 Af 220661 i Windows
I dag 11:07 Sorter tal (lav til høj) og fjern dubletter med formel Af Lystfisker i Excel
I dag 08:39 Boot problemer Af Tassie i PC
White papers
Flere white papers »


Premium
Teaser billede
Mens dronerne flyver om ørerne på os, har den kendte beredskabs-ekspert Ken Bonefeld et klart budskab til os alle
Læs mere »
Flere år efter hård kritik: Disse statslige myndigheders it-sikkerhed halter stadig
Her er prisen: Så meget betaler Domstolsstyrelsen til Aeven for ny drift-kontrakt
Ny strategi bliver altafgørende for VMware-forhandlere i fremtiden: Her er selskabets plan
Se alle »
Computerworld
Teaser billede
Amigaen er tilbage – nu er den 400 gange hurtigere end tidligere
Læs mere »
Droneangreb over Københavns Lufthavn viser, hvor sårbare vi egentlig er: Det er kun begyndelsen
Mand anholdt efter weekendens massive cyberangreb mod europæiske lufthavne
Test: Garmins tyndeste smartur kan give Apple Watch kamp til stregen
Se alle »
CIO
Teaser billede
Et ubehageligt opkald fik danske Thomas Eriksson til at udvikle en helt ny teknologi: "Nogen havde delt intime billeder"
Læs mere »
It-chefer forventer, at der vil være langt færre it-jobs om få år: It-afdelingerne vil skrumpe med en femtedel
Microsoft-topchef Satya Nadella er "hjemsøgt" af frygten for, at AI bliver Microsofts død
Tidligere Norlys-chef lander nyt job: Bliver CIO for transportvirksomhed med 3.500 ansatte
Se alle »
Job & Karriere
Teaser billede
Tryg skiller sig af med 225 it-medarbejdere: Outsourcer stor del af sin it-drift til indere
Læs mere »
Her er fidusen: Sådan fastholder KMD og Twoday deres it-folk i lang tid
Henrik Bodskov fratræder som topchef for Aeven: Her er den nye topchef
Novo Nordisks CIO og digitale topchef, Anders Romare, forlader selskabet
Se alle »
White paper
Teaser billede
Få automatisk styr på alle virksomhedens persondata
Læs mere »
Undgå at printeren bliver svageste led i sikkerheden
Er I klar til at tage næste skridt på den digitale retailrejse?
Udnyt Genesys Cloud CX optimalt og styrk kundeoplevelsen
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »