Brief History of some of Alan's Firefox Browser Versions (as of January 2024)

[DocAElstein]

Some extra notes, probably of not much use, for this forum Post, https://eileenslounge.com/viewtopic.php?f=32&t=40473


January 2024


Brief History of some of Alan's Firefox Browser Versions
(as of January 2024)

Introduction (To me and my history to date with Firefox)
I think I first started using Firefox around May 2020. Until then I had originally, from my late start with computers, been using mostly Internet Explorer. At the outset, very approximately/ simplified, 12 years ago, when I knew not much about computers, Internet Explorer seemed to just be there by default usually. (I first bought a few new PCs, then a few second hand ones, about 15 years ago, but only really got into using them to any real extent about 9 years ago. )

I then moved over slowly to Google Chrome as Internet Explorer seemed to work less and less on internet sites when I tried on my older computers. No special reason why I went to Google Chrome in preference to any other
I tend to be late/ reluctant to update things, both generally and in particular in anything associated with Windows, and only update if I have to. (My experience has been that things Microsoft Windows and a few other software things where at their best as far as an end use is concerned around 10-20 years ago, and have got progressively worse, unless you are one of the majority of Zombies happy for Microsoft to control you.

In May 2020 a forum I was getting busy at changed from http to https, and instantly I could not log in anymore in Google Chrome on any Vista machines. (At that time I almost nether used Internet Explorer anymore, (other than in some useful VBA coding), as it got so slow on most sites, or at least on those it still worked on at all.)
As time went on I experienced similar issues at other places. I tried Firefox, it seemed to look and work similar to Google Chrome but with much less logging in issues on older Vista machines.

Currently I have a lot of computers across the whole range XP to windows 11. I use Google Chrome and Firefox about 50 – 50 nowadays. I never really took a great interest in, or compared, many different Browsers.
So my story here is just how it is, as far as my Firefox Browser versions is. It has not come about as a result of a great deal of thought.

The next post starts listing by computers in approximately the order I started using Firefox,or when it was installed, but I might have got a few dates mixed up.

If I give an install .exe file ( that is to say if I give a link to a cloud storage of that file ), then there is a good chance it is the exe I used to install the Firefox. The version of Firefox currently on that machine may however have updated somehow sometime since the original install. I never took much notice, but as noted, I generally don’t consciously update things unless I have to

[DocAElstein]

XP ... later

[DocAElstein]

Vista and Alan’s Firefox



Vista Home Premium Service Pack 2 32-Bit KB Acer Aspire 4810T Laptop
This computer: https://i.postimg.cc/KYhgspt8/KB-props.jpg
From the first time I had anything to do with Firefox, at approximately May 2020

https://i.postimg.cc/G3XGhQnX/KB-About-Firefox.jpg
https://i.postimg.cc/TYhmyDRf/KB-FF-exe.jpg
https://i.postimg.cc/T3DD0vLs/KB-FF-in-prog-deinst.jpg
https://i.postimg.cc/s2PZFPJ9/KB-FF-info.jpg
5709 5717 https://i.postimg.cc/s2PZFPJ9/KB-FF-info.jpg (https://postimg.cc/f3Lbm9pJ)

Here is the exe I first used to do the install
Firefox Setup 52.9.0esr.exe : https://app.box.com/s/6ir1j7cocwg5u9mnyaxtvbkf4oetzu1m



Vista Home Premium Service Pack 1 32-Bit ACER Aspire X3200 mini PC
This computer : https://i.postimg.cc/3N7qL9pq/ACER-computer-props.jpg
I seem to have done the install in May 2020, but I can’t find the exe I used to do the install
https://i.postimg.cc/Xq8ztFkY/ACER-FF-in-prog-deinst.jpg
https://i.postimg.cc/1Rc2gh11/ACER-Help-About-FF.jpg
5710 5718 https://i.postimg.cc/Dyffj3r7/ACER-FF-info.jpg (https://postimg.cc/JtgW0gYF)




Vista Home Premium 32-Bit Drucky Acer Aspire 7535G Laptop
This computer: https://i.postimg.cc/htspgxwk/Drucky-Props.jpg
https://i.postimg.cc/yYb8Gr6t/Drucky-FF-exe.jpg
https://i.postimg.cc/vmRHYgVv/Drucky-FF-Help-About.jpg
https://i.postimg.cc/Dw4w3d8Z/Drucky-FF-in-prog-deinst.jpg
https://i.postimg.cc/HLQWVY01/Drucky-FF-info.jpg
5711 5719 https://i.postimg.cc/HLQWVY01/Drucky-FF-info.jpg (https://postimg.cc/CZxp2V6c)

I most likely used this exe to do the install in February 2021
Firefox Setup 52.9.0esr.exe https://app.box.com/s/2vbxnd64j6kvxvfs9kypgbvfcg829x8i

[DocAElstein]

Windows 7 and Alan’s Firefox

(I can’t quite remember why I installed Firefox Browser on any of my Windows 7 machines. Some of the computers came with it pre installed. On windows 7 I don’t have any problems that I don’t have with Firefox )



Windows 7 Home Premium 32-Bit Loise, Acer Aspire 5310 Laptop
Firefox Install from approximately August, 2021
I bought this, https://i.postimg.cc/1XjfyXrG/Loise-computer.jpg , on ebay very cheaply, I have done very little with it as yet, and almost never had it connected to the internet. It seems to have had Firefox Browser installed a few weeks before I bought it. I can’t find any Firefox install exe on it
https://i.postimg.cc/1XjfyXrG/Loise-computer.jpg
https://i.postimg.cc/jdDDZ6RZ/Loise-FF-Help-About.jpg
https://i.postimg.cc/05W6YX1z/Loise-FF-in-prog-deinst.jpg
https://i.postimg.cc/3x53mV9C/Loise-FF-info.jpg
5712 https://i.postimg.cc/jLcVr8pL/Loise-FF-info.jpg (https://postimg.cc/jLcVr8pL)



Windows 7 Starter Service Pack 1 32-Bit Pooh, LG X120 Notebook. Firefox Install from approximately August, 2021
Had this from new, widely travelled with my wife around the world. Not used much in the last few years. I installed Firefox browser a couple of years ago, but I am not sure why, - I don’t think it was for any important reason. Google Chrome still works fine on it. I can’t find the install exe that I used.
https://i.postimg.cc/J4pYBXBV/Pooh-FF-Help-About.jpg
https://i.postimg.cc/52j75twH/Pooh-FF-in-prog-deinstal.jpg
https://i.postimg.cc/Hx16C4F5/Pooh-FF-info.jpg
https://i.postimg.cc/g0Zg5Btm/Pooh-properties.jpg
Computer specs: https://i.postimg.cc/g0Zg5Btm/Pooh-properties.jpg
Fire fox info: 5713 https://i.postimg.cc/t1D33PqC/Pooh-FF-info.jpg (https://postimg.cc/t1D33PqC)



Windows 7 professional Service Pack 1 64-BitMartin, PC
Firefox Install from approximately November 2022 or it might have originally been installed Aprill 2022, then got updated somehow.
I have had this machine a few years, and used it a lot, mostly always connected to the internet. I bought it quite cheaply on ebay. It was a reconditioned PC, partly bodged together from an old Vista machine or machines, and the Seller also included the Windows 7 install DVD with Licence that he used to install windows 7. I can’t remember why I installed Firefox browser on it. Google chrome works on everything OK for me, and I mostly use that. I have the exe(s) file I used. I am not sure why there are two exes. I do remember a few times when I tried to install Firefox browser on some older machines, it complained saying it not being possible, but it offered me another exe that then did work. Maybe that explains the two exes. I am not sure.
It looks like the original installed version has been updated. I did not keep track so well on what was going on. More recently, it offers me an update, https://i.postimg.cc/63v1dtmN/Update-offer.jpg , which I ignore.
https://i.postimg.cc/bvd5wQ0r/downloaded-exes.jpg
https://i.postimg.cc/DzDMJ85g/FF-in-prog-deinst.jpg
https://i.postimg.cc/xjL48jmv/Help-About-Firefox-Browsers.jpg
https://i.postimg.cc/C5pr7X3n/Martin-Computer.jpg
https://i.postimg.cc/63v1dtmN/Update-offer.jpg
Computer specs: https://i.postimg.cc/C5pr7X3n/Martin-Computer.jpg
Firefox info: 5714 https://i.postimg.cc/qg0dgj4y/Martin-FF-info.jpg (https://postimg.cc/qg0dgj4y)


One or more of these Firefox exes I may have used. I can’t remember for sure
Firefox Setup 99.0.1.exe https://app.box.com/s/gwjvkbd79g1aflt7v6qoch29fj1aszdl
Firefox Installer.exe https://app.box.com/s/2i789jks4dldoxbse204a4cp59za089l



Windows 7 Starter Service Pack 1 32-Bit Simone LG X120 Notebook
I bought this second hand but it was not so old when I bought it. Have not done much with it, as it was a reserve for an identical Notebook. It seems to have had a Firefox install on it from about 18 months ago. I use almost always Google Chrome on it, and I think Firefox I may have quickly installed during so e experiment or another that I forgot about.
https://i.postimg.cc/VLvVTtss/Simone-FF-exe.jpg
https://i.postimg.cc/bw2FYj2K/Simone-FF-Help-About.jpg
https://i.postimg.cc/YqPswSj6/Simone-FF-in-prog-deinst.jpg
https://i.postimg.cc/TPV7mq00/Simone-FF-info.jpg
https://i.postimg.cc/xdDpcFvq/Simone-props.jpg
Computer Specs: https://i.postimg.cc/xdDpcFvq/Simone-props.jpg
Firefox info: 5715 https://i.postimg.cc/cKJBG3Vt/Simone-FF-info.jpg (https://postimg.cc/cKJBG3Vt)


There seems to be an exe on the computer. I probably had something to do with that. I don’t remember for sure
Firefox Installer.exe https://app.box.com/s/3cvjdsz10svcvmwmd5pitzukugnra6p0



Windows 7 Home Premium Service Pack 1 32-Bit Klaus Laptop Windows 7 Acer Aspire 6530G Laptop
An older Vista from the era of a few of my older Acer Aspire Vista Laptops, inherited from my father in Law at the time. This was updated by a computer expert to Windows 7, and I never fiddled with it much so it’s fairly standard
I think I installed Firefox Browser on this about 9 months ago. I don’t remember why
This computer: https://i.postimg.cc/j5Gyk32n/KLp-Tp7-FF-props.jpg
https://i.postimg.cc/x1T5DHsg/KLp-Tp7-FF-exes.jpg
https://i.postimg.cc/DzdFH9mt/KLp-Tp7-FF-Help-About.jpg
https://i.postimg.cc/s2RsnjfY/KLp-Tp7-FF-in-prog-inst.jpg
https://i.postimg.cc/j5Gyk32n/KLp-Tp7-FF-props.jpg
Firefox info: 5716 https://i.postimg.cc/t7T5KSW3/KLp-Tp7-FF-info.jpg (https://postimg.cc/t7T5KSW3)

[DocAElstein]

Windows 8.1 and Alan’s Firefox




Toshiba Satellite C700-B-103 Laptop Personnel Computer , ( Windows 8.1 )
My only Windows 8 / 8.1 machine ever.
I think this was a Windows 8.1 laptop from the outset.
It was dropped by its only other original owner, the screen broke, was thrown out, and I took it and got the screen fixed. So I ended up with a fairly good, standard 8.1 laptop, and I have never fiddled much with it.
( I think 8,1 came out as an attempt to cut losses as the 8 was in a Metro/ Smart Phone "App"? / touch screen sort of interface idea thing similar to some Windows 10 and 11 attempts to replace the Control Panel Explorer things. The 8 was not received so well, so 8,1 was an attempt to go back to making it a bit more "normal".
Once in a while something works on it that won’t work anywhere else. I got it doing some interesting automated spamming experiments most of the time. They don’t work on any other computer. Possibly just luck off a loophole somewhere caused by its unconventional upbringing. I have also heard of odd bugs only effecting windows 8.1 which Microsoft don’t have never seemed to have had any interest in fixing ).
According to the date it seems to have an install from last month. But there is an exe from April, 2022. Maybe I first installed iit the. I don’t remember for sure . Maybe it somehow updated itself last month. I have never kept much notice of this Laptop.
This computer: https://i.postimg.cc/nrdT2kJg/Elke-computer.jpg
https://i.postimg.cc/nrdT2kJg/Elke-computer.jpg
https://i.postimg.cc/v8XPGQVh/Elke-FF-exe.jpg
https://i.postimg.cc/3JcnDn9D/Elke-FF-Help-About.jpg
https://i.postimg.cc/htQM8T3Z/Elke-FF-Help-info.jpg
https://i.postimg.cc/sDXTXtPr/Elke-FF-in-prog-deinstal.jpg
Here the Firefox info: 5720 https://i.postimg.cc/mPRQBz47/Elke-FF-Help-info.jpg (https://postimg.cc/mPRQBz47)


Here is the install exe I found on it:
Firefox Installer.exe https://app.box.com/s/2gnox0yqmr8jvrv81oiki3ep5tcz1309

[DocAElstein]

Windows 10 and Alan’s Firefox
As time goes on I seem to be drifting slowly towards having Firefox and Google Chrome Browsers installed, for no particular reason. Expect I might look in more detail at Browsers generally in my attempt to develop a stable personal computer option against the minority trend of giving up with windows, and if you do have it, then letting "your" computer be like a terminal for the Microsoft main frame controlling your life.



Windows 10 Pro 64-Bit . SerSszuD2 Acer Travelmate 5744
An updated Windows 7. This seems to have become 1 of about 3 computers that I use often and are a poor substitute for my old original Vista Acer Aspire 4810T Laptop still works but a few important projects I have really need something newer, at least for a while until I win the fight against Microsoft taking over.
I get prompted often to update, (https://i.postimg.cc/85BwsZ8v/prompt-to-update.jpg ), this since I installed it in approx. May 2021, I think, maybe. I am not sure if I ever accepted that update off. I think probably not. The date on the exe and the install seems the same, so I think that suggests it was never updated.
This Computer: https://i.postimg.cc/FzGfBn8h/Ser-Szu-D2-props.jpg
https://i.postimg.cc/8CvZg1tt/FF-exes.jpg
https://i.postimg.cc/3RHnKPq7/FF-Help-About.jpg
https://i.postimg.cc/L59DPjRb/FF-in-prog-deinst.jpg
https://i.postimg.cc/FzGfBn8h/Ser-Szu-D2-props.jpg
https://i.postimg.cc/85BwsZ8v/prompt-to-update.jpg
https://i.postimg.cc/Y0d3zjCq/Ser-Szu-D2-FF-info.jpg
Firefox info: 5721 https://i.postimg.cc/RJnKMStj/Ser-Szu-D2-FF-info.jpg (https://postimg.cc/RJnKMStj)

These are the Firefox exes I found on it:
Firefox Setup 91.0.2.exe https://app.box.com/s/f7nd4k5ev5rqg5cfi461mwf1b5b1xlto
Firefox Installer.exe https://app.box.com/s/jy1o5amhuzjtjzhp0famx4dmx9phij0p




Windows 10 Pro 64-Bit TM2 Acer Travel mate 5730G
My most recent bargain from eBay. I bought it in September 2022. It’s an old Vista machine, but a nice solid machine, - I think the guy who reconditioned and updated it knew what he was doing. It came with Firefox on it, I think. Possibly it has updated itself.
This Computer: https://i.postimg.cc/y6F5Yfx6/TM2-properties.jpg
https://i.postimg.cc/PJkRQD3k/TM2-FF-Help-About.jpg
https://i.postimg.cc/5yqk7tTQ/TM2-FF-in-prog-deinst.jpg
https://i.postimg.cc/3JYqyg0X/TM2-FF-info.jpg
https://i.postimg.cc/y6F5Yfx6/TM2-properties.jpg

Firefox info: 5722 https://i.postimg.cc/MX35NfDH/TM2-FF-info.jpg (https://postimg.cc/MX35NfDH)

[DocAElstein]

Windows 11 and Alan’s Firefox




Windows 11 Pro 64-Bit Elfy Acer Aspire 7730G
My only windows 11 machine, works well despite being an old Acer Vista. Bought from eBay in February 2022. It seems to have been installed a couple of days after I got it. Strange, I don’t think I installed it. I seem to remember it being installed as I got it.
I can’t find any Firefox exe on it.
This computer: https://i.postimg.cc/pL0XCYDt/Elfy-FF-props.jpg
https://i.postimg.cc/jdb5SjsB/Elfy-FF-Help-About.jpg
https://i.postimg.cc/dtj0kK33/Elfy-FF-in-prog-deinst.jpg
https://i.postimg.cc/cL1Lf5tm/Elfy-FF-info.jpg
https://i.postimg.cc/pL0XCYDt/Elfy-FF-props.jpg

The Firefox info ( was ** ) 5723 https://i.postimg.cc/GHNRCKQ8/Elfy-FF-info.jpg (https://postimg.cc/GHNRCKQ8)


_ _ _ __ _ _ __ _ _ __ _ _ __ _ _ __ _ _ __ _ _ __ _ _ __ _ _ _ __ _ _ __ _ _ __ _ _ __ _ _ _ __ _ _ __ _ _ __ _ _ __ _ _ _ __ _ _ __ _ _ __ _ _ __ _ _ __ _ _ __ _ _ __ _ _ _

** Edit: Update a few days later: Strange. While my back was turned, it seems to have just updated itself. I did not do it purposely. Maybe while checking Firefox things out in the last few days for these last few Firefox posts, I accidentally did something that caused it to update.

This is the info now:
https://i.postimg.cc/kXQk7J41/Elfy-FF-Help-About.jpg https://i.postimg.cc/QdSwWfcc/Elfy-FF-in-prog-deinst.jpg
5724 https://i.postimg.cc/5Y6Bzfh2/Elfy-FF-info.jpg (https://postimg.cc/5Y6Bzfh2)
Maybe later for the hell of it, while I still have Firefox things in my mind, I will try a restore to an earlier point, and see what happens.

[DocAElstein]

:SANCJ;KASCASCSKCHLASHC

[DocAElstein]

Some extra notes, probably of not much use, for this forum Post, https://eileenslounge.com/viewtopic.php?f=32&t=40473




Check you have a working internet on your computer
Ctrl + Click on the link Homemade SPAM in the attached file, HomemadeSpam.doc (https://app.box.com/s/5sa37eufyqylm6y1fcvlz1r7393jp149) , and see what happens.
It should open a YouTube video. But it don’t, said Chris. All the results below agree with him.
In those results below _....
_....
First line is Computer details
Second line is Firefox browser details for that computer, (including the install exe originally used if I have it )
Any further lines show The Word version used and link to a pic of what happens



XP

Later...





Vista

Vista Home Premium Service Pack 2 32-Bit Acer Aspire 4810T Laptop
Firefox 52.9.0 (32-Bit) ( Firefox Setup 52.9.0esr.exe )
Word 2007 https://i.postimg.cc/jj7msZQ0/Vista-Acer-4810-TB-XL2007.jpg

Vista Home Premium Service Pack 1 32-Bit ACER Aspire X3200 mini PC
Firefox 52.9.0 (32-Bit)
Word 2003 https://i.postimg.cc/rFZPxvf2/Vista-ACER-X3200-XL2003.jpg
Word 2007 https://i.postimg.cc/cCX5DjZY/Vista-ACER-X3200-XL2007.jpg

Vista Home Premium 32-Bit Acer Aspire 7535G Laptop
Firefox 52.9.0 (32-Bit) ( Firefox Setup 52.9.0esr.exe )
Word 2003 https://i.postimg.cc/0Q13rDc6/Vista-Acer-7535-G-XL2003-error.jpg

__________________________________________________ ___

Windows 7

Windows 7 Home Premium 32-Bit Acer Aspire 5310 Laptop
Firefox 91.0.2 (32-Bit)

Windows 7 Starter Service Pack 1 32-Bit LG X120 Notebook.
Firefox 91.0 (32-Bit)
Word 2010 https://i.postimg.cc/YqhrXr3X/Word-2010-Windows-7-Starter-P-LG-X120.jpg

Windows 7 Professional Service Pack 1 64-Bit PC
Firefox 107.0 (32-Bit) ( Firefox Setup 99.0.1.exe (32-Bit) )
Word 2010 https://i.postimg.cc/jSWkXZ1w/Windows-7-Professional-XL2010.jpg

Windows 7 Starter Service Pack 1 32-Bit Simone LG X120 Notebook
Firefox 114.0.1 (32-Bit)
Word 2010 https://i.postimg.cc/mZdZNzQz/Word-2010-Windows-7-Starter-S-LG-X120.jpg

Windows 7 Home Premium Service Pack 1 32-Bit Acer Aspire 6530G Laptop
Firefox 110.0.1(32-Bit)
Word 2003 https://i.postimg.cc/C17h2dX2/Word-2003-Klaus-Lp-Tp.jpg
Word 2007 https://i.postimg.cc/Bbwqqkqc/Word-2007-Klaus-Lp-Tp.jpg
Word 2010 https://i.postimg.cc/vHkQkJ2G/Word-2010-Klaus-Lp-Tp.jpg

__________________________________________________ ___

Windows 8

Windows 8.1 64-Bit Toshiba Satellite C700-B-103 Laptop Personnel Computer
Firefox 115.6.0esr (64-Bit)
Word 2003 https://i.postimg.cc/8zv1SZxM/Word-2003-Windows-811-Toshiba-Satellite-C700-B-103.jpg

__________________________________________________ ___

Windows 10

Windows 10 Pro 64-Bit Acer Travelmate 5744
Firefox 91.0.2 (64-Bit) ( Firefox Setup 91.0.2.exe (64-Bit) )
Word 2013 https://i.postimg.cc/QM1YLVhj/Word-2013-Wind10-FF-91-0-2-64-Bit.jpg

Windows 10 Pro 64-Bit Acer Travel mate 5730G
Firefox 106.0.4 (32-Bit)
Word 2010 https://i.postimg.cc/bNw5GzHR/Windows-10-Pro-Acer-5730-G-2010.jpg

__________________________________________________ ___

Windows 11

Windows 11 Pro 64-Bit Acer Aspire 7730G
Firefox 97.0 (32-BIT) - (it just updated while my back was turned, to 121.0 (32-Bit)
Word 2010 https://i.postimg.cc/Bnd7w2Wh/Word-2010-Win-11-FF-121-0-34-Bit.jpg





HomemadeSpam.doc https://app.box.com/s/5sa37eufyqylm6y1fcvlz1r7393jp149

[DocAElstein]

<sa,cn,sscc,cn,smcny,

[DocAElstein]

Add an Arraylist version to the ..... List, collection, of ways
:rolleyes:
Function SortInOrderArrayListStylio(


Sub MesnbVersion() ' http://www.excelfox.com/forum/showthread.php/2130-Sort-an-array-based-on-another-array-VBA?p=9972#post9972
Dim sn() As String, sp() As String ' VBA Strings Split Function used below which returns String types
sn() = Split("aa bb ii cc dd aa ee cc ff gg hh ii") 'This Array is an Array to be sorted in an order which depends on its Element values
sp() = Split("ii hh gg ff ee dd cc bb aa") 'This Array shows the order in which the Element values should be made
Dim Results() As String 'Arrays into the Function and out will have String type Elements ( are "housed" in transport in a variant Variable *** )
Let Results() = SortInOrder(sn, sp) ' ( Array 2 be sorted in Order , Array showing wanted order )
MsgBox Prompt:=VBA.Strings.Join(Results, " ")
MsgBox Trim(F_sort(sn, sp))
Dim VarResults() As Variant ' 1 dimensional Array returned by .ToArray Methhod returns Variant Elements
Let VarResults() = SortInOrderArrayListStylio(sn, sp) ' ( Array 2 be sorted in Order , Array showing wanted order )
MsgBox Prompt:=VBA.Strings.Join(Results, " ")

End Sub
' ( Array 2 be sorted in Order , Array showing wanted order )
Function SortInOrder(ByVal Array2BSorted As Variant, ByVal ArrayOrder2Sort As Variant) As Variant ' For ByVal Arrays must be "housed in Variant Variables. *** http://www.excelforum.com/showthread.php?t=1101544&page=10#post4381420 The only Type that can return an Array is variant so that must be the type of the Function
Dim IndxA2B As Long, IndxOrdr As Long, IndxASInOdr As Long: Let IndxASInOdr = -1 ' ' Index for Array to be sorted, Array showing order, and final sorted Array: Index for final sorted Array will be incremented by 1 just before next entry, and we are using base 0 1 Dimensional Arrays throughout, so before the first increment it should have -1 so that adding 1 gives zero, the first required index in the Array
Dim arrSortInOrder() As String: ReDim arrSortInOrder(LBound(Array2BSorted) To UBound(Array2BSorted)) ' !!! All Entries in the Array to be sorted are used , including duplicates in the Final Array, so the Output Sorted Array will have the same size as the Input Array to be sorted

For IndxOrdr = LBound(ArrayOrder2Sort) To UBound(ArrayOrder2Sort) 'In order of the Sorted order , IndxOrdr ...
For IndxA2B = LBound(Array2BSorted) To UBound(Array2BSorted) '...each Element in the Array to be sorted is considered and...
If Array2BSorted(IndxA2B) = ArrayOrder2Sort(IndxOrdr) Then '... when we find it ( we will eventually !!! ) we
Let IndxASInOdr = IndxASInOdr + 1 '... increase the index in the final sorted Array, and...
Let arrSortInOrder(IndxASInOdr) = Array2BSorted(IndxA2B) 'put the found matched Element in the Final Sorted Array. As we go in to the next Element in the Array to be sorted, we will catch any duplicate and that will be put in the next Element of the Final sorted Array untill all Elements are checked ..Then...we...
Else ' case of not found the current element to be sorted yet ( we always do !!! ) Redundant code line
End If
Next IndxA2B ' keep going along the Array to be sorted !!! - we will eventually find the Element with the value of the current Element considered from the Array showing order
Next IndxOrdr '... go back to look for all Elements in the Array to be sorted which match the next Element in the Order to be sorted Array
Let SortInOrder = arrSortInOrder() ' The final Array is put in the Variant variable SortInOrder ( effectively "returning" it at end of Function - or rather as the code moves on past the Function the Array is in that Variable - Function( ) as Variant is like Dim Function as Variant, and the course of the function does the Let Function = bit here )
End Function
Function F_sort(sq, st)
Dim j As Long, jj As Long
For j = 0 To UBound(st)
For jj = 0 To UBound(sq)
If sq(jj) = st(j) Then F_sort = F_sort & " " & sq(jj)
Next
Next
End Function
'http://www.snb-vba.eu/VBA_Arraylist_en.html
Function SortInOrderArrayListStylio(ByVal Array2BSorted As Variant, ByVal ArrayOrder2Sort As Variant) As Variant ' For ByVal Arrays must be "housed in Variant Variables. *** http://www.excelforum.com/showthread.php?t=1101544&page=10#post4381420 The only Type that can return an Array is Variant so that must be the type of the Function
Dim IndxA2B As Long, IndxOrdr As Long ' ' Index for Array to be sorted, Array showing order
Dim a_00 As Object
Set a_00 = CreateObject("System.Collections.ArrayList") 'Without a reference to the library: 'late binding' with the use of a variable: http://www.snb-vba.eu/VBA_Arraylist_en.html#L_4.2.1
For IndxOrdr = LBound(ArrayOrder2Sort) To UBound(ArrayOrder2Sort) ' In order of the Sorted order , IndxOrdr ...
For IndxA2B = LBound(Array2BSorted) To UBound(Array2BSorted) ' ...each Element in the Array to be sorted is considered and...
If Array2BSorted(IndxA2B) = ArrayOrder2Sort(IndxOrdr) Then '... when we find it ( we will eventually !!! ) we
a_00.Add (Array2BSorted(IndxA2B)) 'Add to the Array list - automatically at next position along
Else ' case of not found the current element to be sorted yet ( we always do !!! ) Redundant code line
End If
Next IndxA2B ' keep going along the Array to be sorted !!! - we will eventually find the Element with the value of the current Element considered from the Array showing order
Next IndxOrdr '.. . go back to look for all Elements in the Array to be sorted which match the next Element in the Order to be sorted Array
Let SortInOrderArrayListStylio = a_00.toarray() ' The method .ToArray writes all elements of the ArrayList into a 1-dimensional Array. ' http://www.snb-vba.eu/VBA_Arraylist_en.html#L_9.3 ( effectively "returning" it at end of Function - or rather as the code moves on past the Function the Array is in that Variable - Function( ) as Variant is like Dim Function as Variant, and the course of the function does the Let Function = bit here )

End Function



But why do i have to do this
a_00.Add (Array2BSorted(IndxA2B))
and not this
a_00.Add Array2BSorted(IndxA2B)
:confused: Hmmm...
_.. I have to "evaluate it" ?? to return its Value ??




'Rem Ref http://www.snb-vba.eu/VBA_Arraylist_en.html
' http://www.excelfox.com/forum/showthread.php/2056-Appendix-Thread-(-Codes-for-other-Threads-HTML-Tables-etc-)?p=9991#post9991

[DocAElstein]

Add an Arraylist version to the ..... List, collection, of ways
:rolleyes:
Function SortInOrderArrayListStylio(


Sub MesnbVersion() ' http://www.excelfox.com/forum/showthread.php/2130-Sort-an-array-based-on-another-array-VBA?p=9972#post9972
Dim sn() As String, sp() As String ' VBA Strings Split Function used below which returns String types
sn() = Split("aa bb ii cc dd aa ee cc ff gg hh ii") 'This Array is an Array to be sorted in an order which depends on its Element values
sp() = Split("ii hh gg ff ee dd cc bb aa") 'This Array shows the order in which the Element values should be made
Dim Results() As String 'Arrays into the Function and out will have String type Elements ( are "housed" in transport in a variant Variable *** )
Let Results() = SortInOrder(sn, sp) ' ( Array 2 be sorted in Order , Array showing wanted order )
MsgBox Prompt:=VBA.Strings.Join(Results, " ")
MsgBox Trim(F_sort(sn, sp))
Dim VarResults() As Variant ' 1 dimensional Array returned by .ToArray Methhod returns Variant Elements
Let VarResults() = SortInOrderArrayListStylio(sn, sp) ' ( Array 2 be sorted in Order , Array showing wanted order )
MsgBox Prompt:=VBA.Strings.Join(Results, " ")

End Sub
' ( Array 2 be sorted in Order , Array showing wanted order )
Function SortInOrder(ByVal Array2BSorted As Variant, ByVal ArrayOrder2Sort As Variant) As Variant ' For ByVal Arrays must be "housed in Variant Variables. *** http://www.excelforum.com/showthread.php?t=1101544&page=10#post4381420 The only Type that can return an Array is variant so that must be the type of the Function
Dim IndxA2B As Long, IndxOrdr As Long, IndxASInOdr As Long: Let IndxASInOdr = -1 ' ' Index for Array to be sorted, Array showing order, and final sorted Array: Index for final sorted Array will be incremented by 1 just before next entry, and we are using base 0 1 Dimensional Arrays throughout, so before the first increment it should have -1 so that adding 1 gives zero, the first required index in the Array
Dim arrSortInOrder() As String: ReDim arrSortInOrder(LBound(Array2BSorted) To UBound(Array2BSorted)) ' !!! All Entries in the Array to be sorted are used , including duplicates in the Final Array, so the Output Sorted Array will have the same size as the Input Array to be sorted

For IndxOrdr = LBound(ArrayOrder2Sort) To UBound(ArrayOrder2Sort) 'In order of the Sorted order , IndxOrdr ...
For IndxA2B = LBound(Array2BSorted) To UBound(Array2BSorted) '...each Element in the Array to be sorted is considered and...
If Array2BSorted(IndxA2B) = ArrayOrder2Sort(IndxOrdr) Then '... when we find it ( we will eventually !!! ) we
Let IndxASInOdr = IndxASInOdr + 1 '... increase the index in the final sorted Array, and...
Let arrSortInOrder(IndxASInOdr) = Array2BSorted(IndxA2B) 'put the found matched Element in the Final Sorted Array. As we go in to the next Element in the Array to be sorted, we will catch any duplicate and that will be put in the next Element of the Final sorted Array untill all Elements are checked ..Then...we...
Else ' case of not found the current element to be sorted yet ( we always do !!! ) Redundant code line
End If
Next IndxA2B ' keep going along the Array to be sorted !!! - we will eventually find the Element with the value of the current Element considered from the Array showing order
Next IndxOrdr '... go back to look for all Elements in the Array to be sorted which match the next Element in the Order to be sorted Array
Let SortInOrder = arrSortInOrder() ' The final Array is put in the Variant variable SortInOrder ( effectively "returning" it at end of Function - or rather as the code moves on past the Function the Array is in that Variable - Function( ) as Variant is like Dim Function as Variant, and the course of the function does the Let Function = bit here )
End Function
Function F_sort(sq, st)
Dim j As Long, jj As Long
For j = 0 To UBound(st)
For jj = 0 To UBound(sq)
If sq(jj) = st(j) Then F_sort = F_sort & " " & sq(jj)
Next
Next
End Function
'http://www.snb-vba.eu/VBA_Arraylist_en.html
Function SortInOrderArrayListStylio(ByVal Array2BSorted As Variant, ByVal ArrayOrder2Sort As Variant) As Variant ' For ByVal Arrays must be "housed in Variant Variables. *** http://www.excelforum.com/showthread.php?t=1101544&page=10#post4381420 The only Type that can return an Array is Variant so that must be the type of the Function
Dim IndxA2B As Long, IndxOrdr As Long ' ' Index for Array to be sorted, Array showing order
Dim a_00 As Object
Set a_00 = CreateObject("System.Collections.ArrayList") 'Without a reference to the library: 'late binding' with the use of a variable: http://www.snb-vba.eu/VBA_Arraylist_en.html#L_4.2.1
For IndxOrdr = LBound(ArrayOrder2Sort) To UBound(ArrayOrder2Sort) ' In order of the Sorted order , IndxOrdr ...
For IndxA2B = LBound(Array2BSorted) To UBound(Array2BSorted) ' ...each Element in the Array to be sorted is considered and...
If Array2BSorted(IndxA2B) = ArrayOrder2Sort(IndxOrdr) Then '... when we find it ( we will eventually !!! ) we
a_00.Add (Array2BSorted(IndxA2B)) 'Add to the Array list - automatically at next position along
Else ' case of not found the current element to be sorted yet ( we always do !!! ) Redundant code line
End If
Next IndxA2B ' keep going along the Array to be sorted !!! - we will eventually find the Element with the value of the current Element considered from the Array showing order
Next IndxOrdr '.. . go back to look for all Elements in the Array to be sorted which match the next Element in the Order to be sorted Array
Let SortInOrderArrayListStylio = a_00.toarray() ' The method .ToArray writes all elements of the ArrayList into a 1-dimensional Array. ' http://www.snb-vba.eu/VBA_Arraylist_en.html#L_9.3 ( effectively "returning" it at end of Function - or rather as the code moves on past the Function the Array is in that Variable - Function( ) as Variant is like Dim Function as Variant, and the course of the function does the Let Function = bit here )

End Function



But why do i have to do this
a_00.Add (Array2BSorted(IndxA2B))
and not this
a_00.Add Array2BSorted(IndxA2B)
:confused: Hmmm...
_.. I have to "evaluate it" ?? to return its Value ??




'Rem Ref http://www.snb-vba.eu/VBA_Arraylist_en.html
' http://www.excelfox.com/forum/showthread.php/2056-Appendix-Thread-(-Codes-for-other-Threads-HTML-Tables-etc-)?p=9991#post9991