This code will show you how to strip out html or unwanted characters from a specified context in your mdd file Via a DMS script.
Event(OnBeforeJobStart, "")
Dim oMDM
' Create the MDM object and open the Short Drinks .mdd file in read-write mode
Set oMDM = CreateObject("MDM.Document")
oMDM.Open("C:\survey.mdd", ,2)
oMDM.Contexts.Current = "Question"
Dim oVar,oElement
'Using the StripHTML funciton
For Each oVar in oMDM.Variables
if oVar.IsSystem = False then
oVar.Label = StripHTML ( oVar.Label )
For each oElement in oVar.Elements.Elements
oElement.Label = StripHTML ( oElement.Label )
Next
end if
Next
'Using the StripOut function
For Each oVar in oMDM.Variables
if oVar.IsSystem = False then
oVar.Label = StripOut ( oVar.Label )
For each oElement in oVar.Elements.Elements
oElement.Label = StripOut ( oElement.Label )
Next
end if
Next
oMDM.Save("C:\survey.mdd")
Set oMDM = null
Function StripHTML ( sText )
Dim objRegExp, strOutput
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "< (.|n)+?>"
'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(sText, "")
'Replace all < and > with < and >
strOutput = Replace(strOutput, "< ", "<")
strOutput = Replace(strOutput, ">", ">")
StripHTML = strOutput 'Return the value of strOutput
Set objRegExp = null
End Function
Function StripOut ( sText )
' You can use this function to hard code specific things you want to clean out the text
Dim sAnswer
sAnswer = sText
' Just repeat this line with the items you want to remove
sAnswer = Replace(sAnswer,"[WHAT_ARE_YOU_LOOKING FOR]","")
StripOut = sAnswer
End Function
End Event
InputDatasource(Input, "")
ConnectionString = "Provider=mrOleDB.Provider.2;Data Source=mrDataFileDsc;Location="C:\survey.ddf;Initial Catalog="C:\survey.mdd"
SelectQuery = "SELECT * FROM VDATA"
End InputDatasource
OutputDatasource(Output, "")
ConnectionString = "Provider=mrOleDB.Provider.2;Data Source=mrSavDsc;Location="C:\survey_out.sav"
MetaDataOutputName = "C:\survey_OUT.mdd"
End OutputDatasource
Like this:
Like Loading...