[Visual Basic] voor dummies - Deel 1 | Digital Corner (DIG/DEV)

vrijdag 20 juli 2007 @ 15:28:51 #101

Chandler

Vraagje...

Ik heb een loopje in mijn vb applic. echter wil ik per loop de resultaten laten zien in mijn form.

Nu doe ik form1.status_box.text = "Status"

Echter zie ik pas na het doorlopen van deze loopje de status van de laatste item op deze plaats komen.

What am i doingk wrong?

Just say hi!

vrijdag 20 juli 2007 @ 15:57:11 #102

SuperRembo

Sinds 1998

Application.DoEvents()

vrijdag 20 juli 2007 @ 16:39:25 #103

Chandler

Sr

Nog 1 vraagje.

Ik werk nu met line input, echter werkt dit bij 1 groot tekst bestand niet.. Line input ziet niet dat het een tekst bestand is en leest gelijk het hele bestand uit... wat kan ik hier aan veranderen zodat hij wel alle regels leest?

Anyone?

[ Bericht 71% gewijzigd door Chandler op 20-07-2007 17:32:27 ]

Just say hi!

vrijdag 20 juli 2007 @ 17:42:50 #104

EggsTC

GOA

quote:
Op vrijdag 20 juli 2007 16:39 schreef Chandler het volgende:
Sr

Nog 1 vraagje.

Ik werk nu met line input, echter werkt dit bij 1 groot tekst bestand niet.. Line input ziet niet dat het een tekst bestand is en leest gelijk het hele bestand uit... wat kan ik hier aan veranderen zodat hij wel alle regels leest?

Anyone?

VB.net?

Meer info ?

Lambo of Rekt

vrijdag 20 juli 2007 @ 18:00:45 #105

Chandler

Waar doel je op EggsTC?

Ik zal even iets uitgebreidere info geven.

Het bestand is opgezet als een UNIX tekst bestand, echter moet ik natuurlijk met VisualBASIC voor line input een Windows Tekst bestand hebben. Ik heb geprobeerd via wordpad en notepad++ alles om te zetten naar een tekst bestand met windows encoding. Echter is alles mislukt.. en deze progies crashen..

Nu zoek ik naar een oplossing

VB.net gaf geen bevredigend antwoord

http://www.thefreecountry.com/tofrodos/ is een handig programmatje om UNIX documenten te converteren naar Windows documenten en visa versa

[ Bericht 31% gewijzigd door Chandler op 20-07-2007 18:55:17 ]

Just say hi!

vrijdag 20 juli 2007 @ 20:12:58 #106

SuperRembo

Sinds 1998

Met een TextReader zou het moeten kunnen. ReadLine geeft 1 regel terug:

quote:
A line is defined as a sequence of characters followed by a carriage return (0x000d), a line feed (0x000a), a carriage return followed by a line feed, Environment.NewLine, or the end of stream marker. The string that is returned does not contain the terminating carriage return and/or line feed. The returned value is a null reference (Nothing in Visual Basic) if the end of the input stream has been reached.

vrijdag 20 juli 2007 @ 21:26:19 #107

Chandler

quote:
Op vrijdag 20 juli 2007 20:12 schreef SuperRembo het volgende:
Met een TextReader zou het moeten kunnen. ReadLine geeft 1 regel terug:

Ik hoop dat het werkt, want die converter kan geen UTF-8 tekens converteren

erg onhandig... output van een 60MB file is gewoon dom weg 5.nogwat MB (na draaien in mijn progie, end door eof!)

This page is specific to .NET Framework 3.0

[ Bericht 10% gewijzigd door Chandler op 20-07-2007 21:36:44 ]

Just say hi!

zaterdag 21 juli 2007 @ 10:56:42 #108

SuperRembo

Sinds 1998

quote:
Op vrijdag 20 juli 2007 21:26 schreef Chandler het volgende:
This page is specific to .NET Framework 3.0

De TextReader class bestaat al sinds .NET 1.0. Het lijkt me niet dat er heel veel in veranderd is.

zaterdag 21 juli 2007 @ 11:23:44 #109

Chandler

