LSet equivalent in .NET

I have added the dll. And I'm trying to use LSet in this way:

LSet Status = StatusMsg was replaced with the below statement

Krutika at 2007-8-30 >

Hi-

I think I have a workaround to do the conversion you want.

Per Ken the LSet function expects to input a string and return a string. The missing link is to define a custom (overrides) ToString function for your structs. It's also nice to define a Length function. You can of course tweak the ToString function to format and align the string exactly the way you want -- I simply concat all members of the UDT.

Once you've defined these functions you can use LSET on the ToString representations:

Dim msg As New STATUS_MSG_TYPE

With msg

.nSYSTEM_ID = "A1"

.sDATE_SENT = "08/01/06"

.sTIME_SENT = ":00:00"

' ...

End With

Dim stat As New STATUS_MSG

stat.sMsg = LSet(msg.ToString, msg.Length)

Or, you in this case you can avoid Lset and just assign the ToString value to stat.sMsg:

stat.sMsg = msg.ToString

Adding these ToString functions looks like this:

Structure STATUS_MSG_TYPE

<VBFixedString(2), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=2)> _

Public nSYSTEM_ID As String

Public sDATE_SENT As String

Public sTIME_SENT As String

Public sMERCHANT_NUMBER As String

Public sTERMINAL_SERIAL_NUMBER As String

Public sTERMINAL_ID_NUMBER As String

Public nSTATUS_CODE As String

Public sCOMMENTS As String

Public Overrides Function ToString() As String

Return String.Format("{0}{1}{2}{3}{4}{5}{6}{7}", Me.nSYSTEM_ID, Me.sDATE_SENT, Me.sTIME_SENT, Me.sMERCHANT_NUMBER, Me.sTERMINAL_SERIAL_NUMBER, Me.sTERMINAL_ID_NUMBER, Me.nSTATUS_CODE, Me.sDATE_SENT)

End Function

Public Function Length() As Integer

Return Me.ToString.Length

End Function

End Structure

Structure STATUS_MSG

<VBFixedString(gnSTATUS_MSG_LEN), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=gnSTATUS_MSG_LEN)> _

Public sMsg As String

Public Overrides Function ToString() As String

Return Me.sMsg

End Function

Public Function Length() As Integer

Return Me.ToString.Length

End Function

End Structure

I hope this does the trick for you. Let me know how it goes.

Best,

Paul

PaulYuk_MS at 2007-8-30 >