Moving from a string into an array and from an array in a string?

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • Berndr
    New Member
    • Feb 2012
    • 3

    Moving from a string into an array and from an array in a string?

    Hi
    I must have a move from a string field into an array
    and back from an array into a string...
    But How?

    Here is the Code:

    Code:
    Imports System.Runtime.InteropServices
    Public Class Class1
        Public WPFFunktion As String
        Public WPFFeld1 As String
        Public WPFFeld2 As String
        Public WPFFeld3 As String
        Public WPFFeld4 As String
        Public WPFFeld5 As String
        Public WPFInfo As String
    
        <StructLayout(LayoutKind.Sequential)> Public Structure MYTabelle1
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=31)> Public TABFelder As String
        End Structure
    
        <StructLayout(LayoutKind.Sequential)> Public Structure MYSATZ
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=31)> Public FUNKTION As String
            <MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> Public MyArray() As MYTabelle1
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=31)> Public Info As String
        End Structure
    
        Declare Function CALLMYFUNKTION Lib "CALLMY" (ByRef VARIADATEN As MYSATZ) As Integer
    
        Public Sub MyCallProg()
    
     
            Dim CblStatus As Integer
    
            Dim MYSATZSATZ001 = New MYSATZ
    
            MYSATZSATZ001.FUNKTION = WPFFunktion
            MYSATZSATZ001.MyArray(0).TABFelder = WPFFeld1
            MYSATZSATZ001.MyArray(1).TABFelder = WPFFeld2
            MYSATZSATZ001.MyArray(2).TABFelder = WPFFeld3
            MYSATZSATZ001.MyArray(3).TABFelder = WPFFeld4
            MYSATZSATZ001.MyArray(4).TABFelder = WPFFeld5
            MYSATZSATZ001.Info = WPFInfo
    
            CblStatus = CALLMYFUNKTION(MYSATZSATZ001)
    
            WPFFunktion = MYSATZSATZ001.FUNKTION.Trim(" ")
            WPFFeld1 = MYSATZSATZ001.MyArray(0).TABFelder.Trim(" ")
            WPFFeld2 = MYSATZSATZ001.MyArray(1).TABFelder.Trim(" ")
            WPFFeld3 = MYSATZSATZ001.MyArray(2).TABFelder.Trim(" ")
            WPFFeld4 = MYSATZSATZ001.MyArray(3).TABFelder.Trim(" ")
            WPFFeld5 = MYSATZSATZ001.MyArray(4).TABFelder.Trim(" ")
            WPFInfo = MYSATZSATZ001.Info.Trim(" ")
    
        End Sub
    
    End Class
    This lines are wrong:

    Code:
    MYSATZSATZ001.MyArray(0).TABFelder = WPFFeld1
    ...
    
    WPFFeld1 = MYSATZSATZ001.MyArray(0).TABFelder.Trim(" ")
    ...
    But why?
    Last edited by Rabbit; Feb 21 '12, 04:27 PM. Reason: Please use code tags when posting code.
Working...