AntiGuide: CaptureAntiguideMinMajOk

' chgt.vbs
' file:///C:/Users/adminpo/Desktop/antiguide/20131101-0728_antiguide.free.fr/portable/antiguide.free.fr/wiki/wakka.php@wiki=ArnaqueAla3Ds.html
' file:///C:/Users/adminpo/Desktop/antiguide/20131101-0728_antiguide.free.fr/portable/antiguide.free.fr/wiki/file=wakka.php@wiki=ArnaqueAla3Ds.html
' http://antiguide.free.fr/wiki/wakka.php@wiki=
' http://antiguide.free.fr/wiki/wakka.php?wiki=
dim tout(10000) ' nb max de lignesd'une page
dim pages(6000) ' npmbre e pages
nbpages=0
dim proto(2)
proto(0)="flavigny.free.fr"
proto(1)="href=""http://antiguide.free.fr/wiki/wakka.php?wiki="
proto(1)="href=""http://antiguide2go.logsm.net/site/wiki/wakka.php@wiki="
' relatif="href=""file:wakka.php@wiki="
relatif="href=""http://antiguide2go.logsm.net/site/wiki/wakka.php@wiki="

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")


set oArgs=WScript.Arguments ' tableau d'arguments
if oArgs.Count<>1 then 
   msgbox "Appel: " & np & "dossier "
   wscript.quit
end if
ndo=0
' explorer les noms présents
dossier=oArgs(0)
if not fso.folderexists (dossier) then
   msgbox "pas dossier"
   wscript.quit
end if

set liste=fso.getfolder(dossier)

' explorer le dossier
 ajouter liste
 msgbox "nb de pages trouvées: " & nbpages
' go

' explorer le dossier
 changer liste

msgbox "OUF " & ndo

sub changer (unfold)
 ''' msgbox "changer " & unfold & vbcrlf & unfold.name
' examiner les éléments

' sous dossiers
Set subFlds = unfold.SubFolders

   For Each fld in subFlds
      '''  msgbox "subfolder " & fld
        changer fld
     Next ' fld
' fichierd
Set colFiles = unfold.Files

For Each objFile in colFiles
  ''' msgbox "file " & objfile & vbcrlf & objfile.name & vbcrlf & "doun" & vbcrlf & unfold.Name & "\" & objFile.Name
  doun "C:\Users\adminpo\Desktop\verif_lien_logsm\antiguide2go\antiguide2go\site\" & unfold.Name & "\" & objFile.Name
next ' objfile
end sub

sub ajouter (unfold)

' examiner les éléments

' sous dossiers
Set subFlds = unfold.SubFolders

   For Each fld in subFlds
        ajouter fld
     Next ' fld
' fichierd
Set colFiles = unfold.Files

For Each objFile in colFiles
' msgbox "faire " &  dossier & "\" & objFile.Name
' wscript.quit
   candidat= objfile.Name
   if instr(candidat,".html")>0 then 
      eq=instr(candidat,"=")
      candidat=mid(candidat,eq+1)
      pages(nbpages)=mid(candidat,1,len(candidat)-5)
      ' msgbox pages(nbpages)
      nbpages=nbpages+1
   end if
next ' objfile
end sub

sub doun(chantier)

''' msgbox  "doun setermine par " & vbcrlf & mid(chantier,len(chantier)-4) & vbcrlf &  mid(chantier,len(chantier)-3)
if (mid(chantier,len(chantier)-4)=".html") or (mid(chantier,len(chantier)-3)=".htm") then
ndo=ndo+1
' msgbox chantier
nli=0
yauchgt=false
if not fso.fileexists(chantier)then
msgbox "manque " & chantier
else
'msgbox "traiter " & chantier
set fi=fso.opentextfile(chantier)
while not fi.atendofstream
  nli=nli+1
  une=fi.readline
  unesave=une
prev=1
  ' msgbox une
  for ip=1 to 1
    'msgbox "on cherche " & proto(ip) & vbcrlf & "dans " & vbcrlf & une
    while instr(prev,une,proto(ip)) 
    ' msgbox "trouvé  a modifier:" & vbcrlf & une
      x=instr(prev,une,proto(ip))
   '   msgbox "trouvé a partir de " & prev & " à " & x 
      if x>0 then 
        yauchgt=true
        ' localiser la fin de chaine
         
        finbrut=mid(une,x+len(proto(ip)))
        ' msgbox "il reste apres: " & vbcrlf & finbrut
        pi=instr(finbrut,"""")
        rad=mid(finbrut,1,pi-1-5)
' msgbox "rad=" & rad
 for ou=0 to nbpages-1
   if ucase(rad) = ucase(pages(ou)) then rad=pages(ou)
 next 'ou
        nf=rad & ".html" & mid(finbrut,pi)
    '    msgbox "dans " & une & vbcrlf & pi & vbcrlf & nf 
        ' chgt=mid(une,1,x-1) & relatif & mid(une,x+len(proto(ip)))
        chgt=mid(une,1,x-1) & relatif & nf
        une=chgt
        prev=x+1
      '   msgbox "soit nouvelle ligne " & nli & unesave & vbcrlf & une 
      end if
     ''   msgbox unesave & vbcrlf & une
    wend
   next 'ip
   tout(nli)=une

wend ' not eof
fi.close
' msgbox "nli=" & nli & " " & yauchgt
if yauchgt then 
   fso.deletefile (chantier)
   set fo=fso.createtextfile(chantier)
   for li=1 to nli
     fo.writeline tout(li)
   next
   fo.close
   ' msgbox "modifie: " & chantier
end if
end if
end if 
end sub