Convertisort

De Prima-jdr Wiki
Révision datée du 24 février 2012 à 05:45 par Liios (discussion | contributions) (+Catégorie)
Aller à : navigation, rechercher

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".

Il faut juste modifier le code pour changer l'élément.

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