Convertisort - Historique des versions

Taiko le 25 février 2012 à 16:50

2012-02-25T16:50:12Z

Liios : Fonctionnement par presse-papier (pas facile à faire)

2012-02-24T18:29:20Z

Fonctionnement par presse-papier (pas facile à faire)

Liios : +Catégorie

2012-02-24T04:45:19Z

+Catégorie

Liios le 24 février 2012 à 04:43

2012-02-24T04:43:57Z

Liios : Page créée avec « Convertisort converti le texte copié du .pdf du Livre du Joueur et collé dans un fichier "input.txt", en texte formaté pour être directement ajouté dans le Wiki. Ce t... »

2012-02-24T04:37:41Z

Page créée avec « Convertisort converti le texte copié du .pdf du Livre du Joueur et collé dans un fichier "input.txt", en texte formaté pour être directement ajouté dans le Wiki. Ce t... »

Nouvelle page

Convertisort converti le texte copié du .pdf du Livre du Joueur et collé dans un fichier "input.txt", en texte formaté pour être directement ajouté dans le Wiki. Ce texte est stocké dans le fichier "output.txt".

==Script==

Const ELEMENT = "Air"

Set fso = CreateObject("Scripting.FileSystemObject")
Set input = fso.OpenTextFile("input.txt", 1)
Set output = fso.CreateTextFile("output.txt", True)
X = input.readAll
input.close

Dim KeyWord(7)
KeyWord(0) = "Temps d'incantation-"
KeyWord(1) = "Portée-"
KeyWord(2) = "Durée-"
KeyWord(3) = "Zone-"
KeyWord(4) = "Effet-"
KeyWord(5) = "Spécial-"
KeyWord(6) = "Utilisation alternative-"

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
Z = "-"
debut = KeyWord(i)
fin = KeyWord(j)

if i >= 4 then
Z = vbcrlf
if j >= 6 then
fin = vbEndOfFile
end if
end if

Y = getStr(debut, fin, X)
Y = Replace(Y, " ", " ")
Y = Replace(Y, " ", " ")
Y = Replace(Y, " ", " ")

if Y <> "" then
output.write "*" & mid(KeyWord(i), 1, len(KeyWord(i)) - 1) & Z & Y
exit for
end if
Next
Next

output.write vbcrlf & "[[Catégorie:Sorts " & ELEMENT & "]]" & vbcrlf & "[[Catégorie:Livre du Joueur]]"
output.close

Function getStr(strStart, strEnd, text)
posStart = inStr(text, strStart)
lenStart = len(strStart)
posEnd = inStr(text, strEnd)
lenGet = posEnd - posStart - lenStart
if posStart = 0 then
ret = ""
elseIf posEnd = 0 then
ret = ""
elseIf lenGet < 0 then
ret = mid(text, posStart + lenStart)
else
ret = mid(text, posStart + lenStart, lenGet)
end if
getStr = ret
End Function

← Version précédente		Version du 25 février 2012 à 16:50
Ligne 1 :		Ligne 1 :
−	Convertisort converti le texte copié du .pdf du Livre du Joueur dans le presse-papier pour qu'il puisse être intégrer dans le Wiki.	+	Convertisort est un script script vbs qui converti le texte copié du .pdf du Livre du Joueur dans le presse-papier pour qu'il puisse être intégrer dans le Wiki.

	il suffit de copier le sort depuis le .pdf, de lancer le script et de coller directement sur le Wiki.		il suffit de copier le sort depuis le .pdf, de lancer le script et de coller directement sur le Wiki.

← Version précédente		Version du 24 février 2012 à 04:45
Ligne 69 :		Ligne 69 :
	End Function		End Function
	</pre>		</pre>
		+
		+	[[Catégorie:Autre non-officiels]]

@@ Ligne 1 : / Ligne 1 : @@
-Convertisort converti le texte copié du .pdf du Livre du Joueur et collé dans un fichier "input.txt", en texte formaté pour être directement ajouté dans le Wiki. Ce texte est stocké dans le fichier "output.txt".
+Convertisort converti le texte copié du .pdf du Livre du Joueur dans le presse-papier pour qu'il puisse être intégrer dans le Wiki.
 Il faut juste modifier le code pour changer l'élément.
@@ Ligne 5 : / Ligne 7 : @@
 ==Script==
 <pre>
 Const ELEMENT = "Air"
-Set fso = CreateObject("Scripting.FileSystemObject")
+'Lecture depuis le presse-papier :
-Set input = fso.OpenTextFile("input.txt", 1)
+Set Clipboard = CreateObject("htmlfile")
 Set output = fso.CreateTextFile("output.txt", True)
-X = input.readAll
+output_path = mid(WScript.ScriptFullName, 1, len(WScript.ScriptFullName) - len(WScript.ScriptName)) & "output.txt"
-input.close
+Set fso = nothing
 Dim KeyWord(7)
 KeyWord(0) = "Temps d'incantation-"
@@ Ligne 22 : / Ligne 31 : @@
 KeyWord(6) = "Utilisation alternative-"
 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
-		Z = "-"
+		A = "-"
 		debut = KeyWord(i)
 		fin = KeyWord(j)
 		if i >= 4 then
-			Z = vbcrlf
+			A = vbCrLf
 			if j >= 6 then
-				fin = vbEndOfFile
+				fin = vbNullString
 			end if
 		end if
 	Y = getStr(debut, fin, X)
 	Y = Replace(Y, "    ", " ")
@@ Ligne 43 : / Ligne 51 : @@
 	if Y <> "" then
-		output.write "*" & mid(KeyWord(i), 1, len(KeyWord(i)) - 1) & Z & Y
+		output.write "*" & mid(KeyWord(i), 1, len(KeyWord(i)) - 1) & A & Y
 		exit for
 	end if
 	Next
 Next
 output.write vbcrlf & "[[Catégorie:Sorts " & ELEMENT & "]]" & vbcrlf & "[[Catégorie:Livre du Joueur]]"
 output.close
 Function getStr(strStart, strEnd, text)
 	posStart = inStr(text, strStart)