Question

很少有使用VB的经验并且遇到头疼。我需要拿IP并反转它。

例如 - 11.22.33.44将变为44.33.22.11

我猜是反过来，然后基于分裂和反转每个部分。定界符

严格来说，我正在尝试做的是颠倒八位字节的顺序 - 192.168.42.23应该变成23.42.168.192

由于

编辑 - 澄清

Answer 1

对于你的例子，字符串反向将起到作用。

Dim txt
txt="This is a beautiful day!"
document.write(StrReverse(txt))

Output:

!yad lufituaeb a si sihT

这仅适用于您提供的示例。如果你需要扭转这个： 12.34.56.78，以上将返回87.65.43.21，但你想要78.56.34.12。

然后结合split + loop：

    a=Split("11.22.33.44", ".", 4)
    b= a(0)
    For i = 1 To 3
      b = a(i) & "." & b
    Next
    WScript.Echo  b

更新：或者根本没有循环！

    a=Split("11.22.33.44", ".", 4)
    b= a(3) & "." & a(2) & "." & a(1) & "." & a(0)
    WScript.Echo  b

Answer 2

您需要将IP地址拆分为八位字节，然后按相反的顺序重新组合：

addr1 = Split("11.22.33.44", ".")
maxindex = UBound(addr1)
ReDim addr2(maxindex)
For i = 0 To maxindex
  addr2(maxindex - i) = addr1(i)
Next

WScript.Echo "Forward: " & Join(addr1, ".")
WScript.Echo "Reverse: " & Join(addr2, ".")

输出：

Forward: 11.22.33.44
Reverse: 44.33.22.11

VBScript - 获取IP地址并将其反转

2 个答案: