Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: VBA : split en replace  (gelezen 2795 keer)

0 leden en 1 gast bekijken dit topic.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: VBA : split en replace
« Reactie #30 Gepost op: 08 december 2022, 17:37:17 »
Hey BlackDevil,

O.K., dan kunnen we dit hoofdstukje met een gerust geweten als afgerond beschouwen :thumbsup:
Veel plezier met het vervolg !

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA : split en replace
« Reactie #31 Gepost op: 08 december 2022, 18:17:40 »
Hey Molly,

In de veronderstelling dat ik voor de omzet werkelijk met alles rekening gehouden heb kan dat eerste deel inderdaad
afgerond worden. Het tweede deel (was maar een héél kleintje) heb ik inmiddels ook al afgerond.

Het derde deel daarentegen vrees ik toch wel dat dit een pak moeilijker zal worden...
Het is zeker haalbaar aangezien ik in het verleden een soortgelijk project tot een goed einde heb gebracht, alleen is
het nu net iets ingewikkelder qua extra gegevens die gecombineerd moeten worden ;D

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA : split en replace
« Reactie #32 Gepost op: 09 december 2022, 12:16:55 »
***UPDATE***

Voor deel 3 van mijn project heb ik mijn sub tot een goed einde kunnen afronden maar deze is op de huidige manier gigantisch lang, ruim 230 lijntjes.

*code verwijderd

Nu, het codeblok doet op deze manier wat het moet doen maar nu zou ik dus graag deze code willen inkorten adhv arrays en/of loops waar mogelijk.

Hoe kan ik dit het beste aanpakken? Als dat dan al enigszins mogelijk zou zijn uiteraard.


Heb het gevonden, ik moest gewoon ff mijn kennis ivm het gebruik van arrays wat opfrisen  ;D

Groetjes,
BlackDevil


1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA : split en replace
« Reactie #33 Gepost op: 10 december 2022, 15:27:37 »
Goedenamiddag allen,

In grote lijnen zijn alle onderdelen voor het project gecodeerd, nu is het enkel nog de afwerking mbt hoe en wanneer de sub's uitgevoerd moeten worden.
In teken van die afwerking heb ik dus een (complexe) vraag.

Ik heb dus 3 subroutines.
De eerste subroutine moet uitgevoerd worden adhv een bepaalde waarde in cel A1 van werkblad1.
De tweede subroutine moet uitgevoerd worden met het resultaat uit subroutine1.
De derde subroutine moet uitgevoerd worden met de gegevens uit subroutine2 die vermeld staan op werkblad2.

Nu is het zo dat dit meerdere malen moet uitgevoerd worden maar met niet altijd opeenvolgende waarden in cel A1 van werkblad1.
Het is eerder in groepjes van opeenvolgende waarden.
Om het in de codetaal van de loops te zeggen moeten deze subroutines uitgevoerd worden met volgende groepjes waarden :
1
8 To 15
64 To 127
512 To 1023
4096 To 8191

Omdat ik niet elke keer handmatig deze waarden telkens wil moeten invoeren zou ik hiervoor een (complexe) loop willen creëren zodat
de subroutines voor elk van bovenvermelde waarden achtereenvolgens wordt uitgevoerd.

Is dit haalbaar? Of kan ik beter gewoon voor elke groep een aparte loop opbouwen?

Alvast mijn oprechte dank voor het meedenken.


groetjes,
BlackDevil




1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: VBA : split en replace
« Reactie #34 Gepost op: 10 december 2022, 15:49:55 »
Hey BlackDevil,

Het zal mogelijk véél te kort door de bocht zijn, maar als je op voorhand weet wat in A1 moet staan, kan je het dan niet in je code opnemen? Dan zou je zo een structuur kunnen maken:
Sub main()
mijncode (1)
For w = 8 To 15
    mijncode (w)
Next w
For w = 64 To 127
    mijncode (w)
Next w
'enz...
End Sub

Sub mijncode(w)
'[code gebruikmakend van w]
End Sub

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA : split en replace
« Reactie #35 Gepost op: 10 december 2022, 16:29:51 »
Hey Molly,

Bedankt voor jouw voorbeeldje.
Ja, zelf had ik ook al iets in elkaar geprutst in de trant van :

