Hi,
Can anyone tell me exactly what is sent from BTS to an AIC that implements I
BTSAppIntegration_ProcessMessage(byVal strDoc AS String)?  I understand that
 the parameter strDoc is "a string that contains the document."  If, for exa
mple, I am trying to make a
lterations to an EDI message in text format, and I use a channel to send the
 message to an AIC, does strDoc then contain a string of the text in the EDI
 message?  If so, how do I manipulate that string?  Can I load it directly i
nto a stringbuilder?  The r
eason I ask is that I am trying to implement such an AIC and getting out wha
t looks like binary encoded values as a result.

My code is below.  I would greatly appreciate any help with this.

JT

Function ProcessMessage(ByVal strDocument As String) As String _
Implements IBTSAppIntegration.ProcessMessage

Try


Return TrimST(strDocument)

Catch

End Try

End Function

Private Function TrimST(ByRef strDoc As String) As String

Try

'Dump string into a string builder with initial capacity                    
                'of 100000 characters
Dim fileContent As New StringBuilder(stRead.ReadToEnd, 100000)
stRead.Close()

'Modify the string within the Stringbuilder
'by getting rid of the extraneous ST segment
With fileContent
If .Length > 0 Then

.Replace("ST*837*0001~ST", "ST")

End If
End With

'Create a StreamWriter to write the file
'to the output directory with
'the new file content
Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim out\PClaim_"
 & Now.ToFileTime.ToString & ".837", False)
With stWrite
.Write(fileContent.ToString)
.Flush()
.Close()
End With

Return fileContent.ToString


Catch ex As Exception
ex.ToString()

End Try

End Function

[ Post a follow-up to this message ]

What is stRead?

Your code passes a string into a routine called TrimST, but that routine
ignores the argument and reads a string out of a stream called stRead.

Hmmmm

----  Nick

"JTnospam@verizon.net" <JTnospamverizonnet@discussions.microsoft.com> wrote
in message news:27C886AA-A24C-410B-A55A-6B6123B5E456@microsoft.com...
> Hi,
> Can anyone tell me exactly what is sent from BTS to an AIC that implements
IBTSAppIntegration_ProcessMessage(byVal strDoc AS String)?  I understand
that the parameter strDoc is "a string that contains the document."  If, for
example, I am trying to make alterations to an EDI message in text format,
and I use a channel to send the message to an AIC, does strDoc then contain
a string of the text in the EDI message?  If so, how do I manipulate that
string?  Can I load it directly into a stringbuilder?  The reason I ask is
that I am trying to implement such an AIC and getting out what looks like
binary encoded values as a result.
>
> My code is below.  I would greatly appreciate any help with this.
>
> JT
>
> Function ProcessMessage(ByVal strDocument As String) As String _
> Implements IBTSAppIntegration.ProcessMessage
>
> Try
>
>
> Return TrimST(strDocument)
>
> Catch
>
> End Try
>
> End Function
>
> Private Function TrimST(ByRef strDoc As String) As String
>
> Try
>
> 'Dump string into a string builder with initial capacity
'of 100000 characters
> Dim fileContent As New StringBuilder(stRead.ReadToEnd, 100000)
> stRead.Close()
>
> 'Modify the string within the Stringbuilder
> 'by getting rid of the extraneous ST segment
> With fileContent
> If .Length > 0 Then
>
> .Replace("ST*837*0001~ST", "ST")
>
> End If
> End With
>
> 'Create a StreamWriter to write the file
> 'to the output directory with
> 'the new file content
> Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim
out\PClaim_" & Now.ToFileTime.ToString & ".837", False)
> With stWrite
> .Write(fileContent.ToString)
> .Flush()
> .Close()
> End With
>
> Return fileContent.ToString
>
>
> Catch ex As Exception
> ex.ToString()
>
> End Try
>
> End Function
>
>
>

[ Post a follow-up to this message ]

Hi Nick,
Thanks for pointing that out - I think I deleted a couple of key lines of co
de in trying to get my post to look pretty.  Bottom line - I still can't get
 this to work for me.  I've taken a different approach now in my AIC (code b
elow).  Nevertheless, the r
esult I get is unintelligible (sample below).  I am sure it has to do with e
ither my misinterpreting what the AIC is sending me in strDoc or not coding 
the output correctly in the StringWriter OR maybe just having the wrong appr
oach altogether.  Perhaps I
should be doing this with a pipeline component, or with a component that I c
an call in an orchestration.  Also, I am not sure that the AIC really wants 
a string of my new document as a return value - some examples I have seen sh
ow 0 for success, 2 for er
ror.  Thanks again.
John Thayer

