1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
|
'Microsoft-SQL-Server-Integrations-Dienstbenutzer-Indexbestandteil
'Dieses ist Ihr neuer Indexbestandteil in Microsoft Visual Basic .NET
'ScriptMain ist die entrypoint Kategorie für Indexbestandteile
Import-System
Importe System.Data
Importe System.Math
Importe System.IO
Importe Microsoft.SqlServer.Dts.Pipeline.Wrapper
Importe Microsoft.SqlServer.Dts.Runtime.Wrapper
Importe System.Xml
Allgemeine Kategorie ScriptMain
Übernimmt UserComponent
Schwacher Schalter als StreamWriter
'Zusätzlich zur Anwendung der Aussage der Importe System.Xml muss ein Hinweis hinzugefügt werden
'System.Xml (auserwählt Hinweis von IDE Projekt-Hinzufügen)
xWriter als XmlTextWriter verdunkeln
OutputFileType als Schnur „.csv oder .xml“ verdunkeln
Als ganze Zahl entgegengesetzt verdunkeln
Öffentlichkeit aufhebt VorPreExecute it ()
'Nur Variablen lesen
gsPickUp als Schnur = Me.Variables.gsPickUp „D:\ftproot\Out\Avid“ verdunkeln
gsPickUpFilename als Schnur = Me.Variables.gsPickUpFilename „1_AVID_“ verdunkeln
gsPickUpFileExtn als Schnur = Me.Variables.gsPickUpFileExtn „.csv“ verdunkeln
gsMemoText als Schnur = Me.Variables.gsMemoText „Protokoll-Text verdunkeln: Justage gutschreiben“
gsStatementText als Schnur = Me.Variables.gsStatementText „Anweisungstext verdunkeln: Justage gutschreiben“
gsRunMode verdunkeln, wie Schnur = Me.Variables.gsRunMode „UPDATE“
gsFileType als Schnur = Me.Variables.gsFileType verdunkeln
Dateinamen als Schnur = gsPickUp verdunkeln u. „\“ u. gsPickUpFilename
'Schwaches cnt als ganze Zahl = Me.Variables.rowcount
'Schwaches cnt als Variable = Dts.VariableDispenser.LockOneForRead („Benutzer:: rowcount“, cnt)
Kostenzähler = Variables.rowcount
Dateiname = Dateiname u. (Format (jetzt (), „yyyyMMddHHmm“) .ToString) u.“ _ „u. Gegen
'MsgBox (Dateiname)
OutputFileType = gsPickUpFileExtn
Wenn OutputFileType = „.xml“ dann
Dateiname = Dateiname u. gsPickUpFileExtn
'xWriter = neues XmlTextWriter (Me.Connections.XMLConnection.ConnectionString, nichts)
'xWriter.WriteStartDocument ()
'xWriter.WriteComment („Kundenakte analysiert using Index“)
'xWriter.WriteStartElement („x“, „Kunde“, „http://some.org/name ")
'xWriter.WriteAttributeString („Dateiname“, Me.Connections.XMLConnection.ConnectionString)
xWriter = neues XmlTextWriter (Dateiname, nichts)
'xWriter.Formatting = Formatting.Indented
'xWriter.Indentation = 0
xWriter.WriteStartDocument ()
xWriter.WriteComment („Kundenakte analysiert using Index“)
xWriter.WriteStartElement („x“, „Kommunikation“, "")
'xWriter.WriteAttributeString („Art“, gsFileType)
Beenden wenn
Unterseeboot beenden
Öffentlichkeit aufhebt VorParsedInput_ProcessInputRow it (ByVal Reihe als ParsedInputBuffer)
Kostenzähler += 1
Wenn OutputFileType = „.xml“ dann
xWriter.WriteString (Environment.NewLine)
xWriter.WriteStartElement („x“, „Kommunikation“, "")
xWriter.WriteAttributeString („Art“, „LogCall“)
xWriter.WriteElementString („CommunicationLog_CallId“, Row.CommunicationLogCallId.ToString)
xWriter.WriteElementString („CommunicationLogId“, Row.CommunicationLogId.ToString)
xWriter.WriteElementString („LMDealershipCode“, Row.LMDealershipCode.ToString)
xWriter.WriteElementString („MQDealershipId“, Row.MQDealershipId.ToString)
xWriter.WriteElementString („ChannelCode“, Row.ChannelCode.ToString)
xWriter.WriteElementString („VersionId“, Row.VersionId.ToString)
xWriter.WriteElementString („InstanceId“, Row.InstanceId.ToString)
xWriter.WriteElementString („SendDateTime“, Row.SendDateTime.ToString)
xWriter.WriteElementString („TimeZone“, Row.TimeZone.ToString)
xWriter.WriteElementString („CampaignType“, Row.CampaignType.ToString)
xWriter.WriteElementString („CampaignCode“, Row.CampaignCode.ToString)
xWriter.WriteElementString („CampaignName“, Row.CampaignName.ToString)
xWriter.WriteElementString („CustomerFirstName“, Row.CustomerFirstName.ToString)
xWriter.WriteElementString („CustomerLastName“, Row.CustomerLastName.ToString)
xWriter.WriteElementString („CustomerAddress1“, Row.CustomerAddress1.ToString)
xWriter.WriteElementString („CustomerAddress2“, Row.CustomerAddress2.ToString)
xWriter.WriteElementString („CustomerCity“, Row.CustomerCity.ToString)
xWriter.WriteElementString („CustomerState“, Row.CustomerState.ToString)
xWriter.WriteElementString („CustomerZip“, Row.CustomerZip.ToString)
xWriter.WriteElementString („CustomerHomePhoneNumber“, Row.CustomerHomePhoneNumber.ToString)
xWriter.WriteElementString („CustomerCellPhoneNumber“, Row.CustomerCellPhoneNumber.ToString)
xWriter.WriteElementString („CustomerEmailAddress“, Row.CustomerEmailAddress.ToString)
xWriter.WriteElementString („VIN“, Row.VIN.ToString)
xWriter.WriteElementString („DMSEventDateTime“, Row.DMSEventDateTime.ToString)
xWriter.WriteElementString („DMSEventType“, Row.DMSEventType.ToString)
xWriter.WriteElementString („DMSRetailCode“, Row.DMSRetailCode.ToString)
xWriter.WriteElementString („IsTest“, Row.IsTest.ToString)
xWriter.WriteElementString („ToPhoneNumber“, Row.ToPhoneNumber.ToString)
xWriter.WriteElementString („FromPhoneNumber“, Row.FromPhoneNumber.ToString)
xWriter.WriteElementString („RecordingFileName“, Row.RecordingFileName.ToString)
xWriter.WriteElementString („Index“, Row.Script.ToString)
xWriter.WriteElementString („ProcessDateTime“, Row.ProcessDateTime.ToString)
xWriter.WriteElementString („SourceCode“, Row.SourceCode.ToString)
xWriter.WriteElementString („SourceId1Name“, Row.SourceId1Name.ToString)
xWriter.WriteElementString („SourceId1Value“, Row.SourceId1Value.ToString)
xWriter.WriteElementString („SourceId2Name“, Row.SourceId2Name.ToString)
xWriter.WriteElementString („SourceId2Value“, Row.SourceId2Value.ToString)
xWriter.WriteElementString („SourceId3Name“, Row.SourceId3Name.ToString)
xWriter.WriteElementString („SourceId3Value“, Row.SourceId3Value.ToString)
xWriter.WriteEndElement ()
'xWriter.WriteString (Environment.NewLine)
'Schreiben („
")
Beenden wenn
Unterseeboot beenden
Öffentlichkeit aufhebt VorPostExecute it ()
Wenn OutputFileType = „.xml“ dann
'xWriter.WriteStartElement („RecordCount“)
'xWriter.WriteString (Me.Variables.rowcount.ToString)
'xWriter.WriteEndElement ()
'xWriter.WriteEndElement ()
xWriter.WriteEndDocument ()
xWriter.Close ()
Beenden wenn
Unterseeboot beenden
Kategorie beenden
|