Sub voorwaarden()
  bron = Cells(1, 1)
  Select Case bron
    Case 8
      einde = 15
    Case 64
      einde = 127
    Case 512
      einde = 1023
    Case 4096
      einde = 8191
  End Select
  For a = bron To einde
    Cells(1, 1) = a
    'start Subroutine1
    'start Subroutine2
    'start Subroutine3
  Next a
End Sub

Maar dan bedacht ik dat het nog makkelijker zou zijn als ik gewoon het hele 'loop'-proces in één keer kon laten uitvoeren vanaf die waarde '1'.
Het was natuurlijk maar een ideetje...

Maar ik denk wel dat als ik jouw voorbeeldje verder uitwerk dat ik er misschien wel kan komen :-).
Ik ga alvast al eens wat prutsen en puzzelen mbt jouw voorbeeldje en zal gelijk ook een degelijk en compleet testbestand maken met alle afgewerkte sub's om hier nog eens aan te hangen.

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA : split en replace
« Reactie #36 Gepost op: 10 december 2022, 17:41:46 »
zoals beloofd, in bijlage een compleet afgewerkt testbestand met fictieve basisgegevens (weliswaar met lege datumvelden) in werkblad "tot-lijst".

kleine toelichting bij het bestand :

subroutine1 -> staat achter werkblad "kwrtrbld-lijst"
subroutine2 -> staat in module1
subroutine3 -> staat achter werkblad "kwrtrbld-html"

werkblad "kwrtrbld-lijst" -> de grijs gekleurde cellen moeten ONGEWIJZIGD blijven (staan formules in)
werkblad "kwrtrbld-html" -> de grijsgekleurde cellen in kolom B verwijzen naar de gegevens in kolom A die ONGEWIJZIGD moeten blijven (=standaard tekst die in elk document moet opgenomen worden)


groetjes,
BlackDevil

***NOTA***
net gemerkt dat er een klein typfoutje staat in de code van subroutine3 ....
de range moet daar "A1:A159" zijn en niet 149
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: VBA : split en replace
« Reactie #37 Gepost op: 11 december 2022, 11:54:11 »
Hallo BlackDevil,

Ik heb eerst en vooral toch willen doorgronden wat exact je bedoeling is, en dat is waarschijnlijk goed gelukt ;)

(Zo maar een gedachte: je had dit ook kunnen doen zonder sub nr.2 en zonder html-werkblad, dus je textfile rechtstreeks schrijven met vba. Meteen mag je dat terug vergeten voor dit project, want het werkt en zou anders veel aanpassing vergen. Voor andere kwesties kan het idee eventueel wel nuttig zijn.)

Zoals het nu is ontworpen geef je dus nog zelf achtereenvolgens het commando om sub1, sub2 en sub3 uit te voeren, niet?
Mag dat dan niet gewoon één enkele sub worden? In theorie althans, want dan moet ook eea worden gewijzigd. Een 'main' sub die voor jou in volgorde die 3 subs aanroept zal dan eenvoudiger zijn.
Meer zelfs, ik heb dat al vlug gedaan + getest en goedgekeurd, nu enkel jij nog :D

Concreet: de subs achter de werkbladen zijn weg, module 1 heb ik laten staan omdat sub2 ongewijzigd is.
En in module 2 staat een main-procedure, samen met sub1 en sub3 omdat die beide een minimale wijziging moesten ondergaan (verwijzing naar het correcte werkblad).

Het sosa-nummer wordt in deze 'ontwikkelingsfase' nog manueel in A1 gezet. Alles wat volgens mij nog moet gebeuren is daar in 'main' een loop voor maken.
Maar bekijk het misschien al eens in deze vorm.

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: VBA : split en replace
« Reactie #38 Gepost op: 11 december 2022, 12:09:02 »
En, omdat je nogal belang hecht aan geen overdreven lange code ;), kan je
    sosanr = .Cells(3, 1)
    If Len(sosanr) < 7 Then
      nullen = 7 - Len(sosanr)
      pre = ""
      For n = 1 To nullen
        pre = pre & "0"
      Next n
      voor = pre & sosanr
    End If
vervangen door
sosa = Format(.Cells(3, 1), "00000000")
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: VBA : split en replace
« Reactie #39 Gepost op: 11 december 2022, 12:24:39 »
Het was sterker dan mezelf, dus vooraleer met de kookpotten aan de slag te gaan nog vlug een testje gedaan en 200 html-files gecreëerd in 0,82 sec.
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.174
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: VBA : split en replace
« Reactie #40 Gepost op: 11 december 2022, 13:04:45 »
Het was sterker dan mezelf, dus vooraleer met de kookpotten aan de slag te gaan nog vlug een testje gedaan en 200 html-files gecreëerd in 0,82 sec.

