Index: zTryout/KCA/TECH/File/impl/FileReader.cls.xml
===================================================================
diff -u
--- zTryout/KCA/TECH/File/impl/FileReader.cls.xml	(revision 0)
+++ zTryout/KCA/TECH/File/impl/FileReader.cls.xml	(revision 57047)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.TECH.File.impl.FileReader">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject,TECH.File.FileReader</Super>
+
+<Property name="Bestand">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Stream">
+<Type>%FileCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+Bestand : Directory + bestand</Description>
+<FormalSpec>Bestand:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ..Bestand = Bestand
+	
+	If ##class(TECH.File).Exists(..Bestand)
+	{
+		Set ..Stream = ##class(%FileCharacterStream).%New()
+		Set ..Stream.Filename = ..Bestand
+		Do ..Stream.Rewind()
+	}Else{
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Het bestand '"_..Bestand_"' bestaat niet.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefStream">
+<ReturnType>%FileCharacterStream</ReturnType>
+<Implementation><![CDATA[	quit ..Stream
+]]></Implementation>
+</Method>
+
+<Method name="Close">
+<Implementation><![CDATA[
+	Do ..Stream.%Close()
+	Set ..Stream = ""
+]]></Implementation>
+</Method>
+
+<Method name="ReadLine">
+<Description>
+Leest een lijn uit. 
+Resultaat -1 = einde van bestand.</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Line As %String = ""
+	If ('..Stream.AtEnd){
+		Set Line = ..Stream.ReadLine()
+	} Else { 
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Einde van bestand  '"_..Bestand_"' reeds bereikt.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception) 
+	}
+	Quit Line
+]]></Implementation>
+</Method>
+
+<Method name="HasNextLine">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit '..AtEnd()
+]]></Implementation>
+</Method>
+
+<Method name="AtEnd">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Stream.AtEnd
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Description><![CDATA[
+This callback method is invoked by the <METHOD>%Close</METHOD> method to 
+provide notification that the current object is being closed.]]></Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..Close()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/KCA/SWiftKanbanToJiraConvertor.cls.xml
===================================================================
diff -u
--- zTryout/KCA/SWiftKanbanToJiraConvertor.cls.xml	(revision 0)
+++ zTryout/KCA/SWiftKanbanToJiraConvertor.cls.xml	(revision 57047)
@@ -0,0 +1,231 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.SWiftKanbanToJiraConvertor">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="Extension">
+<Type>%String</Type>
+<Default>.csv</Default>
+</Parameter>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConversieTabel">
+<Type>TECH.MultiDim</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.File.impl.FileAPI).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<Description><![CDATA[
+Export swiftkanban naar xls.
+tabs saven als cls files. (;)
+Eerst een replace doen van <span(LF) style door <span style -> zie in files via notepad.
+Do ##class(zTryout.KCA.SWiftKanbanToJiraConvertor).%New().Convert()]]></Description>
+<FormalSpec>FilePath:%String="C:\Temp"</FormalSpec>
+<Implementation><![CDATA[
+	#dim FileListIterator As TECH.Iterator = ..FileAPI.GetFileList(FilePath, "*"_..#Extension)
+	While FileListIterator.HasNext() {
+		 #dim FullFilename As %String = FileListIterator.Next()
+		 Do ..ConvertFile(FullFilename)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConvertFile">
+<FormalSpec>FullFileName:%String</FormalSpec>
+<Implementation><![CDATA[
+	w !, "Processing file " _FullFileName _" ..."
+	#dim FileReader As TECH.File.FileReader = ##class(zTryout.KCA.TECH.File.impl.FileReader).%New(FullFileName)
+	
+	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()
+	Try {
+		Do FileWriter.Open(..GeefNewFullFileName(FullFileName))
+		w !, "Writing file " _..GeefNewFullFileName(FullFileName) _" ..."
+		While FileReader.HasNextLine() {
+			#dim IssueLineWithHTML As %String = FileReader.ReadLine()
+			#dim IssueLineWithWikiMarkup As %String = IssueLineWithHTML
+
+			Set IssueLineWithWikiMarkup = ..ConvertIssueLineToWikiMarkup(IssueLineWithWikiMarkup)
+
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<a ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<table ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<span ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<strong ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<font ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<tr ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<td ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<col ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<p ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<div ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<div ")
+			Do ..FixUnknownTags(.IssueLineWithWikiMarkup, "<br ")
+			
+			Set IssueLineWithWikiMarkup = ..ConvertIssueLineToWikiMarkup(IssueLineWithWikiMarkup)
+			
+			Do FileWriter.Write(IssueLineWithWikiMarkup _$$$LF)
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception	= ##class(TECH.ExceptionHandler).Catch()
+		w !, "Error : Close files ..."
+		Do FileWriter.Close()
+		Do FileReader.Close()
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	w !, "Close files ..."
+	Do FileWriter.Close()
+	Do FileReader.Close()
+]]></Implementation>
+</Method>
+
+<Method name="FixUnknownTags">
+<FormalSpec><![CDATA[&IssueLineWithWikiMarkup:%String,UnknownTag:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	While $Find(IssueLineWithWikiMarkup, UnknownTag) {
+		#dim IssueLineWithWikiMarkupFirst As %String= $Extract(IssueLineWithWikiMarkup,1, $Find(IssueLineWithWikiMarkup, UnknownTag)-2)
+		#dim TagBeginPosition As %Integer = $Find(IssueLineWithWikiMarkup,UnknownTag)
+		#dim TagEndPosition As %Integer = $Find(IssueLineWithWikiMarkup, ">",TagBeginPosition)-1
+		#dim IssueLineWithWikiMarkupLast As %String= $Extract(IssueLineWithWikiMarkup,TagEndPosition,*)
+		If (TagEndPosition < 0) {
+			Set IssueLineWithWikiMarkup = IssueLineWithWikiMarkupFirst _">"
+		} Else {
+			Set IssueLineWithWikiMarkup = IssueLineWithWikiMarkupFirst _IssueLineWithWikiMarkupLast
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefNewFullFileName">
+<FormalSpec>FullFileName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim NewFullFileName As %String = $Replace(FullFileName,..#Extension, "_WikiMarkup"_..#Extension)
+	Quit NewFullFileName
+]]></Implementation>
+</Method>
+
+<Method name="ConvertIssueLineToWikiMarkup">
+<FormalSpec>IssueLineWithHTML:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IssueLineWithWikiMarkup As %String = IssueLineWithHTML
+	
+	#dim ConversieTabel As TECH.MultiDim = ""
+	Do ..ZetConversieTabel(.ConversieTabel)
+	
+	#dim Keyword As %String = $Order(ConversieTabel(""))
+	while $$$Not(Keyword="") {
+		Set IssueLineWithWikiMarkup = $Replace(IssueLineWithWikiMarkup, Keyword, $Get(ConversieTabel(Keyword)))
+		Set Keyword = $Order(ConversieTabel(Keyword))
+	}
+	
+	Quit IssueLineWithWikiMarkup
+]]></Implementation>
+</Method>
+
+<Method name="ZetConversieTabel">
+<FormalSpec><![CDATA[&ConversieTabel:TECH.MultiDim]]></FormalSpec>
+<Implementation><![CDATA[
+	/*
+	Set ConversieTabel("1") = "h1."
+	Set ConversieTabel("1") = "h2."
+	Set ConversieTabel("1") = "h3."
+	Set ConversieTabel("1") = "h4."
+	Set ConversieTabel("1") = "h5."
+	Set ConversieTabel("1") = "h6."
+	*/
+	
+	Set ConversieTabel("<strong>") = "*"
+	Set ConversieTabel("</strong>") = "*"
+
+	Set ConversieTabel("<font>") = "*"
+	Set ConversieTabel("</font>") = "*"
+	
+	Set ConversieTabel("<br>") = "\\"
+	
+	Set ConversieTabel("<span>") = "{color:black}"
+	Set ConversieTabel("</span>") = "{color}"
+
+	Set ConversieTabel("&nbsp;") = "\\"
+	Set ConversieTabel("&amp;") = "&"
+	Set ConversieTabel("&quot;") = "{quote}"
+	Set ConversieTabel("&gt;") = ""
+	Set ConversieTabel("ÿ") = ""
+
+	Set ConversieTabel("<p>") = "{quote}"
+	Set ConversieTabel("</p>") = "{quote}"
+	
+	Set ConversieTabel("<strike>") = "-"
+	Set ConversieTabel("</strike>") = "-"
+	
+	Set ConversieTabel("<ul>") = ""
+	Set ConversieTabel("</ul>") = ""
+	Set ConversieTabel("<li>") = "* "
+	Set ConversieTabel("</li>") = ""
+	Set ConversieTabel("<ol>") = ""
+	Set ConversieTabel("</ol>") = ""
+
+	Set ConversieTabel("<div>") = ""
+	Set ConversieTabel("</div>") = "\\"
+	Set ConversieTabel("<col>") = ""
+	Set ConversieTabel("</col>") = ""
+	Set ConversieTabel("<colgroup>") = ""
+	Set ConversieTabel("</colgroup>") = ""
+	Set ConversieTabel("<table>") = ""
+	Set ConversieTabel("</table>") = ""
+	Set ConversieTabel("</tbody>") = ""
+	Set ConversieTabel("<tbody>") = ""
+	Set ConversieTabel("<tr>") = ""
+	Set ConversieTabel("</tr>") = "|"
+	Set ConversieTabel("<td>") = "|"
+	Set ConversieTabel("</td>") = ""
+
+	Set ConversieTabel("<span style=""""text-decoration: underline;"""">") = "{color:black}"
+	Set ConversieTabel("<span style=""""color: rgb(0,0,255);"""">") = "{color:blue}"
+	Set ConversieTabel("<span style=""""color: rgb(0,0,191);"""">") = "{color:blue}"
+	Set ConversieTabel("<span style=""""color: rgb(0,0,128);"""">") = "{color:blue}"
+	Set ConversieTabel("<span style=""""font-family: Courier New;"""">") = "{color:black}"
+	Set ConversieTabel("<span style=""""color: rgb(17,17,17);"""">") = "{color:grey}"
+	Set ConversieTabel("<span style=""""font-family: Courier New;"""">") = "{color:black}"
+	Set ConversieTabel("<span style=""""font-size: 12.0px;"""">") = "{color:black}"
+	Set ConversieTabel("<span style=""""font-weight: bold;"""">") = "{color:black}"
+
+	Set ConversieTabel("<a>") = "["
+	Set ConversieTabel("</a>") = "]"
+
+	/*
+
+	KCA : a href wordt <a> en daarna vervangen door link voor jira []
+
+	Set ConversieTabel("<a href=""""") = "["
+	Set ConversieTabel(""""">http") = "|http"
+	Set ConversieTabel("</a>") = "]"
+	
+	
+	;Set ConversieTabel($C(10)) = "\\"
+
+	
+
+	
+	*/
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>