推荐|Python-VBA编程500例-003(入门级)

1、旋转字符串：

1-1、Python：

1-2、VBA：

欢迎志同道合者一起交流学习，我的QQ:94509325/微信号

在实际应用中，旋转字符串(Rotate String)有以下几个现实意义：

1、数据加密：通过对字符串进行旋转操作，可以实现对数据的加密。旋转字符串可以改变字符串中字符的顺序，增加了破解的难度，可以保护数据的安全性。

2、字符串搜索：旋转字符串可以用于字符串的搜索和匹配。例如，在一段文本中查找特定字符串的时候，可以通过旋转字符串来增加搜索的范围和准确性。

3、回文词判断：回文词是指正读和反读都相同的词。通过旋转字符串，可以将字符串翻转，然后判断翻转后的字符串和原字符串是否相等，从而判断是否是回文词。

4、字符串排列：旋转字符串可以生成字符串的全排列。通过不同的旋转操作，可以生成不同顺序的字符串，从而获得字符串的所有排列情况。

5、字符串压缩：通过旋转字符串，可以将一段重复出现的字符串压缩成一个较短的字符串。例如，将连续重复的字符串进行旋转，可以将多个连续的重复字符压缩成一个字符。

总之，旋转字符串在实际应用中具有广泛的使用场景，可以用于数据加密、字符串搜索、回文词判断、字符串排列等多个方面。

1、旋转字符串：

1-1、Python：


# 1.问题描述
# 给定一个字符串(以字符串数组的形式)和一个偏移量，根据偏移量原地从左向右旋转字符串
# 2.问题示例
# 输入str="abcdefg"，offset=3，输出“efgabcd”；输入str="abcdefg"，offset=0，输出“abcdefg”；输入str="abcdefg"，offset=1，输出“gabcdef”
# 3.代码实现:
class Solution:
    # 参数s： 字符列表
    # 参数offset： 整数
    # 返回值： 无
    def rotateString(self, s, offset):
        if len(s) > 0:
            offset=offset % len(s)
        temp = (s + s)[len(s) - offset:2 * len(s) - offset]
        for i in range(len(temp)):
            s[i] = temp[i]
# 主函数
if __name__ == '__main__':
    s = ["a", "b", "c", "d", "e", "f", "g"]
    offset = -1
    solution =Solution()
    solution.rotateString(s, offset)
    print("输入：s=", ["a", "b", "c", "d", "e", "f", "g"], "  ", "offset = ", offset)
    print("输出：s=", s)
# 4.运行结果：
# 输入：s= ['a', 'b', 'c', 'd', 'e', 'f', 'g']    offset =  -1
# 输出：s= ['b', 'c', 'd', 'e', 'f', 'g', 'a']

1-2、VBA：


Rem 自定义函数
Function rotateString(str() As String, offset As Integer) As String()
    Dim lenth As Integer
    lenth = UBound(str) - LBound(str) + 1
   
    If lenth = 0 Or offset = 0 Then
        rotateString = str
        Exit Function
    End If
    
    offset = offset Mod lenth
    
    Dim startIdx As Integer
    startIdx = (lenth - offset) Mod lenth
    
    Dim rotatedStr() As String
    ReDim rotatedStr(LBound(str) To UBound(str))
    
    Dim i As Integer
    For i = LBound(str) To UBound(str)
        rotatedStr(i) = str(startIdx)
        startIdx = (startIdx + 1) Mod lenth
    Next i
    
    rotateString = rotatedStr
End Function
 
Rem 测试函数
Sub TestRotateString()
    Dim str() As String
    str = Split("a,b,c,d,e,f,g,h", ",")
    
    Dim offset As Integer
    offset = -4
    
    Dim rotatedStr() As String
    rotatedStr = rotateString(str, offset)
    
    Debug.Print "输入字符串：", Join(str, ", ")
    Debug.Print "偏移量：", offset
    Debug.Print "旋转后的字符串：", Join(rotatedStr, ", ")
End Sub
 
Rem 执行测试函数
Sub RunTest()
    Call TestRotateString
End Sub