Garbage Producing Code:

Function ProcessMessage(ByVal strDocument As String) As String _
Implements IBTSAppIntegration.ProcessMessage

Try

Return ProcessDocument(strDocument)

Catch ex As Exception
ex.ToString()
End Try

End Function

Private Function ProcessDocument(ByRef strDoc As String) As String

Try


'Dump file contents into a string builder with initial capacity of
'100000 characters
Dim fileContent As New StringBuilder(strDoc, 100000)

'Set up a stringbuilder to hold the Trans Ctrl Number
Dim sbTranNumber As New StringBuilder(9)

'Isolate the value to be used as the new
'Transaction Set Control Number
With fileContent
If .Length > 0 Then

Dim i As Integer

Dim startPoint As Integer = (strDoc.IndexOf("~BHT*0019*") + 13)

For i = startPoint To (startPoint + 10)
'Counts on TransSetCtrlNumber being an integer
If IsNumeric(.Chars(i)) Then
sbTranNumber.Append(.Chars(i))

Else
GoTo 1
End If

Next i

'Replace BTS assigned TranCtlNumber (0001) with
'value in string builder
1:				  .Replace("ST*837*0001", "ST*837*" & sbTranNumber.ToString)
.Replace("0001~GE*", sbTranNumber.ToString & "~GE*")

End If
End With

'Create a StreamWriter to write the file
'to the output directory with
'the new file content
Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim out\PClaim_"
 & Now.ToFileTime.ToString & ".837", False)
With stWrite
.Write(fileContent.ToString)
.Flush()
.Close()
End With

Return fileContent.ToString


Catch ex As Exception
ex.ToString()

End Try

End Function

Part of my Garbage out:
 卉⩁〰‪�_�_�_�_�_〰‪�_�_�
�_�_�_婚㈪㔵′�_�_�_�_�_�
 ��⩚ㄳ㐱″�_�_�_�_�_㐰㜰�_��
�㄰⨳⩕〰〴⨱〰〰〰㌰⨰�
 �⩔縺升�_�⩃㔲㈵㌪ㄱ㌴㈪〰〴
〷⨸〱㌱㌪⨰⩘〰〴〱じ�_�
ㅁ卾⩔㌸⨷〰㄰䉾呈
 〪㄰⨹〰㐪㐰⨹〲㐰㜰�_�ㄪ㄰�
��⨵䡃剾䙅�_�⨷〰〴〱じ�_��
 ��乾ㅍ㐪⨱⨱䡔奁剅䨪䡏⩎⩁�
�㘴㈪㔵縲䕐⩒䍉䌪䕈奒⩌�
 �㐪㌱㜵㌲〰縰䵎⨱〴㈪䴪䑅䍉
剁⩅⨪⨪㘴㌪ㄱ㌴䡾⩌⨱㈪
⨰縱剐⩖䥂娪⩚〲圷
 〰〰�_�乾ㅍ�_�⨵⨱䡔奁剅䨪䡏�
��⩁⨪㐲〪㌴㐴㤸㜵乾⨳㐹�
 �_�_䵌�_⩔啓呉⁅〱縲㑎圪卅�
�䕉䑌䴪⩁㄰�_�縵䕒⩆䌱䄪�
 �㌴縲䕐⩒䍉䌪䕈奒⩌䕔㐪㌱㜵
㌲〰縰䱈㈪ㄪ㈪⨲縰䥍〪㌱
㈲〲㤷繁㍎ㄪ�_��_䅒
 䕎�_䕖乾⨴䕗呓䥆䱅⩄䅍〪〱�
��䑾䝍䐪⨸㤱㤲㐰〱䘪乾ㅍ�
 ��⩒⨲䕍䥄䅃䕒⨪⨪倪⩉繌䵄�
�㡄ㄪㄹㄸ㈰⨶繆䥏⨪太䈪�
 �繙䵎⨱䱉ㄪ䬪䕏䥎⩇䱅婉䉁呅
⩈⨪䴪⩉塘き�_�㐴㐸〲乾⨳
㔶�_䥈䅔䕋⁒佒䑁乾
 ⨴䕗呓䥆䱅⩄䅍〪〱㔸乾ㅍ倪�
��⨲䕍䕄⩘⨪⨪䥐〪ㄱ㌷䱾�
 ��縱噓⨱䍈㤺〹㐲〪唪⩎⨱⨪�
