Module:Utilisateur:Ot2007/testparsecsv

 Documentation[créer] [purger]

La documentation de ce module est générée par le modèle {{Documentation module}}.
Les éditeurs peuvent travailler dans le bac à sable (créer).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.

 -- test Lua

local p = {}
local Nombre2texte = require( 'Module:Nombre2texte' )
local TableBuilder = require( 'Module:TableBuilder' )

local data = mw.loadData( 'Module:Utilisateur:Ot2007/testparsecsv/data' )
local data2=mw.loadData( 'Module:Utilisateur:Ot2007/testparsecsv/data2' )
--local data3=mw.loadData( 'Module:Utilisateur:Ot2007/testparsecsv/data2' )
local pagedonnees="{{Modèle:Données/Ceyreste/informations_générales}}"
local p2c=mw.loadData( 'Module:Utilisateur:Ot2007/testparsecsv/pages2code' )

local tutu=[[
{{Pyramide des âges|float=right|width=50%
|bg=rgb(90%, 90%, 100%)|border=1px solid blue|margin-top=1ex|barcolor=rgb(80%,0%,0%)
|caption=Exemple de pyramide des âges.
|1900–1909| 3|7
|1909–1919| 5|12
|1919–1929|12|19
|1929–1939|27|29
|1939–1949|23|29
|1949–1959|51|50
|1959–1969|61|61
|1969–1979|71|70
|1979–1989|61|60
|1989–1999|50|48
|1999–2009|43|40
}}
]]

phrase="Le [[Revenu fiscal par ménage en France|revenu fiscal médian par ménage]] était en 2006 de "
phrase2=", ce qui place "
phrase3="au "
phrase4="rang parmi les "
phrase5="communes de plus de 50 ménages en métropole<ref > {{Lien web |url=http://www.statistiques-locales.insee.fr/esl/baseTelechProduit.asp?strProd=1632&IdSousTheme=&IdSource=2&NomThemeOuSource=Insee+-+Recensement+de+la+population+1999 |titre= CC-Résumé statistique/com,dep,zone empl |site= site de l'INSEE |consulté le= 9 septembre 2009 }} </ref>."


local function maxNb(c1,c2)
	if c1 > c2 then
		return c1
	else
		return c2
	end
end

local function revenuFiscalMedian(codeCommune)
	local data = mw.loadData( 'Module:Utilisateur:Ot2007/testparsecsv/data' )
	local data2=mw.loadData( 'Module:Utilisateur:Ot2007/testparsecsv/data2' )
	local p2c=mw.loadData( 'Module:Utilisateur:Ot2007/testparsecsv/pages2code' )
	return data2.revenumedian[codeCommune]
end



local function classementRevenuFiscalMedian(codeCommune)
	local data2=mw.loadData( 'Module:Utilisateur:Ot2007/testparsecsv/data2' )
	local classement=1
	local nbcommunesplus50hab=0
	local revenuFiscalMedian=revenuFiscalMedian(codeCommune)
	    for key,v  in pairs(data2.revenumedian) do
	    	if v  ~= nil then
    			if maxNb(v,revenuFiscalMedian) ~= revenuFiscalMedian then
        			classement=classement + 1
        		end
        		nbcommunesplus50hab=nbcommunesplus50hab+1
        	end
   	 end	
 	return revenuFiscalMedian,classement,nbcommunesplus50hab end



    function p.helloworld(frame)
    	--local tata= frame:preprocess(pagedonnees)
    	local wiki = TableBuilder.new()
         max=0
         i=0
         commune=""
         for key,v  in pairs(data2.revenumedian) do
         	i=i+1
         	t=v
         	if t> max then
         		max=t
         		commune=key
         	end
   		 end

         
         nompagecommune="Sainte-Croix_(Ain)"
         codecommune=p2c.page2code[nompagecommune]
         wiki.minsert("la commune est à la page : ")
         wiki.minsert(nompagecommune)
         wiki.minsert("son code est :")
         wiki.minsert(codecommune)
        revenuFiscalMedian,classement,nbcommunes = classementRevenuFiscalMedian (codecommune)
         wiki.minsert("revenu ")
         wiki.minsert(revenuFiscalMedian)
         wiki.minsert("    ")
         wiki.minsert(Nombre2texte.ordinal(classement,True))
         wiki.minsert("    ")
         wiki.minsert(nbcommunes)
         
         wiki.minsert("Le [[Revenu fiscal par ménage en France|revenu fiscal médian par ménage]] était en ")
         wiki.minsert("___mettre année___ ")
         wiki.minsert( "de {{unité|")
         wiki.minsert(revenuFiscalMedian)
         wiki.minsert("€}}")
         wiki.minsert(" , ce qui place ")
         wiki.minsert("___NomCommune___")
         wiki.minsert("au ")
         wiki.minsert(Nombre2texte.ordinal(classement,True))
         wiki.minsert("rang parmi les ")	
         wiki.minsert(nbcommunes)
         wiki.minsert("communes de plus de 50 ménages en métropole")
 --       wiki.minsert("<ref > {{Lien web |url=")
   --      wiki.minsert("___getsource")http://www.statistiques-locales.insee.fr/esl/baseTelechProduit.asp?strProd=1632&IdSousTheme=&IdSource=2&NomThemeOuSource=Insee+-+Recensement+de+la+population+1999 |titre= CC-Résumé statistique/com,dep,zone empl |site= site de l'INSEE |consulté le= 9 septembre 2009 }} </ref>."
     --    wiki.minsert(
    
         return frame:preprocess(wiki.concat())
        
    end

return p