字符串中随机插入字符，满足一下条件

excel.x · 发表于 2020-2-26 23:58

本帖最后由 excel.x 于 2020-2-27 00:19 编辑

哪个大佬帮忙看看：
用字母ABCD随机产生100个字符串，字母顺序不固定，ABCD可以重复，最多4个字母，最少一个字母,
然后在每个字符串之间随机插入一对[ ]，可以在字符串的最前面或最后面，
可以没有[ ]，若有一定是[在前，]在后，且中间至少有一个字母，但字母不能全部在[]里面。

怎么实现呢？非常感谢！

山菊花 · 发表于 2020-2-27 10:52

Sub 随机()
Dim Arr(1 To 100, 1 To 1), cTxt$, n%, n1%, n2%
Randomize
For i = 1 To 100
      n = Int(Rnd * 4 + 1)
      For j = 1 To n
         cTxt = IIf(j = 1, "", cTxt) & Chr(Int(Rnd * 4 + 65))
      Next
      n1 = IIf(n = 1, 0, Int(Rnd * (n - 1) + 1))
      n2 = Int(Rnd * (n - n1) + n1 + 1)
      If n1 > 1 Or n2 < n Then
         cTxt = Left(cTxt, n1 - 1) & "[" & Mid(cTxt, n1)
         cTxt = Left(cTxt, n2 + 1) & "]" & Mid(cTxt, n2 + 2)
      End If
      Arr(i, 1) = cTxt
Next
End Sub

excel.x · 发表于 2020-2-27 14:06

山菊花发表于 2020-2-27 10:52
Sub 随机()
Dim Arr(1 To 100, 1 To 1), cTxt$, n%
Randomize

老师好，这样写好像[] 只在两边产生，中间没有产生的机会呢？

山菊花 · 发表于 2020-2-27 14:10

excel.x 发表于 2020-2-27 14:06
老师好，这样写好像[] 只在两边产生，中间没有产生的机会呢？

就是看到你的要求：可以在字符串的最前面或最后面

excel.x · 发表于 2020-2-27 14:14

山菊花发表于 2020-2-27 14:10
就是看到你的要求：可以在字符串的最前面或最后面

老师好，我没说清楚，是可以在在字符串的最前面或最后面，不需要一定在，不然就不随机了。比如有两个字母AB,就可以有_A_B_三个随机位置插入[].帮忙再看看

chxw68 · 发表于 2020-2-27 14:57

Sub test()
Dim r%, i%
Dim arr, brr()
Randomize Timer
ReDim arr(1 To 100, 1 To 1)
For i = 1 To UBound(arr)
n = 1 + Int(Rnd() * 4)
ReDim brr(1 To n + 2)
brr(1) = "["
brr(2) = "]"
For j = 1 To n
brr(j + 2) = Chr(65 + Int(Rnd() * 4))
Next
For k = 1 To UBound(brr) - 1
m = Int(Rnd() * (UBound(brr) - k)) + k + 1
temp = brr(k)
brr(k) = brr(m)
brr(m) = temp
Next
For k = 1 To UBound(brr)
If brr(k) = "[" Then
n1 = k
ElseIf brr(k) = "]" Then
n2 = k
End If
Next
If n1 > n2 Then
temp = brr(n1)
brr(n1) = brr(n2)
brr(n2) = temp
End If
arr(i, 1) = Replace(Join(brr, ""), "[]", "")
Next
With Worksheets("sheet1")
.Range("a1").Resize(UBound(arr), 1) = arr
End With
End Sub

复制代码

chxw68 · 发表于 2020-2-27 14:57

详见附件。

micch · 发表于 2020-2-27 15:17

本帖最后由 micch 于 2020-2-27 15:43 编辑

没看清楚，可以没有[]，那就是一个字母的时候肯定没有[]

重写一个

Sub test()
Dim arr(1 To 100, 0)
s$ = "ABCD"
Randomize
For i% = 1 To 100
x$ = ""
For k% = 1 To 4 '随机字母
x = x & Mid(s, Int(1 + Rnd * IIf(k < 2, 4, 8)), 1)
Next
m% = Int(Rnd * 9)
If Len(x) > 1 And m > 3 Then
m = Int(Rnd * Len(x)) '"["
arr(i, 0) = Left(x, m) & "["
x = Mid(x, m + 1)
m = 1 + Int(Rnd * Len(x)) '"]"
arr(i, 0) = arr(i, 0) & Left(x, m) & "]" & Mid(x, m + 1)
Else
arr(i, 0) = x
End If
Next
[a1:a100] = arr
End Sub

复制代码

chxw68 · 发表于 2020-2-27 15:21

没仔细看要求，修改好了。

micch · 发表于 2020-2-27 15:58

重写加下注释，

Sub test()
Dim Arr(1 To 100, 0) '100个字符串
s$ = "ABCD"
Randomize
For i% = 1 To 100
x$ = ""
For k% = 1 To 4 '随机字母组成字符串，至少一个字母，最多4个
x = x & Mid(s, Int(1 + Rnd * IIf(k < 2, 4, 8)), 1) '8可以改，越大字符串长度短的可能越大
Next
m% = Int(Rnd * 9) '0-9随机数
If Len(x) > 1 And m > 3 Then '字母多于1个，并且m大于3时插入 [ ]，3可以改，影响是否插入 [ ] 的几率
m = Int(Rnd * Len(x))
Arr(i, 0) = Left(x, m) & "["
x = Mid(x, m + 1)
m = 1 + Int(Rnd * Len(x))
Arr(i, 0) = Arr(i, 0) & Left(x, m) & "]" & Mid(x, m + 1)
Else '一个字母就没有[]，随机数小于4时不插入 [ ]
Arr(i, 0) = x
End If
Next
[a1:a100] = Arr '输出到表格
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

字符串中随机插入字符，满足一下条件

评分

评分

评分