Was het eten ook maar zo snel klaar  ;D ;D ;D
Misschien daar eens een code voor schrijven ?

Smakelijk (als je er aan toe komt)  0:-)

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA : split en replace
« Reactie #41 Gepost op: 11 december 2022, 13:28:43 »
Hey Molly,

Alvast eerst hartelijk dank voor de tijdsinvestering die je doet om mij te helpen  _/-\o_

als antwoord op je bericht #37 : Dat ziet er in orde uit, dus getest en goedgekeurd :-)  :thumbsup:

als antwoord op je bericht #38 :
Ik had ondertussen al een kleine aanpassing gedaan aan mijn code mbt die voorloop-nullen in die zin dat ik aan meerdere
nummers die voorloop-nullen moest toekennen. Ik was namelijk vergeten dat ik in mijn html-code ook nog op bepaalde
plaatsen code voor een hyperlink moest toevoegen en dan had ik voor de creatie van de bestandsnamen in die hyperlinks
dus ook die nrs met voorloop-nullen nodig.

Ik had dus van dit :
    sosanr = .Cells(3, 1)
    If Len(sosanr) < 7 Then
      nullen = 7 - Len(sosanr)
      pre = ""
      For n = 1 To nullen
        pre = pre & "0"
      Next n
      voor = pre & sosanr
    End If

dit gemaakt :
sosanr = .Cells(3, 1)
    nr = sosanr * 8
    ar_nrs(1) = sosanr
    For s = 2 To 9
      ar_nrs(s) = nr
      nr = nr + 1
    Next s
    For h = LBound(ar_nrs) To UBound(ar_nrs)
      k = ar_nrs(h)
      If Len(k) < 7 Then
        nullen = 7 - Len(k)
        pre = ""
        For n = 1 To nullen
          pre = pre & "0"
        Next n
        ar_nrs(h) = pre & k
      End If
    Next h

met jouw 'inkorting' heb ik dit dan nu gereduceerd tot dit :
sosanr = .Cells(3, 1)
    nr = sosanr * 8
    ar_nrs(1) = Format(sosanr, "0000000")
    For s = 2 To 9
      ar_nrs(s) = Format(nr, "0000000")
      nr = nr + 1
    Next s

en voor de aanmaak van de strings met vermelding van de hyperlinks heb ik dan nu dit :
  'Arrays maken voor gen4
    g4 = 10
    For a = 1 To 8
      ar_gen4nmn(a) = "<td><a href=""proband_sosa-" & ar_nrs(a + 1) & ".html"">" & .Cells(g4, 2) & "</a></td>"       'array namen
      ar_gen4vnm(a) = "<td>" & .Cells(g4, 3) & "</td>"                                      'array xtra voornamen
      ar_gen4g(a) = "<td>" & "°" & .Cells(g4, 4) & " " & .Cells(g4, 5) & "</td>"            'array geboorte
      ar_gen4o(a) = "<td>" & "&dagger;" & .Cells(g4, 8) & " " & .Cells(g4, 9) & "</td>"     'array overlijden
      g4 = g4 + 1
    Next a

en dit :
  'gegevens inlezen voor proband
      If .Cells(3, 2) > 7 Then
        gen1nm1 = "<td><a href=""proband_sosa-" & ar_nrs(1) & ".html"">" & .Cells(3, 2) & "</a></td>"
      Else
        gen1nm1 = "<td>" & .Cells(3, 2) & "</td>"                                             'naam
      End If


Nu is het nog enkel die 'loop' opbouwen om alle pagina's in één keer te laten aanmaken.
Doch moet er ook nog een mogelijkheid blijven om één specifiek kwartierblad aan te maken ingeval er in dat kwartierblad gegevens zouden wijzigen en dit dus aangepast moet worden.

ik ga alvast ook al wat verder puzzelen :-)

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA : split en replace
« Reactie #42 Gepost op: 11 december 2022, 14:21:54 »
***update***

kheb eens eventjes iets in elkaar geprutst dat op het eerste zicht doet wat het moet doen.

ik moet enkel op werkblad "kwrtrbld-lijst" twee knoppen plaatsen voor het geheel op te starten.
een knop "individueel" die dan de "sub main()" opstart als ik maar één specifiek kwartierblad wil maken
en een tweede knop "compleet" die dan de "sub compleet()" opstart om het gehele pakket ineens aan te maken.

