341
modifications
Modifications
Fonctionnement par presse-papier (pas facile à faire)
Convertisort converti le texte copié du .pdf du Livre du Joueur et collé dans un fichier "input.txt", en texte formaté le presse-papier pour qu'il puisse être directement ajouté intégrer dans le Wiki. Ce texte est stocké dans il suffit de copier le sort depuis le fichier "output.txt"pdf, de lancer le script et de coller directement sur le Wiki.
Il faut juste modifier le code pour changer l'élément.
==Script==
<pre>
'Element du sort :
Const ELEMENT = "Air"
'Lecture depuis le presse-papier :Set fso Clipboard = CreateObject("Scriptinghtmlfile")X = Clipboard.FileSystemObjectParentWindow.ClipboardData.GetData("text")Set input Clipboard = nothing 'Création d'un fichier texte de sortie :Set fso.OpenTextFile= CreateObject("inputscripting.txtFileSystemObject", 1)
Set output = fso.CreateTextFile("output.txt", True)
'Déclaration des mots clés qui vont servir de balises :
Dim KeyWord(7)
KeyWord(0) = "Temps d'incantation-"
KeyWord(6) = "Utilisation alternative-"
'Création de la chaine de sortie :
output.write "{{DISPLAYTITLE:<span>" & ELEMENT & " : {{PAGENAME}} -Coût " & getStr("-Coût ", " cL", X) & " cL</span>}}" & vbcrlf
For i = 0 to 6
For j = i+1 to 6
debut = KeyWord(i)
fin = KeyWord(j)
if i >= 4 then
if j >= 6 then
fin = vbEndOfFilevbNullString
end if
end if
Y = getStr(debut, fin, X)
Y = Replace(Y, " ", " ")
if Y <> "" then
output.write "*" & mid(KeyWord(i), 1, len(KeyWord(i)) - 1) & Z A & Y
exit for
end if
Next
Next
output.write vbcrlf & "[[Catégorie:Sorts " & ELEMENT & "]]" & vbcrlf & "[[Catégorie:Livre du Joueur]]"
output.close
'Ecriture dans le presse-papier :
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c clip < " & output_path, 0, TRUE
Set WshShell = nothing
'Fonction permettant de récupérer le texte entre deux balises :
Function getStr(strStart, strEnd, text)
posStart = inStr(text, strStart)