<cfflush interval="1">
<cfscript>
/**
 * Case-sensitive function for removing duplicate entries in a list.
 * Based on dedupe by Raymond Camden
 *
 * @param list 	 The list to be modified.
 * @return Returns a list.
 * @author Jeff Howden (jeff@members.evolt.org)
 * @version 1, March 21, 2002
 */
function ListDeleteDuplicates(list) {
  var i = 1;
  var delimiter = ',';
  var returnValue = '';
  if(ArrayLen(arguments) GTE 2)
    delimiter = arguments[2];
  list = ListToArray(list, delimiter);
  for(i = 1; i LTE ArrayLen(list); i = i + 1)
    if(NOT ListFind(returnValue, list[i], delimiter))
      returnValue = ListAppend(returnValue, list[i], delimiter);
  return returnValue;
}
</cfscript>
<cfset iniFile = "D:\quests.scp">
<cfset StructQuest=GetProfileSections(iniFile)>
<cfset listaNew = "questId,zoneId,questFlags,title,details,objectives,completedText,incompleteText,secondText,partText1,partText2,partText3,partText4,reqLevel,questLevel,prevQuests,previousQuest1,previousQuest2,previousQuest3,previousQuest4,previousQuest5,previousQuest6,previousQuest7,previousQuest8,previousQuest9,previousQuest10,lprevQuests,lpreviousQuest1,lpreviousQuest2,lpreviousQuest3,lpreviousQuest4,lpreviousQuest5,lpreviousQuest6,lpreviousQuest7,lpreviousQuest8,lpreviousQuest9,lpreviousQuest10,lockQuests,lockQuest1,lockQuest2,lockQuest3,lockQuest4,lockQuest5,lockQuest6,lockQuest7,lockQuest8,lockQuest9,lockQuest10,questItemId1,questItemId2,questItemId3,questItemId4,questItemCount1,questItemCount2,questItemCount3,questItemCount4,questMobId1,questMobId2,questMobId3,questMobId4,questMobCount1,questMobCount2,questMobCount3,questMobCount4,choiceRewards,choiceItemId1,choiceItemId2,choiceItemId3,choiceItemId4,choiceItemId5,choiceItemId6,choiceItemCount1,choiceItemCount2,choiceItemCount3,choiceItemCount4,choiceItemCount5,choiceItemCount6,itemRewards,rewardItemId1,rewardItemId2,rewardItemId3,rewardItemId4,,rewardItemCount1,rewardItemCount2,rewardItemCount3,rewardItemCount4,rewardGold,repFaction1,repFaction2,repValue1,repValue2,srcItem,nextQuest,learnSpell,timeMinutes,questType,questRaces,questClass,questTrSkill,questBehavior,locationid,locationx,locationy,locationz">

<cfset listaOld ="name,started_by,finished_by,levels,next_quest,qtflags,quest_flags,reward_xp,reputation,desc,completion,details,zonename,zone,marker,delivername,deliver,requirements,src_item,incomplete,precompletionname,precompletion,reward_choicename,reward_choice,reward_goldname,reward_gold,killname,kill,reward_itemname,reward_item,sidename,side,reward_spellname,reward_spell,req_moneyname,req_money,reward_buffname,reward_buff,explorename,explore,incompletionname,incompletion,time_minutesname,time_minutes,areaname,area,factionname,faction">
<cfset QuestTableDefinition = QueryNew("WAD,KOBOLD,SAMPLE")>
<cfscript>
 QueryAddRow(QuestTableDefinition,1);
 QuerySetCell(QuestTableDefinition,"WAD","zone");
 QuerySetCell(QuestTableDefinition,"KOBOLD",ListGetAt(listaNew,2));
 QuerySetCell(QuestTableDefinition,"sample","44");
 QueryAddRow(QuestTableDefinition,1);
 QuerySetCell(QuestTableDefinition,"WAD","quest_flags");
 QuerySetCell(QuestTableDefinition,"KOBOLD",ListGetAt(listaNew,3));
 QuerySetCell(QuestTableDefinition,"sample","8");
 QueryAddRow(QuestTableDefinition,1);
 QuerySetCell(QuestTableDefinition,"WAD","name");
 QuerySetCell(QuestTableDefinition,"KOBOLD",ListGetAt(listaNew,4));
 QuerySetCell(QuestTableDefinition,"sample","Assessing the Threat");
 QueryAddRow(QuestTableDefinition,1);
 QuerySetCell(QuestTableDefinition,"WAD","details");
 QuerySetCell(QuestTableDefinition,"KOBOLD",ListGetAt(listaNew,5));
 QuerySetCell(QuestTableDefinition,"sample","#JSStringFormat("We don't have men to spare, but something must be done about those gnolls you reported to me.$B$BScout southern Redridge for gnolls.  Harry them, kill those you can and report back to me with a count of their numbers and an assessment of the threat they present.  You may find those gnolls camped all along the southern road of Redridge.$B$BDo this for the Stormwind Army, $N, and you will be rewarded.
")#");
 QueryAddRow(QuestTableDefinition,1);
 QuerySetCell(QuestTableDefinition,"WAD","desc");
 QuerySetCell(QuestTableDefinition,"KOBOLD",ListGetAt(listaNew,6));
 QuerySetCell(QuestTableDefinition,"sample","#JSStringFormat("Kill 10 Redridge Mongrels and 6 Redridge Poachers, then report back to Deputy Feldon in Lakeshire.
")#");
 QueryAddRow(QuestTableDefinition,1);
 QuerySetCell(QuestTableDefinition,"WAD","completion");
 QuerySetCell(QuestTableDefinition,"KOBOLD",ListGetAt(listaNew,7));
 QuerySetCell(QuestTableDefinition,"sample","#JSstringFormat("<Deputy Feldon listens to your report...>$b$bThere's a sizable force of gnolls encamped there, and from what you tell me they are tough ones. It must not have been easy for you to gather this intelligence.$b$bHere you are, $N. We are grateful for your aid.$b$bAnd if you haven't already done so, speak with Marshal Marris and Magistrate Solomon within Lakeshire. Our situation grows ever more desperate - those two will have need of you I'm sure.
")#");
 QueryAddRow(QuestTableDefinition,1);
 QuerySetCell(QuestTableDefinition,"WAD","incomplete");
 QuerySetCell(QuestTableDefinition,"KOBOLD",ListGetAt(listaNew,8));
 QuerySetCell(QuestTableDefinition,"sample","#JSStringFormat("Ah, is the note translated? Please, let me see it...")#");

//engine
//Recorremos la estructura

</cfscript>

<cfset llaves = StructKeyArray(StructQuest)>
<cfset campos = QuestTableDefinition.Columnlist>
<cfoutput>
<cfloop from="1" to="15" index="j">
<!---======================<br>
#llaves[j]#<br>
======================<br>
---> <cfset SqlTxt = "INSERT INTO `quests` VALUES ('#listgetat(llaves[j],2," ")#',">
	<cfoutput query="QuestTableDefinition">
	<!---#Kobold# : <cftry><cfset temp = "'#JSStringFormat(GetProfileString(iniFile,llaves[j],wad))#'">#JSStringFormat(GetProfileString(iniFile,llaves[j],wad))#<br /><cfcatch type="any"><cfset temp = "'0'">No tiene<br /></cfcatch></cftry> --->
	<cftry><cfset temp = "'#JSStringFormat(GetProfileString(iniFile,llaves[j],wad))#'"><cfcatch type="any"><cfset temp = "'0'"></cfcatch></cftry>



	<!--- Creamos el Insert segun el orden --->
	<cfset Sqltxt = SqlTxT & temp & ",">
	</cfoutput>
	<cfset Sqltxt = removechars(SqlTxt,len(SqlTxt),1) & ");">
	<br />
	#SqlTxt#
	<br />
</cfloop>
</cfoutput>