Hej och välkommen till forumet Viking!

Jag har skapat lite VBA-kod som jag tror gör det du önskar.

Eftersom native VBA vare sig har multiprocessor- eller multitråd-stöd så kan man lite förenklat uttrycka tiden det tar att köra igenom loopen som en linjär funktion av processorns klockfrekvens.

Jag har kört igenom loopen på en gammal AMD Athlon 1.2GHz och där tog det ungefär 6tim och 45min att skapa textfilen med de nästan 363 miljoner kombinationerna. Om din processor är på låt oss säga 3.6GHz så borde slingan ta ungefär en tredjedel (3,6 / 1,2=3) av den tiden.

Så här ser början av filen ut. Jag hoppas det är så du har tänkt dig.

Hej igen Viking,

Koden "fastnar" inte någonstans - den tar bara lång tid att köra eftersom den skriver nästan 363 miljoner rader till en textfil. På din dator gissar jag att loopen tar drygt 2 timmar enligt mitt tidigare inlägg.

För att säkerställa att koden fungerar som den ska kan du kommentera ut ett par loopar så att den går fortare att köra igenom.

Kommentera ut följande och kör koden igen. Med nedan rader utkommenterade borde loopen ta runt 3-4 minuter på din dator och skapa en textfil som är ungefär 275MB stor.

’        For j3 = 0 To r
’        If arr(j3 + 1, 3) = 0 Then GoTo j3
’            value(3) = j3
’            For j4 = 0 To r
’            If arr(j4 + 1, 4) = 0 Then GoTo j4

’                value(4) = j4

<------>

’j4:

’            Next j4
’j3:

’   Next j3

Jag vet inte vad du vill åstadkomma med denna kod, men betänk att filerna blir extremt stora. Den fulla loopen som skapar en textfil med nästan 363 miljoner rader blir ungefär 10GB på disk och går därför inte ens att öppna eller redigera med editorer som Notepad eller Notepad++ för de stödjer inte så stora filer. Om du ändå vill köra koden 36 gånger så finns det risk att du t.o.m. fyller upp din hårddisk eftersom 36 * 10 GB = 360GB.

Hej Viking,

Val av programmeringsspråk har inte någon signifikant betydelse för att "snabba upp" dessa typer av loopar. Vad som däremot snabbar upp exekveringen är om man kan bearbeta all data i minnet istället för att skriva ut till Excel eller en textfil. Jag skrev dock den här snurran åt dig baserat på din ursprungliga kravspecifikation - vilken inte innehöll några krav på att byta ut siffror eller jämföra med ett max-min intervall.

Om du vill få en optimerad kod för dina behov är det bra om du tar med alla krav och önskemål på en gång.

Rent allmänt kan jag dock med enkel matematik förklara för dig att det inte kommer gå att hålla 13 miljarder rader med värden i minnet eftersom varje rad innehåller 27 tecken (bytes).

27 Bytes * 6 ^ 13 = 352 638 738 432 Bytes = 328 Gigabyte

Så mycket internminne antar jag att din dator inte har - även om den är av senaste modell... ;-)

PS. Angående Phyton så finns det stöd för det språket i Excel också numera om du använder Excel 365 och är med i Insider-programmet. DS.

Hej Viking,

Det stämmer att programmeringsspråk är olika uppbyggda och är bäst lämpade för olika ändamål. Vissa språk har exempelvis inbyggt stöd för multiprocessor och multitrådskörning, medan andra (som VBA) inte har det. Det är dock alltid upp till utvecklaren att skriva kod som är ändamålsenlig och nyttjar de olika utvecklingsmiljöerna på bästa sätt.

Eftersom du har ställt en fråga angående VBA - som är den utvecklingsmiljö vi diskuterar på detta forum - så baseras våra svar på vad man kan göra i den miljön, och inte exempelvis vad man kan göra med Python, C# eller andra språk.

Det är inte enbart utvecklingsmiljön (språket) som har inverkan på prestandan utan även hur koden är skriven. Om VBA skulle stödja multitrådsexekvering så skulle man kunna dela upp den långa loopen på exempelvis 6 (eller flera) separata trådar som körs parallellt på olika kärnor och på så sätt förbättra prestandan. Men eftersom den möjligheten inte finns i VBA så skrev jag enklast möjliga (sekvensiella) kod åt dig.

I ditt specifika exempel kan man nog göra precis som du föreslår, dvs. att istället för att skriva ut varje enskild rad till Excel eller till en textfil enbart behålla de "godkända" raderna i minnet, om de inte blir för många så minnet tar slut.

Dock skulle jag föreslå att du först kör igenom hela loopen utan att göra någonting med resultaten genom att helt enkelt kommentera ut raderna som skriver till textfilen.

’                                                                                      lineArr = """"
’                                                        For c = 1 To 13
’                                                            If arr(j13 + 1, c) = 0 Then GoTo j13
’                                                            lineArr = lineArr & value(c) & ","
’                                                        Next c
’                                                    lineArr = Left(lineArr, Len(lineArr) - 1) & """"
’                                                    fs.WriteLine lineArr 

Tiden det tar att köra igenom loopen med ovan rader utkommenterade är den absolut kortaste tiden det kommer ta att köra igenom de nästan 363 miljoner raderna i VBA. Multiplicera sen denna tid med 36 så får du fram minimitiden den fulla loopen med 13 miljarder itterationer kommer ta i anspråk på din hårdvara.

Är det fortfarande för långsamt så är inte VBA rätt miljö, då får du söka dig om efter ett annat språk och ställa frågan i forum där dessa experter finns.