Ow :{

Ik was zelf even aan het knutselen maar doe iets erg verkeerd :P

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

    Open Dir1.Path & "" & File1.FileName For Binary As #freeNum
    While Not readBytes >= fileSize 'EOF(freeNum)

        ' Line Input #FreeNum, txt             ' 1 whole line is read

        Do While readByte <> Chr(10)
            Get #freeNum, , readByte

            Debug.Print Len(txt) & "-" & Len(readByte) & "-" & Asc(readByte)
            txt = txt & readByte
        Loop

        readBytes = readBytes + Len(txt)

    loop

Alleen is het probleem dat txt altijd leeg blijft :{.

Of moet ik zo ie zo de positie van het in te lezen bitje specificeren? zo gaat ie toch telkens ook 1 positie naar boven?

Just say hi!

zaterdag 21 juli 2007 @ 12:16:20 #110

SuperRembo

Sinds 1998

Kolere wat een ranzige code

Ben je nou toch weer in VB6 aan 't knoeien?

In VB.NET kan het zo:

1
2
3
4
5
6
7
8

Dim line As String
Dim reader As New System.IO.StreamReader("C:/foo.txt")

While Not reader.EndOfStream
line = reader.ReadLine()
'...
End While
reader.Close()

zaterdag 21 juli 2007 @ 12:24:45 #111

Chandler

Ik heb helaas geen VBnet... (jawel, maar weet niet waar, moet toch ook gewoon in vb6 kunnen, zoals bovenstaand maar dan anders...)

Ennuh opzich is mijn code toch wel juist?

Just say hi!

zaterdag 21 juli 2007 @ 12:53:58 #112

SuperRembo

Sinds 1998

quote:
Op zaterdag 21 juli 2007 12:24 schreef Chandler het volgende:
Ik heb helaas geen VBnet... (jawel, maar weet niet waar, moet toch ook gewoon in vb6 kunnen, zoals bovenstaand maar dan anders...)

Visual Studio Express is gratis.

quote:
Ennuh opzich is mijn code toch wel juist?

Geen idee, ik ben niet zo thuis in die VB6 file handling.

zondag 22 juli 2007 @ 15:50:48 #113

Chandler

Hmm... Lijkt mij toch wel aardig goed te zijn

Ik heb mijn code een beetje aangepast en heb dit nu in een loop staan.

1
2
3
4
5
6
7
8
9
10

        Do
            Get #freeNum, pointCnt, readByte

            readBytes = readBytes & Chr(readByte)

            pointCnt = pointCnt + 1
            Debug.Print readByte
            Debug.Print pointCnt & " - " & fileSize & " - " & Len(readBytes) & vbCrLf

        Loop While (readByte <> 13 Or pointCnt < fileSize)

echter wil de loop niet stoppen als readByte (10 of 13) is

Wat doe ik fout?

[ Bericht 88% gewijzigd door Chandler op 22-07-2007 17:26:36 ]

Just say hi!

zondag 22 juli 2007 @ 18:43:35 #114

The_Terminator

quote:
Op zondag 22 juli 2007 15:50 schreef Chandler het volgende:
Hmm... Lijkt mij toch wel aardig goed te zijn :P

Ik heb mijn code een beetje aangepast en heb dit nu in een loop staan.
[ code verwijderd ]

echter wil de loop niet stoppen als readByte (10 of 13) is :{ Wat doe ik fout? :D

Vreemt. Wat je zou kunnen proberen is in plaats van een Do loop een For loop gebruiken. Dan zou het worden:

1
2
3
4
5
6
7
8
9
10

        For I = 1 to fileSize
            Get #freeNum, I, readByte

            readBytes = readBytes & Chr(readByte)

            Debug.Print readByte
            Debug.Print I & " - " & fileSize & " - " & Len(readBytes) & vbCrLf

            If readByte = 13 Then Exit For
        Next I

zondag 22 juli 2007 @ 18:59:57 #115

SuperRembo

Sinds 1998

In .NET gaat het veel makkelijker, maar als je dan per see in VB6 wil klooien, gebruik dan gewoon een FileSystemObject.

1
2
3
4
5
6
7
8
9
10
11

Const forReading = 1, forWriting = 2
Dim fso, myFile As Object
Dim line As String

Set fso = New Scripting.FileSystemObject
Set myFile = fso.OpenTextFile("c:foo.txt", forReading)
Do While Not myFile.AtEndOfStream
line = myFile.ReadLine
'...
Loop
myFile.Close

(Wel even een referentie aan je project toevoegen naar Microsoft.Scripting)

maandag 23 juli 2007 @ 09:14:28 #116

Chandler

Ik weet al wat ik fout deed

1	Loop While (readByte <> 13 Or pointCnt < fileSize)

zegt readbyte is geen 13 OF pointCnt is kleiner dan fileSize, maar het moest eingelijk zijn

readByte is geen 13 EN pointCnt is kleiner dan fileSize

oftewel

1	Loop While (readByte <> 13 And pointCnt < fileSize)

Just say hi!

zaterdag 10 mei 2008 @ 14:02:50 #117

Woeiii

Ben bezig met een kleine functie om een getal van 6 aaneensluitende nummers uit een string te halen, maar t wil niet echt lukken:

1
2
3
4
5
6
7
8
9
10
11
12

Private Function ExtNum(ByVal strValue As String) As Integer
    Dim strNum As String
    Dim i As Integer

    On Error Resume Next

    For i = 1 To Len(strValue)
        If IsNumeric(Mid(strValue, i, 1)) Then strNum = strNum & Mid(strValue, i, 1)
    Next i

    ExtNum = CInt(strNum)
End Function

Deze haalt alle getallen uit een lap tekst , maar werkt niet goed hij returned namelijk steeds nul , heeft iemand een oplossing? -O-

FOK!fotograaf zaterdag 10 mei 2008 @ 18:00:03 #118

Marc H

- Satan's Livecoach -

quote:
Op zaterdag 10 mei 2008 14:02 schreef Woeiii het volgende:
Ben bezig met een kleine functie om een getal van 6 aaneensluitende nummers uit een string te halen, maar t wil niet echt lukken:
[ code verwijderd ]

Deze haalt alle getallen uit een lap tekst , maar werkt niet goed hij returned namelijk steeds nul , heeft iemand een oplossing?

Les 1: nooit "on error resume next" gebruiken tijdens debuggen!

als je dat doet zie je dat je een overflow error krijgt in "ExtNum = CInt(strNum)"
op een 6 cijferig getal een integer conversie doen gaat ook niet werken. omdat een integer maximaal "32,767" kan bevatten. dus zal je het getal moeten converteren naar een double, in plaats van een integer. En dat moet je natuurlijk ook aanpassen in je function.

dus dan krijg je deze code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

Private Function ExtNum(ByVal strValue As String) As Double
    Dim strNum As String
    Dim i As Integer

    'On Error Resume Next

    For i = 1 To Len(strValue)
        If IsNumeric(Mid(strValue, i, 1)) Then strNum = strNum & Mid(strValue, i, 1)
    Next i

    ExtNum = Val(strNum)
   'On Error GoTo 0

End Function

En nog iets, als je al zonodig on error resume next wil gebruiken in een stuk code, zet dan de error trapping weer aan voor je de fnction verlaat.

[ Bericht 3% gewijzigd door Marc H op 10-05-2008 18:05:20 (') ]

You don't have to be the Dalai Lama to tell people that life's about change.

dinsdag 7 oktober 2008 @ 10:54:57 #119

hello_moto1992

Sorry voor de grote kick, maar...

Ik zou graag een programma willen maken dat een rekening bij houdt in een kantine/keet. Je hebt dus een lijstje met namen, en daar achter staat bier, wijn, cola, malibu etc.

In Excel kun je "view code" doen, maar dan staat er niks. Hoe kan dat?

En hoe maak ik het handigste zo'n programma?

dinsdag 7 oktober 2008 @ 11:07:55 #120

DaFan

Kan je beter in het Excel topic doen.
[EXCEL] Het grote Excel vragen topic, #7

En onder View code is het de bedoeling dat je zelf de code schrijft

dinsdag 7 oktober 2008 @ 11:08:20 #121

DiRadical

Everything's ruined

quote:
Op dinsdag 7 oktober 2008 10:54 schreef hello_moto1992 het volgende:
Sorry voor de grote kick, maar...

Ik zou graag een programma willen maken dat een rekening bij houdt in een kantine/keet. Je hebt dus een lijstje met namen, en daar achter staat bier, wijn, cola, malibu etc.

In Excel kun je "view code" doen, maar dan staat er niks. Hoe kan dat?

En hoe maak ik het handigste zo'n programma?

De truuk is net dat je die code zelf moeten maken.

Je zou de namen in de eerste kolom kunnen zetten en de drankjes in de eerste regel (vanaf kolom 2)
In het gebied daaronder kun je de aantallen in vullen. In het kruispunt van Naam en Drankje staat het aantal.

Wil je ook nog berekenen wat de totaal prijs is?
Ik zou dan de drankjes en prijzen in een apart werkblad stoppen en een formule maken die berekening deze gegevens ophaalt. Zo kun je zelfs je prijzen veranderen zonder de formules aan te passen.

Dat kan met een VLOOKUP (of was het nu een HLOOKUP, in ieder geval 1 van die 2)
Hiervoor is geen VB code nodig, alleen maar Excel formules.

Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR

dinsdag 7 oktober 2008 @ 11:16:43 #122

hello_moto1992

quote:
Op dinsdag 7 oktober 2008 11:07 schreef DaFan het volgende:
Kan je beter in het Excel topic doen.
[EXCEL] Het grote Excel vragen topic, #7

En onder View code is het de bedoeling dat je zelf de code schrijft

Ik kwam er ook achter

.

Op dit moment hebben wij een rekening als volgt:

Lijst met namen - Aantal Dit, Dat, etc. - bedrag

Het aantal bier wordt bijvoorbeeld steeds veranderd in 2, 3,4,5. Dit kan dus nog al eens misgaan. Het is misschien handiger om een button te hebben en daarnaast een aantal. Dus als je er op klikt je een extra opschrijft.

Ik dacht dat je daar ff snel een programmaatje van kan maken in VB. Valt tegen dus

dinsdag 7 oktober 2008 @ 11:19:55 #123

DaFan

In VB is het een stuk lastiger omdat je geen 'database' hebt. Als je het in Excel icm VBA doet heb je gewoon een overzicht waar je idd gewoon een knopje kan drukken achter iemands naam, waarbij hij de waarde opzoekt die het nu is, en er 1 bij optelt. Simpel.

dinsdag 7 oktober 2008 @ 11:36:44 #124

DiRadical

Everything's ruined

Je zou Excel kunnen misbruiken als database. Ieder werkblad is dan een tabel.
Je bent niet de eerste die dat zou doen

Maar dan zou ik order regels aanmaken op een apart werkblad
naam- drankje- aantal- prijs perstuk

En aan het eind van de avond alles optellen om een rekening te maken.

Je zou ook gewoon een printje kunnen maken van een tabel met namen en drankjes.
Streepjes zetten in de cellen en aan het eind alles optellen.
Dat is de KISS versie

Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR

dinsdag 7 oktober 2008 @ 21:29:58 #125

mschol

quote:
Op dinsdag 7 oktober 2008 11:19 schreef DaFan het volgende:
In VB is het een stuk lastiger omdat je geen 'database' hebt. Als je het in Excel icm VBA doet heb je gewoon een overzicht waar je idd gewoon een knopje kan drukken achter iemands naam, waarbij hij de waarde opzoekt die het nu is, en er 1 bij optelt. Simpel.

vb kan je redelijk simpel met mysql laten comminiceren

woensdag 8 oktober 2008 @ 04:05:13 #126

DaFan

quote:
Op dinsdag 7 oktober 2008 21:29 schreef mschol het volgende:

[..]

vb kan je redelijk simpel met mysql laten comminiceren

Akkoord maar niet voor een dranklijst en al helemaal niet als je nog nooit VB gebruikt hebt

woensdag 8 oktober 2008 @ 09:04:16 #127

DiRadical

Everything's ruined

quote:
Op dinsdag 7 oktober 2008 21:29 schreef mschol het volgende:

[..]

vb kan je redelijk simpel met mysql laten comminiceren

Als het toch op 1 PC draait zou ik eerder SQLLite of misschien Firebird gebruiken.

Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR

FOK!fotograaf woensdag 8 oktober 2008 @ 13:37:59 #128

Marc H

- Satan's Livecoach -

Ik zou dan toch fijn voor vb gaan, en zorgen dat elke wijziging meteen naar disk weggeschreven wordt. Stel je hebt een feestavondje, en een uur voor sluiten crashed je pc. kan je dan nog achterhalen wat iedereen besteld heeft?

You don't have to be the Dalai Lama to tell people that life's about change.

woensdag 19 mei 2010 @ 21:44:13 #129

Chandler

Aangezien ik toch weer eens aan de slag moest en als noob weer eens iets niet snap, zelfs niet na veel zoeken vraag ik het maar hier :)

Ik heb de volgende code, die ik wil gebruiken om te controleren of een directory bestaat

MsgBox FolderExists(strStartPath)

in mijn geval [b]C:\Documenten and Settings\Gebruiker\Mijn documenten[/b en die bestaat, echter geeft de MsgBox een false aan terwijl deze true moet zijn?

code?

1 2	Dim oFile As New Scripting.FileSystemObject FileExists = oFile.FolderExists(sFullPath)

anyone?

Just say hi!

donderdag 20 mei 2010 @ 13:46:50 #130

DiRadical

Everything's ruined

Code werkt.

Is sFullPath wel gevuld?
Wordt wel goed gekoppeld aan de msgbox?

Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR

donderdag 20 mei 2010 @ 14:02:09 #131

Chandler

Idd, ik kwam er achter dat een letter qua functienaam niet goed stond en dus geen true/false (boolean) terug stuurde.. wat kun je toch over foutjes heen kijken zeg

Just say hi!

donderdag 20 mei 2010 @ 14:15:12 #132

DiRadical

Everything's ruined

quote:
Op donderdag 20 mei 2010 14:02 schreef Chandler het volgende:
Idd, ik kwam er achter dat een letter qua functienaam niet goed stond en dus geen true/false (boolean) terug stuurde.. wat kun je toch over foutjes heen kijken zeg

Je gebruikt geen Option Explicit (aan het begin van je code staat in ieder bestand).

Foei

Dat Microsoft het standaard niet aan zet in VB is overigens nog erger.

Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR

donderdag 20 mei 2010 @ 14:25:58 #133

Chandler

Geplaatst!!

Ik ben bezig met een backup programma! zie aanleiding: Backup meerdere folders, simpel batch/programma?

preview:

Mijn code:

1

Heb je eventueel tips? vind vooral het laden van mijn INI bestand nogal omslachtig

[ Bericht 96% gewijzigd door Chandler op 21-05-2010 14:58:53 ]

Just say hi!

donderdag 20 mei 2010 @ 14:26:52 #134

Chandler

-edit-

Ini werkt al

Alles werkt op het maken van directories na...

en op een of andere manier kom ik daar niet uit..

Maar ik ga er nu even lekker mee spelen!

[ Bericht 45% gewijzigd door Chandler op 21-05-2010 14:59:49 ]

Just say hi!

vrijdag 21 mei 2010 @ 15:13:16 #135

DiRadical

Everything's ruined

quote:
Op donderdag 20 mei 2010 14:26 schreef Chandler het volgende:
-edit-

Ini werkt al

Alles werkt op het maken van directories na... en op een of andere manier kom ik daar niet uit..

Maar ik ga er nu even lekker mee spelen!

zoiets:

Dim obj As New Scripting.FileSystemObject
Dim ofld As Folder
set ofld = obj.GetFolder("c:\temp")
ofld.SubFolders.Add ("test")

Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR

vrijdag 21 mei 2010 @ 15:53:51 #136

Chandler

Klopt maar het ging om een diepere structuur

Dat is inmiddels gelukt en heb nu een werkend projectje!

Hier te downloaden in source van visualbasic 6

Lukt al aardig dus

Opties
- Drive noemer mee nemen (gemakkelijk als je vaak dezelfde directories in je roots hebt)
- Ook subdirectories doorlezen?
- Extensies overslaan
- Overschrijven? alleen als deze veranderd / nieuw is.
- 0 bestanden/directories ook kopieren (moet nog inbouwen, deels zeg maar... nu wordt een directory pas aangemaakt als er een bestand naartoe geschreven wordt.)
- Doel drive en path aangeven
- Meerdere bronnen toevoegen aan overzicht
- Meerdere bron lokaties verwijderen in 2 klikken (selecteren, verwijderen)

Statistieken
- Aantal MB's
- Aantal gekopieerde Mb's
- Aantal bestanden
- Aantal gekopieerde bestanden
- Aantal geskipte bestanden
- Aantal fout bestanden (Geskipt) (bv in gebruik, etc)
- Actie

Alleen werk ik nu nog met de copy van filesystemobject en daar wil ik eingelijk iets anders voor, eventueel met een voortgangs balk oid? lol

Maar goed, ik hoor graag comments

VB was al weer zo'n 3 jaar geleden.....

[ps] Hier draai ik het nu met zo'n 200K aan bestanden, duurt een beetje erg lang.. maar minder lang dan verwacht.......

Just say hi!

vrijdag 21 mei 2010 @ 17:17:32 #137

MWP

^__^

quote:
Op vrijdag 21 mei 2010 15:53 schreef Chandler het volgende:

Hier te downloaden in source van visualbasic 6

VB6 nog? Je weet dat Microsoft inmiddels van haar .net-versies ook gratis versies van de ontwikkelstudio's uitbrengt? Onder andere Visual Basic .net 2008 is gratis te downloaden: http://www.microsoft.com/exPress/

Deze versies zijn een bijzondere verbetering t.o.v. vb6, onder meer omdat er met .net meer mogelijk is zonder aanroep van extra DLL's maar rechtstreeks vanuit .net. Kan me voorstellen dat je voor dit project niet graag de omschakeling wilt maken (hoewel projecten vaak 1-op-1 geconverteerd kunnen worden), maar het loont de moeite om hier eens naar te kijken voor andere applicaties

Ik merk zelf dat ik sneller werk met 2005 - en nu met 2008

Succes!

vrijdag 21 mei 2010 @ 17:23:42 #138

Chandler

Ja VB6

hoe durf ik hoor ik je nu denken, ach het is voor mij bekender, aangezien ik zelf altijd met QuickBASIC 4.5 heb gwerkt (jaren, jaren jaren geleden!

) en dus simpeler om te begrijpen... En natuurlijk het belangrijkste, het lukt me om er iets mee te bakken!

maar goed, wie weet ga ik ooit eens .net proberen... maar dat zal pas na een volgende herinstal worden

Heb je nog tips voor de huidige code?

Just say hi!

vrijdag 21 mei 2010 @ 22:13:19 #139

MWP

^__^

quote:
Op vrijdag 21 mei 2010 17:23 schreef Chandler het volgende:
Ja VB6 hoe durf ik hoor ik je nu denken, ach het is voor mij bekender, aangezien ik zelf altijd met QuickBASIC 4.5 heb gwerkt (jaren, jaren jaren geleden! ) en dus simpeler om te begrijpen... En natuurlijk het belangrijkste, het lukt me om er iets mee te bakken! maar goed, wie weet ga ik ooit eens .net proberen... maar dat zal pas na een volgende herinstal worden

Heb je nog tips voor de huidige code?

Het mooie van VB.net is dat de syntax onveranderd is maar dat het op sommige punten eenvoudiger is om - bijvoorbeeld met het bestandsysteem - te werken. Om je een voorbeeld te noemen, in vb.net is er standaard een functie aanwezig om te controleren of een bestand bestaat: System.IO.File.Exists(path as string). Dat scheelt, want dan hoef je filesystemobject niet steeds opnieuw te declareren.

Ook bijvoorbeeld de functie je je gemaakt hebt om de extensie van een bestand te controleren, is in vb.net aanwezig:

1 2	Dim bestandsinformatie As New System.IO.FileInfo("c:\test.txt") MsgBox(bestandsinformatie.Extension)

In .net is er ook een nieuwe control 'backgroundworker', waarmee je op de achtergrond bepaalde taken kunt uitvoeren (zoals het kopiëren, waardoor het programma niet hangt tenzij je application.DoEvents() gebruikt.

Onder VB6 zou je in elk geval de volgende dingen kunnen aanpassen:

Filesystemobject één maal declareren bovenaan de code met een 'private' (i.p.v. dim of Set)

Verminder het aantal for-lussen dat je gebruikt, controleer of ze écht noodakelijk zijn. De for-lus die je gebruikt om de extensie te controleren kan je bijvoorbeeld vervangen door een zoek-in-array-functie ("staat ext in verboden lijst?"). for-lussen kunnen namelijk nogal tijdrovend blijken

De if-statements zitten soms wat onhandig in elkaar (4 of 5 in elkaar). De meeste kan je ook met handig gebruik van 'andalso', 'orelse', AND en OR operators samenvoegen.

Verder ziet de code er vrij oké uit

Antiek, maar oké

zaterdag 22 mei 2010 @ 16:23:07 #140

Chandler

Dan maar weer een kleine update, zelfde bestand.

Aardig wat ifjes verwijderd.
nu 1 aanroep voor alle fso objecten
meer gegevens in error string.

En een exe toegevoegd... weet niet of dat handig is maar goed

Gaat nu zeker een stuk sneller, en volgens mij eet het ook minder geheugen..

Just say hi!

zondag 23 mei 2010 @ 11:23:38 #141

Chandler

Nou geheugen valt dus tegen... 50-80mb erg schommelend... Ook gaan de eerste 10.000 bestanden aardig rap maar daarna gaat het steeds slomer... iemand een idee waardoor dit zou kunnen komen?

Just say hi!

zondag 23 mei 2010 @ 11:28:13 #142

mschol

quote:
Op zondag 23 mei 2010 11:23 schreef Chandler het volgende:
Nou geheugen valt dus tegen... 50-80mb erg schommelend... Ook gaan de eerste 10.000 bestanden aardig rap maar daarna gaat het steeds slomer... iemand een idee waardoor dit zou kunnen komen?

"vol" lopen van het geheugen?

zondag 23 mei 2010 @ 11:46:49 #143

Chandler

hoe bedoel je met vol? het schommelt nu opeens tussen de 20-50mb?

bij 44k aan gelezen bestanden

Just say hi!

zondag 23 mei 2010 @ 21:17:48 #144

Chandler

Hier een filmpje van het geheugen gebruik? snap niet waar het hem in zit..

project1.avi

Anyone?

Just say hi!

zondag 23 mei 2010 @ 21:46:24 #145

mschol

ik bedoel: misschien zijn er variablen oid die blijven hangen in het geheugen waardoor hij trager wordt omdat hij meer moet onthouden oid?

zondag 23 mei 2010 @ 22:01:38 #146

Chandler

Yup, dat was idd het euvel, voor ieder bestand dat na controle op datum geskipt werdt was terug te vinden in de log en dat is met 200k aan bestande niet grappig... nu deze weg gehaalt zit het geheugen gebruik op 5MB en loopt het nu alle bestanden in zo'n 5 minuten langs!!!! ipv een halve dag

Just say hi!

maandag 24 mei 2010 @ 20:37:51 #147

MWP

^__^

quote:
Op zaterdag 22 mei 2010 16:23 schreef Chandler het volgende:
Dan maar weer een kleine update, zelfde bestand.

Aardig wat ifjes verwijderd.
nu 1 aanroep voor alle fso objecten
meer gegevens in error string.

En een exe toegevoegd... weet niet of dat handig is maar goed :)

Gaat nu zeker een stuk sneller, en volgens mij eet het ook minder geheugen..

Leuk om te zien dat het werkt! Je zou i.p.v. "AND" ook "ANDALSO" kunnen gebruiken, dat zal iets in performance schelen. In dit voorbeeld:

1	IF A=B AND C=D then

Wordt de conditie C=D altijd gecontroleerd, ook als A!=B, terwijl als je:

1	IF A=B ANDALSO C=D then

gebruikt, C=D alleen wordt gecontroleerd als A=B. Dat scheelt op het aantal statements en het aantal bestanden wat je doorloopt aardig wat vergelijkingen!

quote:
Op zondag 23 mei 2010 22:01 schreef Chandler het volgende:
Yup, dat was idd het euvel, voor ieder bestand dat na controle op datum geskipt werdt was terug te vinden in de log en dat is met 200k aan bestande niet grappig... nu deze weg gehaalt zit het geheugen gebruik op 5MB en loopt het nu alle bestanden in zo'n 5 minuten langs!!!! ipv een halve dag :D

Grappig dat dat zo erg scheelt :)

dinsdag 25 mei 2010 @ 07:34:21 #148

Chandler

Grappig is idd dat het geheugen dan zo sprint.. waarom? geen idee maar goed.

Zal andalso ook eens proberen

Just say hi!

maandag 3 januari 2011 @ 19:06:04 #149

Modus

Ik ben met een studieopdracht bezig. Een simpel programmaatje om een soort orderlijst te maken en daarnaast moet je nog een programma maken om die orderlijst te veranderen. Ik moet dus 2 .exe's maken (kan ms ook anders maar het voorbeeld heeft er ook 2).

Min of meer de enige hint die gegeven werd voor het samen gebruiken van die 2 is dat VB (Express in mijn geval) een Process component in de toolbox heeft. Ik heb echter geen idee hoe en wat verder, als ik zo'n ding in mijn eerste programma toevoeg.

In prog 1 zit een knop Edit orderlist die prog 2 laat opstarten. Ik heb echt geen idee wat voor code ik ongeveer zou moeten gebruiken onder die knop om dat voor elkaar te krijgen. En als ik wel code heb, wat is dan het nut van dat component in mijn project??

Verder is dus het idee dat gegevens uit prog 2 weer verwerkt worden in prog 1. Ook geen idee hoe dat zou moeten (variabelen binnen meerdere forms snap ik wel), of gaat dat min of meer 'automatisch' door juist gebruik van dit onderdeel?

Heb hier al wat zitten kijken http://msdn.microsoft.com(...)nostics.process.aspx maar daar word ik niet heel veel wijzer van vooralsnog.

maandag 3 januari 2011 @ 19:30:15 #150

EggsTC

GOA

Je kan met een winAPI die box uitlezen. ik snap ook niet helemaal wat je bedoelt tho.

Lambo of Rekt

maandag 3 januari 2011 @ 19:57:24 #151

ralfie

!Yvan eht nioj

quote:
Op maandag 3 januari 2011 19:06 schreef Modus het volgende:
Ik ben met een studieopdracht bezig. Een simpel programmaatje om een soort orderlijst te maken en daarnaast moet je nog een programma maken om die orderlijst te veranderen. Ik moet dus 2 .exe's maken (kan ms ook anders maar het voorbeeld heeft er ook 2).

Min of meer de enige hint die gegeven werd voor het samen gebruiken van die 2 is dat VB (Express in mijn geval) een Process component in de toolbox heeft. Ik heb echter geen idee hoe en wat verder, als ik zo'n ding in mijn eerste programma toevoeg.

In prog 1 zit een knop Edit orderlist die prog 2 laat opstarten. Ik heb echt geen idee wat voor code ik ongeveer zou moeten gebruiken onder die knop om dat voor elkaar te krijgen. En als ik wel code heb, wat is dan het nut van dat component in mijn project??

Verder is dus het idee dat gegevens uit prog 2 weer verwerkt worden in prog 1. Ook geen idee hoe dat zou moeten (variabelen binnen meerdere forms snap ik wel), of gaat dat min of meer 'automatisch' door juist gebruik van dit onderdeel?

Heb hier al wat zitten kijken http://msdn.microsoft.com(...)nostics.process.aspx maar daar word ik niet heel veel wijzer van vooralsnog.

dat lijkt me vb.net en dat is iets waar de meeste mensen in dit topic allergisch voor zijn.
En gelijk hebben ze

met een process kun je (zo te zien) vrij makkelijk standardinput en standardoutput redirecten. Daarmee kun je nogal wat data snel over en weer hevelen. Dat zou mijn eerste keus zijn denk ik.

Anders, tjah, moeten het echt twee verschillende programma's zijn? Shared memory e.d. lijkt me tamelijk geavanceerd voor iemand die je durft in vb.net te laten leren. Maar je zult wel moeten als het het netjes wilt doen. Anders kun je het nog met Send/PostMessage, winapi's en het vieze 'een bestandje waarin beide programma's lezen en schrijven'.

maandag 3 januari 2011 @ 20:11:41 #152

Modus

Ja je moet gewoon het voorbeeldprogramma functioneel namaken, de enige hint die ik voor dit gedeelte kreeg was die Process component. Ms denk ik wel veel te moeilijk en is het een kwestie van prog 2 laten opstarten vanuit prog 1 (met een beetje kloten lukt me dat nog wel denk ik) maar wat is dan nog de bedoeling van dat component in je form inbouwen??

Ms voor het plaatje, prog 2 leest een text bestand in dat eerst door prog 1 gevuld is. Dat txtbestand kun je dan wijzigen, na afsluiten van prog 2 worden de nieuwe gegevens weer in prog 1 verwerkt.

Deze opdracht is echt bizar veel moeilijker dan alle voorgaande en je krijgt alleen maar een paar trefwoorden als hulp zeg maar.

maandag 3 januari 2011 @ 21:20:20 #153

Core2

Happiness is the road

Misschien zoiets?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Environment.GetCommandLineArgs.Contains("edit") Then
            Dim orders As New List(Of String)
            Dim order As String = Nothing

            Do
                order = Console.ReadLine
                If order <> String.Empty Then orders.Add(order)
            Loop While Not order = String.Empty

            MessageBox.Show(orders.Count)
        Else
            Dim orderLijst As String() = {"cola", "boter", "kaas", String.Empty}

            Dim si As New System.Diagnostics.ProcessStartInfo With {
                .Arguments = "edit",
                .FileName = Application.ExecutablePath,
                .RedirectStandardInput = True,
                .UseShellExecute = False
            }

            Dim process = System.Diagnostics.Process.Start(si)

            process.WaitForInputIdle()

            For Each order In orderLijst
                process.StandardInput.WriteLine(order)
            Next

            process.StandardInput.Flush()
        End If
    End Sub

maandag 3 januari 2011 @ 21:28:13 #154

Core2

Happiness is the road

Het is dan ook niet zo moeilijk meer om van B naar A te gaan lijkt me. Je kunt dus communiceren via stdin/stdout. Je hebt nog wel wat andere mogelijkheden (named pipes, memory mapped files, tcp/ip, etc) waar je denk ik nog wat te weinig ervaring voor hebt (met alle respect

).

maandag 3 januari 2011 @ 21:50:28 #155

Modus

Het zal wel een beetje in die richting gaan zoals jouw code, maar ik kan me gewoon niet voorstellen dat dat de bedoeling is... 1 trefwoord 'Process' en dan moet je bovenstaande er zelf maar bij uitzoeken...

dinsdag 4 januari 2011 @ 09:32:21 #156

Modus

Ik denk dat ik veel te moeilijk dacht in eerste instantie. Volgens mij is het de bedoeling dat ik vanuit prog 1 prog 2 laat opstarten, die laatste gegevens laat verwerken in het textbestandje, prog 2 weer sluiten en vervolgens prog 1 de vernieuwde gegevens weer laten uitlezen uit dat textbestandje. Op die manier is er dus geen sprake van rechtstreeks overdracht tussen 2 exe's.

dinsdag 4 januari 2011 @ 14:39:39 #157

Catbert

The evil HR Director.

quote:
Op maandag 3 januari 2011 21:28 schreef Core2 het volgende:
Het is dan ook niet zo moeilijk meer om van B naar A te gaan lijkt me. Je kunt dus communiceren via stdin/stdout. Je hebt nog wel wat andere mogelijkheden (named pipes, memory mapped files, tcp/ip, etc) waar je denk ik nog wat te weinig ervaring voor hebt (met alle respect ).

Volgens mij is het gewoon de bedoeling dat ze die data in een textfile of DB opslaan. Snap niet dat mensen hier rare oplossingen als communicerende applicaties gaan bedenken. In VB wat in een access DB frutten is triviaal.

"[...] a large number of the teenagers claiming Asperger's are, in fact, merely dicks."

dinsdag 4 januari 2011 @ 21:21:02 #158

Core2

Happiness is the road

quote:
Op dinsdag 4 januari 2011 14:39 schreef Catbert het volgende:

[..]

Volgens mij is het gewoon de bedoeling dat ze die data in een textfile of DB opslaan. Snap niet dat mensen hier rare oplossingen als communicerende applicaties gaan bedenken. In VB wat in een access DB frutten is triviaal.

Je kunt die opdracht op meerdere manieren interpreteren, ik heb geen idee wat de context is. Er wordt gesproken over het Process object, een orderlijst en twee applicaties die iets met die orderlijst moeten doen. Niet zo gek dat je dan bij communicerende processen uitkomt, maar zou me niks verbazen als ze inderdaad een database oplossing bedoelen.

dinsdag 4 januari 2011 @ 23:26:05 #159

Modus

Even voor de duidelijkheid: het voorbeeldprogramma is wel zo duidelijk dat er geen twijfel is over het moeten gebruiken van een textfile. App 1 is een soort orderprogramma en schrijft op de achtergrond gegevens weg in dat text bestand en wil je wat wijzigen daarin dan moet dat via app 2.

Ik zat bij mijn eerste post verkeerd te denken, nl. ongeveer dit:

-app2 starten en daarmee
-wijzigingen in text file opslaan
-app 2 weer sluiten

ik was in de veronderstelling dat die gewijzigde gegevens alleen naar app1 'overgeheveld' zouden kunnen worden door ze in arrays ofzo te verwerken, en ik zag gewoon niet (als dat al kan) hoe dat zou moeten, dat overdragen tussen 2 exes. Dat zou ook nog heel veel ingewikkelder zijn dan wat ik tot nu toe in de lesstof gezien heb, dus kon me al nauwelijks voorstellen dat dat de bedoeling zou zijn.

Ik moet het nu nog uitwerken maar wat ik volgens mij moet doen is:

-app 2 opstarten
-wijzigingen opslaan
-app 2 weer afsluiten en in diezelfde event zorgen dat app 1 meteen daarna de nieuwe gegevens uit dat textbestand weer inleest en verwerkt in o.a. het prijzengedeelte.

Verder werd dus bij de tips gesproken over de Process class, met een miniem stukje code als voorbeeld, en daarna werd gerefereerd naar het aanwezig zijn van een Process component in VB die je gewoon in je form kan slepen en wat blijkbaar 1 en ander zou vereenvoudigen. Hoe ik die component dan zou moeten gebruiken is me nog niet helemáál duidelijk, met alleen die code kom ik er eerder uit denk ik.

Hoop dat zo een beetje duidelijk is wat de bedoeling van de opdracht is en daarmee van mijn vraagstelling.

maandag 18 juli 2011 @ 23:16:06 #160

Modus

Na vastlopen en ander geneuzel de studieopdracht maar weer opgepakt.
Waar ik nog steeds mee zit is:

Is mijn denkwijze überhaupt wel goed voordat we ook maar aan code gaan denken (zie ook mijn post hierboven). Is het mogelijk om in App2 het 1 en ander te doen (terwijl App1 dan op de achtergrond 'wacht'), dat vervolgens af te sluiten waarna App1 weer 'actief' wordt maar op het moment van actief worden moet er in App1 ook het 1 en ander gebeuren (gegevens bijgewerkt, een soort 'refresh' zeg maar). Kan ik überhaupt elementen in App1 rechtstreeks aanroepen vanuit App2? Zo nee, dan moet er dus iets gebeuren zodra App2 klaar is. Maar hoe laat ik App1 weten dat App2 klaar is??

Kan het niet duidelijker verwoorden... hoop dat iemand tips heeft. Heb de docent ook nog maar eens gemaild maar daar krijg ik altijd als het meezit 3 woorden antwoord van.

woensdag 20 juli 2011 @ 15:08:18 #161

DiRadical

Everything's ruined

Eerste hit in Google
kom uit bij About.com

Je kunt vanuit App1 een nieuw proces met applicatie App2 starten.
Als je een textbestand hebt opgeslagen in App1 kun je die meegeven als parameter en deze parameter weer uitlezen in App2.
In App2 kun je je bewerking uitvoeren en opslaan (in hetzelfde tekst bestand)
Daarna kun je App2 sluiten.

Door myProcess.WaitForExit() toe te voegen aan de code nadat je myProcess gestart bent wordt het uitvoeren van de rest van de code van App1 gestopt.
Daarna kun je in App1 het bestand weer openen en de wijzigingen inlezen.

Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR

maandag 1 augustus 2011 @ 21:26:50 #162

Modus

Thanks, had je reply nog niet gezien. Ik heb dat stukje inmiddels ook werkend kunnen krijgen. Ben inmiddels weer iets verder gevorderd.

Nu wat anders, een wat specifieker probleem, dus ms makkelijker om uit te zoeken.
Na het sluiten van App2 laat ik het txt-bestand opnieuw openen, dat moet regel voor regel uitgelezen worden, elke regel moet opgesplitst naar een array en het eerste item van deze array moet als zoekterm gebruikt worden om in de Listbox van App1 het bijbehorende item terug te vinden.

Leek allemaal goed te gaan maar het juiste Listbox.Item wordt niet goed bijgewerkt. Nader onderzoek leert dat die array vullen niet goed gaat, maar ik zie niet wat ik daar fout aan doe. Heb ongeveerd e volgende code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Dim File_Name As String = "D:\vb08sbs\voorbeelden\899J6\Inzending\899Q6\orders.txt"
            If System.IO.File.Exists(File_Name) = True Then
                Dim SplitLineArr() As String, NewTextLine As String
                Dim objReader As New System.IO.StreamReader(File_Name)
                Do While objReader.Peek() <> -1
                    NewTextLine = objReader.ReadLine()
                    SplitLineArr = Split(objReader.ReadLine(), ";")
                    Label5.Text = NewTextLine
                    Label6.Text = SplitLineArr(0)

                    ' Dim index As Integer = OrderListBox.FindString(SplitLineArr(0))
                    ' If index <> -1 Then
                    ' OrderListBox.Items(index) = NewTextLine
                    ' ArticlePrice = Convert.ToDecimal(Trim(SplitLineArr(2)), New System.Globalization.CultureInfo("en-US"))
                    ' TotalPrice = TotalPrice + (Trim(SplitLineArr(3)) * ArticlePrice)
                    ' End If
                Loop
            End If

Er staat wat overbodige code in maar die gebruik ik gedeeltelijk om waardes uit te lezen, zoals de labels5 en 6.
Als er maar 1 regel in het textbestand staat, verschijnt in label5 wel text, maar in 6 niet. Staan er meer regels in het textbestand dan blijven zowel label5 als 6 leeg.

Zit dat hem wellicht in hoe het textbestand uitgelezen wordt? Is er een andere manier om regel voor regel uit te lezen?

maandag 1 augustus 2011 @ 22:39:18 #163

MWP

^__^

quote:
Op maandag 1 augustus 2011 21:26 schreef Modus het volgende:
Thanks, had je reply nog niet gezien. Ik heb dat stukje inmiddels ook werkend kunnen krijgen. Ben inmiddels weer iets verder gevorderd.

Nu wat anders, een wat specifieker probleem, dus ms makkelijker om uit te zoeken.
Na het sluiten van App2 laat ik het txt-bestand opnieuw openen, dat moet regel voor regel uitgelezen worden, elke regel moet opgesplitst naar een array en het eerste item van deze array moet als zoekterm gebruikt worden om in de Listbox van App1 het bijbehorende item terug te vinden.

Leek allemaal goed te gaan maar het juiste Listbox.Item wordt niet goed bijgewerkt. Nader onderzoek leert dat die array vullen niet goed gaat, maar ik zie niet wat ik daar fout aan doe. Heb ongeveerd e volgende code:
[ code verwijderd ]

Je leest nu door deze code steeds twee regels uit het bestand.

1 2	NewTextLine = objReader.ReadLine() SplitLineArr = Split(objReader.ReadLine(), ";")

Van die tweede regel zou je dus eigenlijk dit moeten maken:

1	SplitLineArr = Split(NewTextLine , ";")

maandag 1 augustus 2011 @ 22:46:20 #164

Modus

Is dat zo? Alles wat binnen de Do While-Loop code valt gaat toch over dezelfde regel?

Heb de code aangepast zoals je aangeeft en dan gebeurt er nog steeds niks, label5 en 6 blijven leeg.

maandag 1 augustus 2011 @ 22:58:03 #165

MWP

^__^

quote:
Op maandag 1 augustus 2011 22:46 schreef Modus het volgende:
Is dat zo? Alles wat binnen de Do While-Loop code valt gaat toch over dezelfde regel?

Het enige wat deze Do zegt is dat er code moet worden uitgevoerd zolang er nog tekst te vinden is in het bestand. Met .Peek() kijk je namelijk naar de volgende regel, hij wordt dan nog niet gelezen, dat gebeurd pas met .ReadLine() die je twee keer aanroept

quote:
Heb de code aangepast zoals je aangeeft en dan gebeurt er nog steeds niks, label5 en 6 blijven leeg.

Ah, maar dan gebeurd er dus wel wat anders dan net!

Dat is iets anders dan "nog steeds niets"

Dat nu ook label5 leeg blijft kan worden veroorzaakt doordat het tekstbestand wat je inleest een witregel aan het einde heeft o.i.d., heb je daar al naar gekeken?

Kan je eenvoudig controleren in notepad of door een breakpoint aan het begin van je code neer te zetten en dan stap-voor-stap elke regel te evalueren en in je variabelen te kijken.

maandag 1 augustus 2011 @ 23:03:38 #166

TallMan

Permanent brain failure

Probeer inderdaad met breakpoints door je code te stappen en kijk wat er specifiek misgaat, welke variabele wordt niet gevuld zoals jij dacht.

Dat je niets ziet gebeuren kan heel goed aan een witregel liggen aan het einde van de textfile zoals al was genoemd. Je labels zullen visueel niet worden geupdate zolang je nog in je Do lus zit (behalve als je dat zelf afdwingt) dus dat je daaraan niets ziet is by design.

Klein puntje is dat een StreamReader een EndOfStream property heeft. Die kun je gebruiken ipv die Peek <> -1

1
2
3
4
5
6
7
8
9
10
11
12
13

                Do While not objReader.EndOfStream
                    NewTextLine = objReader.ReadLine()
                    SplitLineArr = Split(NewTextLine, ";")
                    Label5.Text = NewTextLine
                    Label6.Text = SplitLineArr(0)

                    ' Dim index As Integer = OrderListBox.FindString(SplitLineArr(0))
                    ' If index <> -1 Then
                    ' OrderListBox.Items(index) = NewTextLine
                    ' ArticlePrice = Convert.ToDecimal(Trim(SplitLineArr(2)), New System.Globalization.CultureInfo("en-US"))
                    ' TotalPrice = TotalPrice + (Trim(SplitLineArr(3)) * ArticlePrice)
                    ' End If
                Loop

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

maandag 1 augustus 2011 @ 23:10:12 #167

Modus

Bij het creëren en vullen van dat tekstbestand wordt idd elke keer een enter aan het einde van een weggeschreven regel toegevoegd, heb het idee dat het daar iets mee te maken heeft ja. Als ik het open en naar het einde van het bestand ga, kom ik uit onder de tekstregels, aan het begin van een nieuwe regel.

Is er een manier om dat tijdens het wegschrijven al te voorkomen, of moet je iets doen waardoor je na de laatste regel de nieuwe lege regel weer delete o.i.d.? Die enter moet natuurlijk wel gebruikt worden om telkens regels onder elkaar in het textbestand te kunnen krijgen...?

maandag 1 augustus 2011 @ 23:32:20 #168

MWP

^__^

quote:
Op maandag 1 augustus 2011 23:10 schreef Modus het volgende:
Bij het creëren en vullen van dat tekstbestand wordt idd elke keer een enter aan het einde van een weggeschreven regel toegevoegd, heb het idee dat het daar iets mee te maken heeft ja. Als ik het open en naar het einde van het bestand ga, kom ik uit onder de tekstregels, aan het begin van een nieuwe regel.

Dan is het logisch dat jouw labels leegblijven

Die labels bevatten namelijk alleen de inhoud van de laatste regel (die wordt immers als laatste ingelezen in de DO-loop).

quote:
Is er een manier om dat tijdens het wegschrijven al te voorkomen, of moet je iets doen waardoor je na de laatste regel de nieuwe lege regel weer delete o.i.d.? Die enter moet natuurlijk wel gebruikt worden om telkens regels onder elkaar in het textbestand te kunnen krijgen...?

Tijdens het wegschrijven (ik neem aan dat dat met een DO of FOR-loop gaat) zou je kunnen kijken of je met de laatste regel bezig bent en als dat het geval is, voeg je geen witregel toe.

Andersom kan ook: Steeds éérst een vbNewLine toevoegen en dan pas de gewenste regel. Met een uitzondering bij de allereerste regel.

dinsdag 2 augustus 2011 @ 09:54:23 #169

TallMan

Permanent brain failure

Of bij het uitlezen van het bestand kijken of je een lege regel hebt uitgelezen en die niet processen

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

dinsdag 2 augustus 2011 @ 10:04:35 #170

Modus

quote:
Op dinsdag 2 augustus 2011 09:54 schreef TallMan het volgende:
Of bij het uitlezen van het bestand kijken of je een lege regel hebt uitgelezen en die niet processen

Dat zal denk ik de makkelijkste optie zijn, zal vanavond eens kijken thuis. Thanks.

woensdag 3 augustus 2011 @ 21:30:42 #171

Modus

Ha ik geloof dat ik het zowaar werkend heb. Dus elke regel uit het textbestand uitlezen en de bijbehorende regel in de Listbox vervangen. Thanks voor de hulp.

.

Nu alleen nog even iets scharrelen zodat de totaalprijs op de juiste manier opnieuw wordt uitgerekend, maar daar kom ik wel uit.

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

[Visual Basic] voor dummies - Deel 1

» digital corner

» development

» digital corner

» development