�呄⩐㜴⨲㡄㈪〰〴㈶縵䕒�
 �制㐪ㄵ䡾⩌⨶⨱㈲〪卾剂倪ㄪ
⨸⨪⨪⨪䉍乾ㅍ䤪⩌⨱䕊䱌
奅圪䱉剆䑅⨪⨪䥍〪
 㜱�_�㔹㜱繁㍎㐪″䱃奁佔繎㑎�
��卅⁔偓䥒䝎䥆䱅⩄䅍〪〱�
 ��䑾䝍䐪⨸㤱㈲�_�㌰䴪乾ㅍ倪�
�⨲䕍䥄䅃䕒⨪⨪倪⩉ㄳ㐱�
 �㍎倪⁏佂⁘㈱㈱乾⨴䥈䝎䅈⩍
䅍〪〲㌴䍾䵌ㄪ㈱⨷㈱⨵⨪
ㄱ㨺⨱⩙⩁⩙⩙繂䥈
 䈪㩋㘳㔲⨲䙂㌺㘶㘱乾ㅍ䐪⩎�
��䅂䕋⩒佈䅗䑒偾噒刪⩆婚�
 ��㜰げ〰〰繘䕒⩆䜱䘪〸�_�縸�
�⩒⩓�_�⨪䴪⩉⨪䌪繉䵄⩇�
 �ㄪ㈹〲〸⨳繍䥏⨪太䈪⨪繙䵎
⨱䱉ㄪ䨪䱅䕌⩙䥗䙌䕒⩄⨪
䴪⩉㜹㄰〹ㄶ縱㍎㐪
 ″䱃奁佔繎㑎圪卅⁔偓䥒䝎䥆�
��⩄䅍〪〱㤸乾ㅍ倪⩒⨲䅂�
 _�剅⁓䥌䕆⨪⨪倪⩉㔰㄰縲塌�
�卾ㅖ�_�㩃㈹㄰⨴㈱⨵乕ㄪ�
 �ㄪ㈺䑾偔㐪㈷䐪⨸〲㐰㘰㐲剾
䙅㘪⩒㐴縲䱃⩍ㄱ㈳㜪⨰⨪
ㄱ㨺⨱⩙⩁⩙⩙繂䥈
 䈪㩋㜰㤷縹䵎⨱乄ㄪ䈪�_�剅�_��
��剁繄剐⩖䙒娪⩚〲刷〰〰�
 _�剾䙅ㄪ⩇㡆㜰�_�卾剂匪ㄪ⨸�
�䥍⨪⨪䥃䑾䝍䐪⨸㤱㈲�_��
 �䴪佾⩉⨪⩙⩂太乾ㅍ䤪⩌⨱䕊
䱌奅圪䱉剆䑅⨪⨪䥍㤪〷㤱
㘰ㄱ乾⨳㌴�_䅌呙乏
 乾⨴䕗呓�_剐义䙇䕉䑌䴪⩁㄰�
_�縹䵎⨱剐㈪䈪乁䕋卒�_䙉�
 ��⨪⨪䥐〪〵㈱䱾⩘縱噓⨱䍈�
�㈹㌱㜪⨰乕ㄪ⨪ㄪ䑾偔㐪�
 �䐪⨸〲㐰㘰㔲剾䙅㘪⩒㐴縸䱈
㜪ㄪ㈪⨲縰䉓⩒⩐�_�⨪⨪⨪
䴪繂䵎⨱䱉ㄪ䘪䥒䉓
 䕉䰪久⩁⨪䴪⩉㈰ㄳ㈸㤷䐱乾�
��㘱�_坁䥍䱌�_剁繋㑎匪問�
 ��䥗�_�䴪⩁㄰㜰縷䵄⩇㡄ㄪ㈹�
�㈳⨶繆䵎⨱剐㈪䴪䑅䍉剁�
 �⨪⨪䥐㌪ㄱ㌴乾⨳佐�_塏�_ㄲ
縲㑎�_�义䡇䵁䴪⩁㈰㐰縳䱃
⩍ㄱ㤲ㄪ㈶⨪ㄪ㨱ㄺ
 太䄪太太䈪䡾⩉�_�㌺ㄵ縰䵎⨱�
��ㄪ䄪䝎佃䌪卅剁偾噒刪⩆�
 ��㈪�_�い〰〰繘䕒⩆䜱䈪㜹㘶�
