Staple1600
XLDnaute Barbatruc
Bonsoir
Suite à la lecture de ce post
https://www.excel-downloads.com/threads/acces-minitel-avec-wanadoo.83694/
Uue idée saugrenue m'est venue à l'esprit.
Tenter de réaliser en VBA une macro permettant de transformer
le history.dat de Firefox en fichier texte exploitable et intelligible.
Je sais qu'il exitse un utilitaire qui effectue déjà la tache
mais je voudrais juste (pour le fun) tenter la chose en VBA
Avis aux amateurs
Le problème apparement est le format du fichier (dork file)
J'en suis à ce stade (trés laborieux)
Sub test_dork()
Documentation:
philwilson.org: How to export Firefox's history to a text file
Je ne sais pas si on peu adpater le bookmarklet (javascript) en VBA?
ou s'en inspirer
Suite à la lecture de ce post
https://www.excel-downloads.com/threads/acces-minitel-avec-wanadoo.83694/
Uue idée saugrenue m'est venue à l'esprit.
Tenter de réaliser en VBA une macro permettant de transformer
le history.dat de Firefox en fichier texte exploitable et intelligible.
Je sais qu'il exitse un utilitaire qui effectue déjà la tache
mais je voudrais juste (pour le fun) tenter la chose en VBA
Avis aux amateurs
Le problème apparement est le format du fichier (dork file)
J'en suis à ce stade (trés laborieux)
Sub test_dork()
Code:
Dim cel As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
For Each cel In Range(Cells(1, 1), Cells(1000, 1)) 'pour test
If cel.Text Like "*$00?$00*" Or cel.Text Like "*(^*" Or cel.Text Like "*)(*" Or Not cel.Text Like "*http://*" Then
cel.EntireRow.Delete
End If
Next
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Documentation:
philwilson.org: How to export Firefox's history to a text file
Je ne sais pas si on peu adpater le bookmarklet (javascript) en VBA?
ou s'en inspirer
Dernière édition: