Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[R]Comment filtrer une liste de chaînes de caractères ?
Auteur Message
Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
Salut Wink
Je cherche à trouver la bonne solution pour filtrer le contenu d'un fichier texte obtenu par ces deux fichiers vbscript et batch
Le vbscript en question me permet d'extraire pas mal d'information (Lien et nom du script ) à partir du pastebin.com

Code:
remoteurl = "https://pastebin.com/u/hackoo"
Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
http.Open "GET", remoteurl, False
http.Send

Set re = New RegExp
re.Pattern = "<a\b[^>]*\bhref=(?:([""'])([\s\S]+?)\1|([^\s>]*))[^>]*>([\s\S]+?)</a>"
re.IgnoreCase = True
re.Global = True
re.Multiline = True
Set oMatches = re.Execute(http.responseText)
If Not oMatches Is Nothing Then
    If oMatches.Count > 0 Then
    For Each oMatch In oMatches
        If Not oMatches(0).SubMatches Is Nothing Then
         Set reText = New RegExp
         reText.GLobal = True
         reText.Pattern = "<[^>]*>"     
         For Each Match in oMatches
            HREF = Match.SubMatches(1) & Match.SubMatches(2)
            InnerText = reText.Replace(Match.SubMatches(3), "")
            Wscript.echo HREF & "|" & InnerText
         Next 
        End If
    Next
    End If
End If

Alors j'obtiens comme résultat a partir de la ligne de commande ou d'un fichier batch

Code:
@echo off
Cscript /nologo "Grab_ALL_Links.vbs" > All_Links.txt

Donc mon problème est le suivant comment je peux filter mon résultat à partir du fichier texte en éliminant tous ces termes suivants :

Code:
set Filter_Strings="archive" "trends" "api" "tools" "faq" "login" "messages" "alert" "settings" "Public" "deals" "Top" "Untitled" "privacy" "cookies" "contact" "dmca" "scraping" "pro"

Merci !



Dernière édition par Hackoo le Mer 21 Juin 2017 - 15:12; édité 2 fois

______________________________________________________
Mes Contributions en Téléchargement
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
Helo :'v

j'ai fais un code fonctionnel, je me suis basé sur comment la racine était et j'ai fais ce code

ne suis pas sur que j'ai bien compris ce que tu voulais, enfin d'après ce que j'ai compris, tu veux supprimer toutes les branches par le filtre demander ? :V

Code:

@echo off

set Filter_Strings="archive" "trends" "api" "tools" "faq" "login" "messages" "alert" "settings" "Public" "deals" "Top" "Untitled" "privacy" "cookies" "contact" "dmca" "scraping" "pro"

setlocal enabledelayedexpansion
for %%a in (!Filter_Strings!) do (
   >"temp.$" echo;%%~a
   for %%b in ("temp.$") do (
      endlocal
      set/a "%%a.length=%%~zb - 2"
      setlocal enabledelayedexpansion
   )
)
2>nul del "temp.$"


>"All_Links.txt" (
   for /f "delims=" %%a in ('Cscript /nologo "Grab_ALL_Links.vbs"') do (
      endlocal
      set "ln=%%a"
      setlocal enabledelayedexpansion
      set "ln.if=!ln:"=`!"
      set "or=false"
      for %%b in (!Filter_Strings!) do for %%c in (!%%~b.length!) do if /i "!ln.if:~1,%%c!" == "%%~b" set "or=true"
      if "!or!" == "false" (
         echo;!ln!
      ) else >&3 echo;Removed : !ln!
   )
)

pause



Ne reste plus que quelqu'un fasse un code pour enlever les Untitled, ce code ne remplace que les branches qui commence par /<nom filtre>

j'ai essayé de faire un pipe line pour que sa soit plus rapide mais more ne veut pas aller plus loing que 65536 lignes :"v

Si tu veux voir le résulta sans essayer, en voilà une partie de All_Links.txt filtré par le code ci-dessus

parceque pour filtrer plus de 1500Ko c'est très long, surtout quand le fichier de base est remplis que de doublons :,v


Code:

/NK2zQpQY|Untitled
/0bD15RfG|monitorscancoffre
/m11JSKMM|Untitled
/4ZW4mctQ|Untitled
/HKxxnFCY|Untitled
/CxwrDZjL|Untitled
/sggA6JxZ|link
/MAH6cFVF|Untitled
/u/hackoo|
/message_compose?to=hackoo|
http://bbat.forumeiro.com/|
/LGzywPCn|Files_Catcher.bat
/YQXv8fBk|Extracting_Links_Targets.bat
/bBRixbQk|Hackoo_Change_Icon_Folder.bat
/Ntc8SZLU|Wifi Passwords Recovery.bat
/JLdt822D|Get_IP_MAC.bat
/VxiEzdxP|Scan_Registry_Virustotal.bat
/XXV3LJTc|Find_Suspicious_Paths.bat
/SbuC6PLy|OnlyLetters.bat
/fgqTjYYJ|Is_Alphabetical_Tester.vbs
/bh1PeV43|RKCMD.bat
/BCvhxT3t|Extract_Target_Link.bat
/80GQJPrM|Extract_EXE_Paths_Registry.bat
/AdpRUjMu|Scan_Registry_Run_Keys.bat
/WHQKq24D|Multi_VirusTotal_Uploader.bat
/uyDAbhWP|VirusTotal_Uploader.bat
/v09FGSRK|CatchFiles.bat
/rmAh1BpA|Listing_Files_modified-4n_Days.bat
/pVrSQTXN|PC_Info_Log.bat
/FAiVS1Ke|STARTUP_ITEMS.bat
/G3854sRe|Expand-Collapse.html
/s30kCUBs|Downloading_Cleaning_Tools.bat
/jkebfMAz|[HTA] Embedded_VLC_Player.hta
/ADdjPEfH|[BAT] Local_Search_Engine.bat
/wGdcfDR8|[BAT/VB.NET] PrintScreen.bat
/CaPdr5xG|[BAT] Scan_File_URL.bat
/zjYwSqUM|Multi Ping Tester with colors
/tVdZTkP4|[BAT] Hackoo_Check_Disk_Admin.bat
/D5TBd09x|[BAT] Polymorphism
/XP0K89cv|[Batch] Winrar Password Cracker.bat
/VzzRSEfw|[BAT] SFXCreator.bat
/CSJNbjBk|OpenDNS.vbs
/A6cD4b2F|[BAT] Create_Virus_Key.bat
/j0U5fDwn|[BAT] Hackoo_Virus_Cleaner.bat
/78VcNLTD|[VBS] Show_Wifi_Keys.vbs
/WdSmmsRe|Typewriter+BalloonTip
/e0iCkE09|[Bat] Folder Locker.bat
/c3s43vZ2|Block and UnBlock Facebook.bat
/HNZtQafz|[BAT] Copy2USB.bat
/raMmzG3Q|[VBS] CopyRename(i).vbs
/BuwxLRrT|[HTA] Webcam+Radio JawharaFM.hta
/aWWS2z9s|Batch File Encryptor HXB edit by TheBeneath
/qNE4PBah|[HTA] WebCam+Radio MosaiqueFM.hta
/i5XXgDrP|[BAT] DJ Batch Music Player
/9mpKGx52|EncryptBatch.hta
/yVnqw0wb|[BAT] Process_Starter-Killer_Password.bat
/PFSVhaGT|[VBS]Scan4Files4Folders.vbs
/vPZbRDiy|HTA ==&gt; Pour Anto CenterWindow
/MycQmsic|[VBS] DJBuzzRadio.vbs
/YVsSNMYL|[VBS] PlayListSongsWMP.vbs
/7HBSCcaf|[VBS] PlayListSongs.vbs
/qe0HqK0F|[VBS] Geolocalisation_IP.vbs
/PNfZCKzT|WindowsKey.vbs
/FnE4RvfE|InfoPC.vbs
/EvTuSp5n|MultiGetIP.bat
/tZDLn0ZL|Hackoo_OpenDNS.vbs
/qPH6Jxwh|CheckRunningBatchFiles.vbs
/uQvHhiZK|CheckProcess and Run it.vbs
/ipyTDGNi|USB_FolderPassword.vbs
/5fezTHDs|PasswordBox.vbs
/fExfMNmr|BlockCalc.vbs
/tbRdvF2j|MyWaitBar.bat
/MiUaGbNi|[vbs] Process_Services_Startup.vbs
/HbK0Khfs|Hosts.bat
/JkrUqESz|FindDevice.vbs
/iMpQ995U|[VBS] AutoSave_USB_SDCard.vbs
/9Qw6hxkU|[Autoit] Func _RunPE
/i0bWWKi5|[HTA] Audio Player with PlayList.hta
/CUUYnDcy|GmailAutoit.au3
/jREALGPT|[HTA] BoiteIP.hta
/z6Tm8sVp|[VBS] PsExecEncapsule.vbs
/vuzfcjud|Bein1HD.bat
/GZggP6i1|[VBS] Hackoo VIRUS Cleaner.vbs
/4kPtypZm|[VBS] DelRegVirus.vbs
/jyi9pXVH|[VBS] MyNewChkDsk.vbs
/ZqiTsCpp|[VBS] Wscript_Killer_Selector.vbs
/UWmWE2YT|[VBS] FunnyVBS.vbs
/cnEY6mRC|[VBS] MyCHKDSK.vbs
/121jsj46|[VBS] Convert2PDF.vbs
/hTSJjZf8|[VBS] XcopyScript.vbs
/f2t3RQ7e|[VBS] Upload2FTP.vbs
/DAd983q0|[VBS] Scan4Extension.vbs
/mCtxpH0Y|Testconnexion+TrayTip+Menu
/Xp1QbnwT|Download+Progressbar.au3
/i0cfA67f|WinUsbDriver
/8z8BA2ZW|SplashScreen+Background Music
/STtGbi7g|[VBS] Find&amp;kill_WScript.vbs
/9LUk7vtA|[VBS] RechercheMot.vbs
/6JRrZLgv|[VBS] Connection-Repair.vbs
/6HP4dJHv|[VBS] WmPlaySound.vbs
/rFvwCXRN|[VBS] BEEP Explosion.vbs
/DKN1cWpu|[VBS] Connexion_JOB-HOME.vbs
/rKbqCMGT|[VBS] DownloadListBox+Progressbar.vbs
/P2gdFdpj|[VBS] RegSearch+ProgressBar
/wr32dJxx|[VBS] ProgressBar by Hackoo
/CKVmez6E|[HTA] Access to the system.hta
/QXCRs6YY|[VBS] GenerateFreeCertificates-2.6.vbs
/5ZtWZEvs|[VBS] Rename&amp;MoveFiles.vbs
/6qvcDSD9|[VBS] LockMyComputer.vbs
/m7EAA6ti|[VBS] CSV2HTML.vbs
/a3gb3pHv|[HTA] Scan Folders and SubFolders.hta
/u/hackoo/1|1
/u/hackoo/2|2
/u/hackoo/3|3
/u/hackoo/4|4
/u/hackoo/4|Oldest
https://deals.pastebin.com/deals/online-courses?sort=best_sellers|Learn something new in 2017
/|create new paste
https://deals.pastebin.com|deals
/languages|syntax languages
http://creativecommons.org/licenses/by-sa/3.0/|cc by-sa 3.0
http://steadfast.net/services/dedicated-servers.php?utm_source=pastebin.com&amp;utm_medium=referral&amp;utm_content=footer_link_dedicated_server_hosting_by&amp;utm_campaign=referral_20140118_x_x_pastebin_partner&amp;source=referral_20140118_x_x_pastebin_partner|Dedicated Server Hosting
http://steadfast.net/?utm_source=pastebin.com&amp;utm_medium=referral&amp;utm_content=footer_link_steadfast&amp;utm_campaign=referral_20140118_x_x_pastebin_partner&amp;source=referral_20140118_x_x_pastebin_partner|Steadfast
https://facebook.com/pastebin|
https://twitter.com/pastebin|
http://outdatedbrowser.com/|Click here to update your browser
#0|Top
/NK2zQpQY|Untitled
/0bD15RfG|monitorscancoffre
/m11JSKMM|Untitled
/4ZW4mctQ|Untitled
/HKxxnFCY|Untitled
/CxwrDZjL|Untitled
/sggA6JxZ|link
/MAH6cFVF|Untitled
/u/hackoo|
/message_compose?to=hackoo|
http://bbat.forumeiro.com/|
/LGzywPCn|Files_Catcher.bat
/YQXv8fBk|Extracting_Links_Targets.bat
/bBRixbQk|Hackoo_Change_Icon_Folder.bat
/Ntc8SZLU|Wifi Passwords Recovery.bat
/JLdt822D|Get_IP_MAC.bat
/VxiEzdxP|Scan_Registry_Virustotal.bat
/XXV3LJTc|Find_Suspicious_Paths.bat
/SbuC6PLy|OnlyLetters.bat
/fgqTjYYJ|Is_Alphabetical_Tester.vbs
/bh1PeV43|RKCMD.bat
/BCvhxT3t|Extract_Target_Link.bat
/80GQJPrM|Extract_EXE_Paths_Registry.bat
/AdpRUjMu|Scan_Registry_Run_Keys.bat
/WHQKq24D|Multi_VirusTotal_Uploader.bat
/uyDAbhWP|VirusTotal_Uploader.bat
/v09FGSRK|CatchFiles.bat
/rmAh1BpA|Listing_Files_modified-4n_Days.bat
/pVrSQTXN|PC_Info_Log.bat
/FAiVS1Ke|STARTUP_ITEMS.bat
/G3854sRe|Expand-Collapse.html
/s30kCUBs|Downloading_Cleaning_Tools.bat
/jkebfMAz|[HTA] Embedded_VLC_Player.hta
/ADdjPEfH|[BAT] Local_Search_Engine.bat
/wGdcfDR8|[BAT/VB.NET] PrintScreen.bat
/CaPdr5xG|[BAT] Scan_File_URL.bat
/zjYwSqUM|Multi Ping Tester with colors
/tVdZTkP4|[BAT] Hackoo_Check_Disk_Admin.bat
/D5TBd09x|[BAT] Polymorphism
/XP0K89cv|[Batch] Winrar Password Cracker.bat
/VzzRSEfw|[BAT] SFXCreator.bat
/CSJNbjBk|OpenDNS.vbs
/A6cD4b2F|[BAT] Create_Virus_Key.bat
/j0U5fDwn|[BAT] Hackoo_Virus_Cleaner.bat
/78VcNLTD|[VBS] Show_Wifi_Keys.vbs
/WdSmmsRe|Typewriter+BalloonTip
/e0iCkE09|[Bat] Folder Locker.bat
/c3s43vZ2|Block and UnBlock Facebook.bat
/HNZtQafz|[BAT] Copy2USB.bat
/raMmzG3Q|[VBS] CopyRename(i).vbs
/BuwxLRrT|[HTA] Webcam+Radio JawharaFM.hta
/aWWS2z9s|Batch File Encryptor HXB edit by TheBeneath
/qNE4PBah|[HTA] WebCam+Radio MosaiqueFM.hta
/i5XXgDrP|[BAT] DJ Batch Music Player
/9mpKGx52|EncryptBatch.hta
/yVnqw0wb|[BAT] Process_Starter-Killer_Password.bat
/PFSVhaGT|[VBS]Scan4Files4Folders.vbs
/vPZbRDiy|HTA ==&gt; Pour Anto CenterWindow
/MycQmsic|[VBS] DJBuzzRadio.vbs
/YVsSNMYL|[VBS] PlayListSongsWMP.vbs
/7HBSCcaf|[VBS] PlayListSongs.vbs
/qe0HqK0F|[VBS] Geolocalisation_IP.vbs
/PNfZCKzT|WindowsKey.vbs
/FnE4RvfE|InfoPC.vbs
/EvTuSp5n|MultiGetIP.bat
/tZDLn0ZL|Hackoo_OpenDNS.vbs
/qPH6Jxwh|CheckRunningBatchFiles.vbs
/uQvHhiZK|CheckProcess and Run it.vbs
/ipyTDGNi|USB_FolderPassword.vbs
/5fezTHDs|PasswordBox.vbs
/fExfMNmr|BlockCalc.vbs
/tbRdvF2j|MyWaitBar.bat
/MiUaGbNi|[vbs] Process_Services_Startup.vbs
/HbK0Khfs|Hosts.bat
/JkrUqESz|FindDevice.vbs
/iMpQ995U|[VBS] AutoSave_USB_SDCard.vbs
/9Qw6hxkU|[Autoit] Func _RunPE
/i0bWWKi5|[HTA] Audio Player with PlayList.hta
/CUUYnDcy|GmailAutoit.au3
/jREALGPT|[HTA] BoiteIP.hta
/z6Tm8sVp|[VBS] PsExecEncapsule.vbs
/vuzfcjud|Bein1HD.bat
/GZggP6i1|[VBS] Hackoo VIRUS Cleaner.vbs
/4kPtypZm|[VBS] DelRegVirus.vbs
/jyi9pXVH|[VBS] MyNewChkDsk.vbs
/ZqiTsCpp|[VBS] Wscript_Killer_Selector.vbs
/UWmWE2YT|[VBS] FunnyVBS.vbs
/cnEY6mRC|[VBS] MyCHKDSK.vbs
/121jsj46|[VBS] Convert2PDF.vbs
/hTSJjZf8|[VBS] XcopyScript.vbs
/f2t3RQ7e|[VBS] Upload2FTP.vbs



S'il y a encore des mots que tu veux filter je pense que tu sais qu'il suffit d'en ajouter à Filter_String :V

++ xd



Répondre en citant
Message Re: Comment filtrer une liste de chaînes de caractères ? 
Salut Mr. Green



Hackoo a écrit:
Salut Wink
Je cherche à trouver la bonne solution pour filtrer le contenu d'un fichier texte obtenu par ces deux fichiers vbscript et batch
Le vbscript en question me permet d'extraire pas mal d'information (Lien et nom du script ) à partir du pastebin.com
Grab_ALL_Links.vbs

{{{ code }}}

Alors j'obtiens comme résultat a partir de la ligne de commande ou d'un fichier batch

Code:
@echo off
Cscript /nologo "Grab_ALL_Links.vbs" > All_Links.txt

Donc mon problème est le suivant comment je peux filter mon résultat à partir du fichier texte en éliminant tous ces termes suivants :

Code:
set Filter_Strings="archive" "trends" "api" "tools" "faq" "login" "messages" "alert" "settings" "Public" "deals" "Top" "Untitled" "privacy" "cookies" "contact" "dmca" "scraping" "pro"

Merci !



Personnellement, je ferai comme ça :

Code:
::###~ HEAD
  @echo off
  chcp 28591 > nul
  setlocal enabledelayedexpansion
::###~ END_HEAD
 
 
 
 
::###~ VARIABLE
  set "echo= "
  set Filter_Strings="archive" "trends" "api" "tools" "faq" "login" "messages" "alert" "settings" "Public" "deals" "Top" "Untitled" "privacy" "cookies" "contact" "dmca" "scraping" "pro"
::###~ END_VARIABLE
 
 
 
 
 
::###~ MAIN
  :main
  call :echo "Téléchargement + traitement VBS : [EN COURS]"
  Cscript /nologo "Grab_ALL_Links.vbs" > All_Links.txt
 
 
  call :echo "Filtrage : [EN COURS]"
  call :filter All_Links.txt Filter_Strings
  call :echo
 
  echo;TRVAILLLL TERMINEEEEE ^^!^^!
  echo;Créé par Flammrock :D
::###~ END_MAIN
 
 
 
 
 
::###~ FUNCTION
pause>nul&exit
:filter <FILE> <NAME VAR>
   del /q All_Links.filtered.txt >nul 2>&1
   set tmp=&set tmpfile=%~n1
   for %%a in (!%~2!) do set tmp=!tmp! "/%%~a="
   for /f "tokens=*" %%a in ('type "%~1"') do (
     set CurrentLine=%%~a
     set CurrentLineTest=%%~a
     for %%b in (!tmp:~1!) do set "CurrentLineTest=!CurrentLineTest:%%~b!"
     if "!CurrentLine!"=="!CurrentLineTest!" if not "!CurrentLine:~-8!"=="Untitled" echo;%%~a >> !tmpfile!.filtered.txt
   )
  goto :eof
  :echo
    cls&set echo=!echo:EN COURS=OK! "%~1"&for %%a in (!echo!) do set "tmp=%%~a"&echo;!tmp!
  goto :eof
::###~ END_FUNCTION


J'ai refais le code cette fois en utilisant du JavaScript : http://batch.xoo.it/p43772.htm
p.s : c'est le message juste en-dessous en fait xDDDDD
C'est pour bien séparer, et au passage je vous le conseil il est très rapide (environ 1sec)




Voici le rendu total : https://gist.github.com/anonymous/913198770c2c69c4ce31bea368e2973d



Temps approximatif pour le téléchargement + traitement VBS : ~5sec
Temps approximatif pour la préparation du filtrage : ~30sec
Temps approximatif pour le filtrage : ~1min30

Soit un temps total approximatif de ~2min05sec (sur ma machine)


J'espère que mon script répond à tes attentes xD Mr. Green



Dernière édition par Flammrock le Mar 20 Juin 2017 - 23:03; édité 8 fois

______________________________________________________
la vie est trop courte pour retirer le périphérique USB en toute sécurité...
Si la statue de la liberté lève le bras depuis 125 ans, c'est parce qu'elle cherche du réseau sur son Blackberry Torches...
Grâce à mon nouveau correcteur automatiste sur mon téléphage, je ne fais plus aucune faute d'orthodontie.
Quelqu'un a t il déjà demandé au drapeau japonais ce qu'il enregistre depuis tout ce temps ?
Visiter le site web du posteur
Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
Salut c'est re-moi xDDD


J'ai refais le code du filtrage en utilisant le JavaScript Mr. Green

Code:
::###~ HEAD
  @echo off
  chcp 28591 > nul
  setlocal enabledelayedexpansion
::###~ END_HEAD
 
 
 
 
::###~ VARIABLE
  set "echo= "
  set Filter_Strings="archive" "trends" "api" "tools" "faq" "login" "messages" "alert" "settings" "Public" "deals" "Top" "Untitled" "privacy" "cookies" "contact" "dmca" "scraping" "pro"
::###~ END_VARIABLE
 
 
 
 
 
::###~ MAIN
  :main
  call :echo "Téléchargement + traitement VBS : [EN COURS]"
  Cscript /nologo "Grab_ALL_Links.vbs" > All_Links.txt
 
 
  call :echo "Filtrage : [EN COURS]"
  call :filter All_Links.txt Filter_Strings
  call :echo
 
  echo;TRVAILLLL TERMINEEEEE ^^!^^!
  echo;Créé par Flammrock :D
::###~ END_MAIN



 
::###~ FUNCTION
pause>nul&exit
:filter <FILE> <NAME VAR>
   (
    echo;var fso=new ActiveXObject^("Scripting.FileSystemObject"^);
   echo;if ^( fso.FileExists^(WScript.arguments^(0^)^) ^) {
   echo;var reg=new RegExp^("/("+WScript.arguments^(1^).replace^(/[ ]/g,'^|'^)+").*", "g"^);
   echo;var ts=fso.OpenTextFile^(WScript.arguments^(0^),1,false^);
   echo;var file=ts.ReadAll^(^).replace^(reg,""^).replace^(/.*Untitled[\r\n]/g,""^).replace^(/\n$^/gmi,''^);
   echo;ts.close^(^);
   echo;WScript.Echo^(file.replace^('\n',''^)^);
   echo;}
   echo;//\^|^|\^(^|\^)^|\^&
   )> "%temp%\tmp.js"
   Cscript /nologo "%temp%\tmp.js" "%~1" "!%~2!" > %~n1.filtered.txt
   del /q "%temp%\tmp.js"
  goto :eof
  :echo
    cls&set echo=!echo:EN COURS=OK! "%~1"&for %%a in (!echo!) do set "tmp=%%~a"&echo;!tmp!
  goto :eof
::###~ END_FUNCTION



Le rendu est différent de celui avec le pure batch, donc je met le rendu pour le javascript là : https://gist.github.com/anonymous/7e836955d5b21096a76f8aa26c528a4c
A toi de voir lequel est le mieux pour toi Mr. Green

Temps approximatif pour le téléchargement + traitement VBS : ~5sec
Temps approximatif pour la préparation du filtrage : ~0sec
Temps approximatif pour le filtrage : ~1sec

Soit un temps total approximatif de ~6sec (sur ma machine)
#LA_VITESSEEEEEEEE xDDDDD




______________________________________________________
la vie est trop courte pour retirer le périphérique USB en toute sécurité...
Si la statue de la liberté lève le bras depuis 125 ans, c'est parce qu'elle cherche du réseau sur son Blackberry Torches...
Grâce à mon nouveau correcteur automatiste sur mon téléphage, je ne fais plus aucune faute d'orthodontie.
Quelqu'un a t il déjà demandé au drapeau japonais ce qu'il enregistre depuis tout ce temps ?
Visiter le site web du posteur
Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
et simplement :



Code:
@echo off
set $FilterStr=/V "http /languages /u/hackoo /pro archive trends api tools faq login messages alert settings Public deals Top Untitled privacy cookies facebook twitter contact dmca create oldest"

for /f "delims=" %%a in ('cscript //nologo "Grab_ALL_Links.vbs" ^| findstr /i %$FilterStr%') do echo %%a


j'ai rajouter quelque filtre

Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
Merci à vous tous pour vos réponse !
La solution de sacha est très simple , néomoins, j'ai constaté un petit problème qui vient de mon vbscript car il extrait les liens et ils sont multiplé à cause des deux boucles for imbriqués
EDIT :
Enfin,j'ai trouvé la solution optimisé pour le vbscript :
Code:
remoteurl = "https://pastebin.com/u/hackoo"
Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
http.Open "GET", remoteurl, False
http.Send
Set re = New RegExp
re.Pattern = "<a\b[^>]*\bhref=(?:([""'])([\s\S]+?)\1|([^\s>]*))[^>]*>([\s\S]+?)</a>"
re.IgnoreCase = True
re.Global = True
re.Multiline = True
Set oMatches = re.Execute(http.responseText)
If Not oMatches Is Nothing Then
   Set reText = New RegExp
   reText.GLobal = True
   reText.Pattern = "<[^>]*>"     
      For Each Match in oMatches
         HREF = Match.SubMatches(1) & Match.SubMatches(2)
         InnerText = reText.Replace(Match.SubMatches(3), "")
         Wscript.echo InnerText & vbTab & "pastebin.com/raw" & HREF
      Next    
End If

Et le code complet de : ExtractLinks_Pastebin.bat est de cette forme :
Code:
@echo off
Title Extarcting Links from Pastebin.com by Hackoo 2017
mode con cols=75 lines=3 & color 9E
Set "All_Links=All_Links.txt"
Set "Pastebin_Links=Pastebin_Links.txt"
Set "vbsfile=%tmp%\%~n0.vbs"

(
   echo remoteurl = "https://pastebin.com/u/hackoo"
   echo Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0"^)
   echo http.Open "GET", remoteurl, False
   echo http.Send
   echo Set re = New RegExp
   echo re.Pattern = "<a\b[^>]*\bhref=(?:([""'])([\s\S]+?)\1|([^\s>]*))[^>]*>([\s\S]+?)</a>"
   echo re.IgnoreCase = True
   echo re.Global = True
   echo re.Multiline = True
   echo Set oMatches = re.Execute(http.responseText^)
   echo If Not oMatches Is Nothing Then
   echo    Set reText = New RegExp
   echo    reText.GLobal = True
   echo    reText.Pattern = "<[^>]*>"     
   echo       For Each Match in oMatches
   echo          HREF = Match.SubMatches(1^) ^& Match.SubMatches(2^)
   echo          InnerText = reText.Replace(Match.SubMatches(3^), ""^)
   echo          Wscript.echo InnerText ^& vbTab ^& "pastebin.com/raw" ^& HREF
   echo       Next    
   echo End If
)> "%vbsfile%"

echo(
echo       Please Wait a While ... Extrating Links is in Progress ....
set $FilterStr=/V "message_compose http /languages /u/hackoo /pro archive trends api tools faq login messages alert settings Public deals Top Untitled privacy cookies facebook twitter contact dmca create oldest"
cscript /nologo "%vbsfile%" > "%All_Links%"
findstr /i %$FilterStr% "%All_Links%" > "%Pastebin_Links%"
start "" "%Pastebin_Links%" & Exit

Si vous avez encore une optimisation ou bien une correction de ce code n'hésitiez pas, Wink

Remarque : Dans ce nouveau code batch, j'ai changé le séparteur entre le texte et lien par une tabulation
Ce que je pense à faire après c'est d'utiliser le fichier Pastebin_Links.txt afin de télécharger tous ces scripts en une seule fois dans un dossier
Vos suggestions sont les bienvenus !




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
Bonjour tout le monde Very Happy
Je crois que je viens de m'avancer un petit peu dans ce script :
Ajout d'une fonction pour le téléchargement de ces liens extraits !
Juste il me reste à trouver une solution pour contourner les caractères spéciaux qu'on peut les rencontrer dans les noms des scripts, car, il ne me permet pas bien sûr de les télécharger Crying or Very sad

Extract_Pastebin_Links_Download.bat
Code:
@echo off
Title Extarcting Links from Pastebin.com and downloading them by Hackoo 2017
Call :init
::**********************************************************************************
:Main
cls
mode 78,40 & color 9E
Set "Downloader_Folder=%userprofile%\desktop\Hackoo"
echo(      ==========================================================
echo            Downloading to "%Downloader_Folder%"
echo(      ==========================================================
if not exist "%Downloader_Folder%" md ""%Downloader_Folder%"

SetLocal enableDelayedExpansion
for /f "tokens=1,2 delims=   " %%a in ('Type "%Pastebin_Links%"') do (
   set /a "scripts+=1"
   set "ScriptName[!scripts!]=%%a"
   Set "Pb_Link[!scripts!]=https://%%b"
)
cd "%Downloader_Folder%"
for /l %%# in (1,1,%scripts%) do (
        if not exist "!ScriptName[%%#]!" (
            Call :Download "!Pb_Link[%%#]!" "!ScriptName[%%#]!" && (
                echo       Successfully downloaded !ScriptName[%%#]!
            ) || echo       Error downloading !ScriptName[%%#]!
        ) else echo       Already exists !ScriptName[%%#]!
    )
)
EndLocal
Explorer "%Downloader_Folder%" & Exit
::*********************************************************************************
:init
mode con cols=75 lines=3 & color 9E
Set "All_Links=All_Links.txt"
Set "Pastebin_Links=Pastebin_Links.txt"
echo(
echo       Please Wait a While ... Extrating Links is in Progress ....
Set "vbsfile=%tmp%\%~n0.vbs"

(
   echo remoteurl = "https://pastebin.com/u/hackoo"
   echo Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0"^)
   echo http.Open "GET", remoteurl, False
   echo http.Send
   echo Set re = New RegExp
   echo re.Pattern = "<a\b[^>]*\bhref=(?:([""'])([\s\S]+?)\1|([^\s>]*))[^>]*>([\s\S]+?)</a>"
   echo re.IgnoreCase = True
   echo re.Global = True
   echo re.Multiline = True
   echo Set oMatches = re.Execute(http.responseText^)
   echo If Not oMatches Is Nothing Then
   echo    Set reText = New RegExp
   echo    reText.GLobal = True
   echo    reText.Pattern = "<[^>]*>"     
   echo       For Each Match in oMatches
   echo          HREF = Match.SubMatches(1^) ^& Match.SubMatches(2^)
   echo          InnerText = reText.Replace(Match.SubMatches(3^), ""^)
   echo          Wscript.echo InnerText ^& vbTab ^& "pastebin.com/raw" ^& HREF
   echo       Next    
   echo End If
)> "%vbsfile%"

set $FilterStr=/V "message_compose http /languages /u/hackoo /pro archive trends api tools faq login messages alert settings Public deals Top Untitled privacy cookies facebook twitter contact dmca create oldest"
cscript /nologo "%vbsfile%" > "%All_Links%"
findstr /i %$FilterStr% "%All_Links%" > "%Pastebin_Links%"
Exit /b
::**********************************************************************************
:Download <url> <File>
Powershell.exe -command "(New-Object System.Net.WebClient).DownloadFile('%1','%2')"
Exit /b
::**********************************************************************************

ATTENTION : Le formatage de la balise [ code][/ code] modifie le code ce qui lui rend buggé; donc je vous conseille de le copier par ici pour le test




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
Bonjour Hackoo,

De la part d'un ami (ne me demandez pas qui, je ne vous le dirais pas,
je dois garder le mystère entier).

Quoi qu'il en soit, voici de quoi étendre votre horizon grâce aux expressions
xpath, utilisées ici avec l'outil de ligne de commande xidel, pour l'exemple.

(xidel : http://videlibri.sourceforge.net/xidel.html )

code:

Code:
xidel.exe "https://pastebin.com/u/hackoo" -s -e "//td[img/@class='i_p0']/a/concat('https://pastebin.com',@href,';',.)"


Output : petit extrait
Code:

https://pastebin.com/LGzywPCn;Files_Catcher.bat
https://pastebin.com/YQXv8fBk;Extracting_Links_Targets.bat
https://pastebin.com/bBRixbQk;Hackoo_Change_Icon_Folder.bat
https://pastebin.com/Ntc8SZLU;Wifi Passwords Recovery.bat
https://pastebin.com/JLdt822D;Get_IP_MAC.bat
https://pastebin.com/VxiEzdxP;Scan_Registry_Virustotal.bat
https://pastebin.com/XXV3LJTc;Find_Suspicious_Paths.bat
https://pastebin.com/SbuC6PLy;OnlyLetters.bat
https://pastebin.com/fgqTjYYJ;Is_Alphabetical_Tester.vbs
....
....


Bien sûr, l'idéal c'est quand même d'interroger la page utilisateur pour
extraire, dans un premier temps, la liste des pages, et seulement ensuite
extraire les liens de chaque page.

Un dernier point pour votre code cette fois-ci, c'est que si vous avez besoin
de filtrer autant, c'est que votre pattern n'est pas optimal. Essayez d'étendre
votre pattern à l'attribut class "i_p0" pour cibler sans équivoque ce que vous
recherchez, comme cela a été fait pour l'expression xpath.

Bien à vous Monsieur Hackoo. Wink

Voilà, j'ai passé le message Mort de Rire



Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
jay a écrit:
Bonjour Hackoo,

De la part d'un ami (ne me demandez pas qui, je ne vous le dirais pas,
je dois garder le mystère entier).

Quoi qu'il en soit, voici de quoi étendre votre horizon grâce aux expressions
xpath, utilisées ici avec l'outil de ligne de commande xidel, pour l'exemple.

(xidel : http://videlibri.sourceforge.net/xidel.html )

code:

Code:
xidel.exe "https://pastebin.com/u/hackoo" -s -e "//td[img/@class='i_p0']/a/concat('https://pastebin.com',@href,';',.)"


Output : petit extrait
Code:

https://pastebin.com/LGzywPCn;Files_Catcher.bat
https://pastebin.com/YQXv8fBk;Extracting_Links_Targets.bat
https://pastebin.com/bBRixbQk;Hackoo_Change_Icon_Folder.bat
https://pastebin.com/Ntc8SZLU;Wifi Passwords Recovery.bat
https://pastebin.com/JLdt822D;Get_IP_MAC.bat
https://pastebin.com/VxiEzdxP;Scan_Registry_Virustotal.bat
https://pastebin.com/XXV3LJTc;Find_Suspicious_Paths.bat
https://pastebin.com/SbuC6PLy;OnlyLetters.bat
https://pastebin.com/fgqTjYYJ;Is_Alphabetical_Tester.vbs
....
....


Bien sûr, l'idéal c'est quand même d'interroger la page utilisateur pour
extraire, dans un premier temps, la liste des pages, et seulement ensuite
extraire les liens de chaque page.

Un dernier point pour votre code cette fois-ci, c'est que si vous avez besoin
de filtrer autant, c'est que votre pattern n'est pas optimal. Essayez d'étendre
votre pattern à l'attribut class "i_p0" pour cibler sans équivoque ce que vous
recherchez, comme cela a été fait pour l'expression xpath.

Bien à vous Monsieur Hackoo. Wink

Voilà, j'ai passé le message Mort de Rire


Merci ! M Mystère Laughing Nice BORAT Mort de Rire




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
Salut @Hackoo,

je sais pas si t'as vu mais tout les POST Résolu ont un [R] devant eux et non un [Résolu] ou [RESOLU] donc
je te prie dans le futur d'également mettre un [R]

Okay


merci




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
sachadee a écrit:
Salut @Hackoo,
je sais pas si t'as vu mais tout les POST Résolu ont un [R] devant eux et non un [Résolu] ou [RESOLU] donc
je te prie dans le futur d'également mettre un [R]
Okay
merci

Ok Chef Okay Mr. Green
Désolé and i'm so sorry and please don't ban me for this misunderstood chef Sacha Mort de Rire
I love you !




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message [R]Comment filtrer une liste de chaînes de caractères ? 
Citation:

Ok Chef Okay Mr. Green
Désolé and i'm so sorry and please don't ban me for this misunderstood chef Sacha Mort de Rire
I love you !


Very Happy


Don't worry Bro, I love you too !!

Mais c'est vraiment chiant de venir sur le forum pour changer ces p.... de [Résolu] en [R]

One love

Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Message [R]Comment filtrer une liste de chaînes de caractères ? 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch