VB .NET 中的结构，如 COBOL答案

【问题标题】：Structures in VB .NET like COBOLVB .NET 中的结构，如 COBOL
【发布时间】：2013-05-21 08:37:41
【问题描述】：

我正在将 COBOL 程序转换为 VB .NET。

有没有办法像 COBOL 一样使用 VB NET 中的结构？

例如：

COBOL：

01 VAR1
    10  VAR11 PIC X
    10  VAR12 PIC X

MOVE 'AA' TO VAR1

之后 VAR11 = A 和 VAR12 = A

有没有办法在 VB NET 中将字符串移动到结构的顶部标题上，并且该结构的每个成员都获取相应字符串的“片段”？

谢谢。

【问题讨论】：

【解决方案1】：

没有。但是 VB.Net（嗯，它不是 VB 特定的）String 类提供了很多功能 - 您可以将 index 它像一个数组一样，您可以要求 Substrings 等等。

不要试图从字面上复制 COBOL 程序的所有方面。寻找可以编写更简洁的 VB 代码的小胜利。

【讨论】：

【解决方案2】：

这可能是红鲱鱼，但会是这样的：

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

有什么帮助吗？组级移动几乎是字节移动的无类型字节。也许明智地使用记忆动作就足够了？或者让整个事情崩溃，因为这将是值得水泥围栏的精致代码。

使用它可能还需要明智地使用

VarPtr(), StrPtr(), or ObjPtr()

获取指针。

【讨论】：