dit is dan de aangepaste code in module 2 die ik daarvoor in elkaar heb geknutseld met mijn amateur-kennis  :D

Sub compleet()
  lijst_kwrtrbld (1)
  kwrtrbld_html
  opslaan
  For w = 8 To 15
    lijst_kwrtrbld (w)
    kwrtrbld_html
    opslaan
  Next w
  For w = 64 To 127
    lijst_kwrtrbld (w)
    kwrtrbld_html
    opslaan
  Next w
  For w = 512 To 1023
    lijst_kwrtrbld (w)
    kwrtrbld_html
    opslaan
  Next w
  For w = 4096 To 8191
    lijst_kwrtrbld (w)
    kwrtrbld_html
    opslaan
  Next w
End Sub

Sub main()
w = Sheets("kwrtrbld-lijst").Cells(1, 1)
lijst_kwrtrbld (w)
kwrtrbld_html
opslaan

End Sub

Sub lijst_kwrtrbld(w)    '<<<--- subroutine 1
 
With Sheets("kwrtrbld-lijst")
  .Cells(1, 1) = w
  For i = 3 To 17
    rij = .Cells(i, 1) + 1
    persoon = Sheets("tot-lijst").Range("B" & rij & ":I" & rij)
    .Range("B" & i & ":I" & i) = persoon
  Next i
  .Columns("B:I").EntireColumn.AutoFit
End With

End Sub

Maar vermoedelijk kan het beter/anders ?

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: VBA : split en replace
« Reactie #43 Gepost op: 11 december 2022, 15:28:15 »
Hey BlackDevil,

Je hebt wéér gelijk: dat kan anders  :)
Omwille van je 2 verschillende subs die de 'sub-subs' :D aanroepen zouden we wat meer moeten veranderen om mijn eerdere suggestie toe te passen.
Maar je kan binnen een loop de aansturende variabele ook naar wens aanpassen (hier vooral niet met > maar met = want anders kom je in een eindeloze loop terecht).
De 'compleet'-sub zou je daarom zo kunnen schrijven (dan mag al de rest blijven):
Sub compleet()
For w = 1 To 8191
    If w = 2 Then w = 8
    If w = 16 Then w = 64
    If w = 128 Then w = 512
    If w = 1024 Then w = 4096
    lijst_kwrtrbld (w)
    kwrtrbld_html
    opslaan
Next w
End Sub

Succes ermee!

@ SoftAid,
Citaat
Was het eten ook maar zo snel klaar  ;D ;D ;D
Misschien daar eens een code voor schrijven ?
Ik zet het meteen op mijn to do-lijstje :D

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA : split en replace
« Reactie #44 Gepost op: 11 december 2022, 16:07:49 »
Hey Molly,

Bedankt voor de tip, hiermee wordt mijn 'compleet' sub aanzienlijk ingekort :-).
Veel verschil maakt het nu in geval van dit project niet echt uit aangezien ik de 'compleet'-sub in principe maar 1x moet uitvoeren.
Maar ik hou die 'inkorting' zeker in gedachten voor toekomstige projectjes  :thumbsup:.

Na daarnet nog 1 klein hindernisje ondervonden te hebben bij één specifieke locatie van hyperlink heb ik dit na wat puzzelen
opgelost gekregen waardoor dit denk ik wel als afgerond beschouwd mag worden.

Toen ik begon aan mijn hoofdproject (talloze html-pagina’s maken) waarbij ik handmatig eerst per persoon de nodige gegevens (naam, geboorte, huwelijk, overlijden) moest opzoeken in de web-applicatie en vervolgens handmatig moest intypen op elk corresponderende html-pagina was ik al snel een half uur tot bijna een uur kwijt per pagina.
Omdat ik werkelijk alzo duizenden pagina’s moest maken zou dit handmatig dus een echt monnikenwerk geweest zijn dat ettelijke maanden in beslag zou genomen hebben.

Ik ben dus een zeer gelukkige vrouw nu dat dit hele proces automatisch uitgevoerd kan worden binnen amper enkele seconden tijd.

Hop naar het volgende projectje dan maar :D :D :D
(ben altijd gretig om mijn kennis verder uit te bouwen en te verbeteren hé  ;) )


Groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

 


www.combell.com