�塌ㄪ卾ㅖ�_�㩃㤹㐲⨳㘱⨲�
 �ㄪ⨪ㄪ䑾偔㐪㈷䐪⨸〲㐰㘰㔲
剾䙅㘪⩒㐴縴䱈�_�ㄪ㈪⨲縰
䉓⩒⩐�_�⨪⨪⨪䴪繂
 䵎⨱䱉ㄪ䜪剁⩙䡃剁䕌⩓⩂⨪�
��〪㈱〳�_�㈹繁㍎㐪�_䉙久�
 �_繄㑎圪卅䙔䕉䑌䴪⩁㄰�_�縵�
�⩇㡄ㄪ㈹ㄱ㄰⨲繍䵎⨱剐�
 �䴪䑅䍉剁⩅⨪⨪䥐㌪ㄱ㌴乾⨳
佐�_塏�_ㄲ縲㑎�_�义䡇䵁䴪
⩁㈰㐰縳䱃⩍ㄱ〳㈪
 㜰⨪ㄪ㨱ㄺ太䄪太太䈪䡾⩉�_��
��ㄷ㔰䈪㩆㘳ㄶ⨷䙂㌺㔶㤵�
��ㅍ䐪⩎⨱䅋呌

> What is stRead?
>
> Your code passes a string into a routine called TrimST, but that routine
> ignores the argument and reads a string out of a stream called stRead.
>
> Hmmmm
>
> ----  Nick
>
> "JTnospam@verizon.net" <JTnospamverizonnet@discussions.microsoft.com> wrot
e
> in message news:27C886AA-A24C-410B-A55A-6B6123B5E456@microsoft.com... 
> IBTSAppIntegration_ProcessMessage(byVal strDoc AS String)?  I understand
> that the parameter strDoc is "a string that contains the document."  If, f
or
> example, I am trying to make alterations to an EDI message in text format,
> and I use a channel to send the message to an AIC, does strDoc then contai
n
> a string of the text in the EDI message?  If so, how do I manipulate that
> string?  Can I load it directly into a stringbuilder?  The reason I ask is
> that I am trying to implement such an AIC and getting out what looks like
> binary encoded values as a result. 
> 'of 100000 characters 
> out\PClaim_" & Now.ToFileTime.ToString & ".837", False) 
>
>
>

[ Post a follow-up to this message ]

Tell you what... I will fish out my code for substituting EDI values in
Biztalk 2002 and compare code.  I'll get an answer for you in the morning
(Pacific time).

(I can mail it to you if you'd like.  I have a fairly stable EDI
parser/serializer in C#).

--- Nick

"JTnospam@verizon.net" <JTnospamverizonnet@discussions.microsoft.com> wrote
in message news:50479DFC-1ED8-49AC-93EB-EFF9C801A913@microsoft.com...
> Hi Nick,
> Thanks for pointing that out - I think I deleted a couple of key lines of
code in trying to get my post to look pretty.  Bottom line - I still can't
get this to work for me.  I've taken a different approach now in my AIC
(code below).  Nevertheless, the result I get is unintelligible (sample
below).  I am sure it has to do with either my misinterpreting what the AIC
is sending me in strDoc or not coding the output correctly in the
StringWriter OR maybe just having the wrong approach altogether.  Perhaps I
should be doing this with a pipeline component, or with a component that I
can call in an orchestration.  Also, I am not sure that the AIC really wants
a string of my new document as a return value - some examples I have seen
show 0 for success, 2 for error.  Thanks again.
> John Thayer
>
> Garbage Producing Code:
>
> Function ProcessMessage(ByVal strDocument As String) As String _
> Implements IBTSAppIntegration.ProcessMessage
>
> Try
>
> Return ProcessDocument(strDocument)
>
> Catch ex As Exception
> ex.ToString()
> End Try
>
> End Function
>
> Private Function ProcessDocument(ByRef strDoc As String) As String
>
> Try
>
>
> 'Dump file contents into a string builder with initial capacity of
> '100000 characters
> Dim fileContent As New StringBuilder(strDoc, 100000)
>
> 'Set up a stringbuilder to hold the Trans Ctrl Number
> Dim sbTranNumber As New StringBuilder(9)
>
> 'Isolate the value to be used as the new
> 'Transaction Set Control Number
> With fileContent
> If .Length > 0 Then
>
> Dim i As Integer
>
> Dim startPoint As Integer = (strDoc.IndexOf("~BHT*0019*") + 13)
>
> For i = startPoint To (startPoint + 10)
> 'Counts on TransSetCtrlNumber being an integer
> If IsNumeric(.Chars(i)) Then
> sbTranNumber.Append(.Chars(i))
>
> Else
> GoTo 1
> End If
>
> Next i
>
> 'Replace BTS assigned TranCtlNumber (0001) with
> 'value in string builder
> 1:   .Replace("ST*837*0001", "ST*837*" & sbTranNumber.ToString)
> .Replace("0001~GE*", sbTranNumber.ToString & "~GE*")
>
> End If
> End With
>
> 'Create a StreamWriter to write the file
> 'to the output directory with
> 'the new file content
> Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim
out\PClaim_" & Now.ToFileTime.ToString & ".837", False)
> With stWrite
> .Write(fileContent.ToString)
> .Flush()
> .Close()
> End With
>
> Return fileContent.ToString
>
>
> Catch ex As Exception
> ex.ToString()
>
> End Try
>
> End Function
>
> Part of my Garbage out:
>
???????????????????'????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
?????????????????????????????????????????????????????????????????????????[vbcol=seagreen]
> 
wrote[vbcol=seagreen] 
implements[vbcol=seagreen] 
for[vbcol=seagreen] 
format,[vbcol=seagreen] 
contain[vbcol=seagreen] 
that[vbcol=seagreen] 
is[vbcol=seagreen] 
like[vbcol=seagreen] 

[ Post a follow-up to this message ]

Hi Nick,
Well, I finally did get this to work.  My registry error has vanished.  I am
 not sure why, and can  not seem to reproduce it now.  Here's what I came up
 with:

Option Explicit On

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO
Imports Interop_PipeComplib
Imports Interop_MscsCore

Public Class AICPipeline_TSCtlNo


Implements IPipelineComponentAdmin
Implements IPipelineComponent

Const E_NOTIMPL As Integer = &H80004001
Private Const E_FAIL As Integer = &H80004005

Private m_strFileLocation As String


Private Sub IPipelineComponent_EnableDesign(ByVal fEnable As Integer) Implem
ents IPipelineComponent.EnableDesign
'Do Nothing
End Sub	'IPipelineComponent_EnableDesign

Private Function IPipelineComponent_Execute(ByVal dictTransport As Object, B
yVal pdispContext As Object, ByVal lFlags As Integer) As Integer Implements 
IPipelineComponent.Execute


On Error GoTo ExecuteError

'Overwrite configuration defaults with any values passed in
 IPipelineComponentAdmin_SetConfigData(di
ctTransport)

If Not pdispContext Is Nothing Then
 IPipelineComponentAdmin_SetConfigData(pd
ispContext)
End If

' Write the new file with reconstructed Trans Set Ctl Numbers
' in ST and SE segments
ProcessDocument(dictTransport("working_data").ToString)

'return success
Return 0

ExecuteError:
EventLog.WriteEntry("AIC", "The following Error was encountered: " + Err.Des
cription, EventLogEntryType.Error)
'LogFail("The following Error was encountered: " + Err.Description)
Return 2		  'Serious Error Occurred

End Function	'IPipelineComponent_Execute

Private Function IPipelineComponentAdmin_GetConfigData() As Object Implement
s IPipelineComponentAdmin.GetConfigData

Dim objectConfig As New CDictionary

objectConfig.Value("File_Location") = m_strFileLocation

IPipelineComponentAdmin_GetConfigData = objectConfig

End  Function	'IPipelineComponentAdmin_GetCon
figData

Private Sub  IPipelineComponentAdmin_SetConfigData(By
Val pDict As Object) Imp
lements IPipelineComponentAdmin.SetConfigData

' set m_strFileLocation
If Not IsDBNull(pDict("File_Location")) Then
m_strFileLocation = (pDict("File_Location")).ToString
End If
'If m_strFileLocation = "" Then
'	m_strFileLocation = "C:\BTS Output\PClaim_" & Now.ToFileTime.ToString & ".
837"
'End If

End  Sub	'IPipelineComponentAdmin_SetConfigDa
ta

Private Function ProcessDocument(ByVal strDoc As String) As Integer

Try


'Dump file contents into a string builder with initial capacity of
'100000 characters
Dim fileContent As New StringBuilder(strDoc, 100000)

'Set up a stringbuilder to hold the Trans Ctrl Number
Dim sbTranNumber As New StringBuilder(9)
Dim sbRcvrName As New StringBuilder(10)

'Isolate the value to be used as the new
'Transaction Set Control Number
With fileContent
If .Length > 0 Then

Dim i As Integer

Dim startPoint As Integer = (strDoc.IndexOf("~BHT*0019*") + 13)

For i = startPoint To (startPoint + 10)
'Counts on TransSetCtrlNumber being an integer
If IsNumeric(.Chars(i)) Then
sbTranNumber.Append(.Chars(i))

Else
GoTo 1
End If

Next i

'Get the insurer's name as a prefix for the
'output file
1:				  startPoint = (strDoc.IndexOf("~NM1*40*2*") + 10)

For i = startPoint To startPoint + 10
If Char.IsLetter(.Chars(i)) Then
sbRcvrName.Append(.Chars(i))

Else
GoTo 2
End If
Next

'Replace BTS assigned TranCtlNumber (0001) with
'value in string builder
2:				  .Replace("ST*837*0001", "ST*837*" & sbTranNumber.ToString)
.Replace("0001~GE*", sbTranNumber.ToString & "~GE*")

End If
End With

'Create a StreamWriter to write the file
'to the output directory with the new file content,
'using the extracted Insurer's Name in the file name
Dim stWrite As New StreamWriter("D:\BTS Test Instances\priclaim out\" & sbRc
vrName.ToString & "_" & Now.ToFileTime.ToString & ".837", False)
With stWrite
.Write(fileContent.ToString)
.Flush()
.Close()
End With

Return 0


Catch ex As Exception
Return 2

End Try

End Function

<ComRegisterFunctionAttribute()> Public Shared Sub RegisterFunction(ByVal t 
As Type)
Try
Microsoft.Win32.Registry.ClassesRoot.CreateSubKey("CLSID\\{" + t.GUID.T
oString().ToUpper() + "}\\Implemented Categories\\{5C6C30E7-C66D-40E3-8
89D-08C5C3099E52}")
Microsoft.Win32.Registry.ClassesRoot.CreateSubKey("CLSID\\{" + t.GUID.T
oString().ToUpper() + "}\\Implemented Categories\\{BD193E1D-D7DC-4B7C-B
9D2-92AE0344C836}")
Catch
End Try
End Sub

<ComUnregisterFunctionAttribute()> Public Shared Sub UnregisterFunction(ByVa
l t As Type)
Try
Microsoft.Win32.Registry.ClassesRoot.DeleteSubKey("CLSID\\{" + t.GUID.T
oString().ToUpper() + "}\\Implemented Categories\\{5C6C30E7-C66D-40E3-8
89D-08C5C3099E52}")
Microsoft.Win32.Registry.ClassesRoot.DeleteSubKey("CLSID\\{" + t.GUID.T
oString().ToUpper() + "}\\Implemented Categories\\{BD193E1D-D7DC-4B7C-B
9D2-92AE0344C836}")
Catch
End Try
End Sub


End Class



"Nick Malik" wrote:

> Tell you what... I will fish out my code for substituting EDI values in
> Biztalk 2002 and compare code.  I'll get an answer for you in the morning
> (Pacific time).
>
> (I can mail it to you if you'd like.  I have a fairly stable EDI
> parser/serializer in C#).
>
> --- Nick
>
> "JTnospam@verizon.net" <JTnospamverizonnet@discussions.microsoft.com> wrot
e
> in message news:50479DFC-1ED8-49AC-93EB-EFF9C801A913@microsoft.com... 
> code in trying to get my post to look pretty.  Bottom line - I still can't
> get this to work for me.  I've taken a different approach now in my AIC
> (code below).  Nevertheless, the result I get is unintelligible (sample
> below).  I am sure it has to do with either my misinterpreting what the AI
C
> is sending me in strDoc or not coding the output correctly in the
> StringWriter OR maybe just having the wrong approach altogether.  Perhaps 
I
> should be doing this with a pipeline component, or with a component that I
> can call in an orchestration.  Also, I am not sure that the AIC really wan
ts
> a string of my new document as a return value - some examples I have seen
> show 0 for success, 2 for error.  Thanks again. 
> out\PClaim_" & Now.ToFileTime.ToString & ".837", False) 
> ???????????????????'??????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ??????????????????????????????????????????????????????????????????????????
??
> ????????????????????????????????????????????????????????????????????????? 
> wrote 
> implements 
> for 
> format, 
> contain 
> that 
> is 
> like 
>
>
>

[ Post a follow-up to this message ]