如何把英语句子拆分成单词任意排列

zzpsx

He is a nice doctor.

Do you like to watch a football game?

我想把上述句子变成连词成句题，如下：( 也就是把英语句子拆分成单词任意排列，单词后面加逗号，这个代码怎么写？)

he, doctor, nice, is, a,

you, a, football, game, like, to, watch, do,

vbee

查找空格，替换为逗号

sheeboard

python写的,如果要包含符号，换RegexpTokenizer用WordPunctTokenizer,如果要都小写，再加lower()

1. from random import shuffle
   
2. from nltk.tokenize import RegexpTokenizer
   
3. 
   
4. tokenizer=RegexpTokenizer("[\w']+")
   
5. 
   
6. def ran_sen(sentence):
   
7.     sen=tokenizer.tokenize(sentence)
   
8.     shuffle(sen)
   
9.     return ','.join(sen)
   
10. 
    
11. 结果
    
12. In [60]: ran_sen("Do you like to watch a football game?")
    
13. Out[60]: 'to,game,like,you,watch,a,Do,football'
    
14. 
    
15. 
    

复制代码

vbee

把英语句子拆分成单词任意排列

Chip_Kenny

1. Sub zz()
   
2. Dim s$, b(), n, t As Boolean
   
3. s = "He is a nice doctor. Do you like to watch a football game?"
   
4. With CreateObject("vbscript.regexp")
   
5.     .Pattern = "[^\w ]+"
   
6.     .Global = True
   
7.     a = Split(.Replace(LCase(s), ""), " ")
   
8.     ReDim b(UBound(a), 1)
   
9.     For i = 0 To UBound(a)
   
10.         b(i, 0) = Rnd(): b(i, 1) = a(i)
    
11.     Next
    
12.     For i = 0 To UBound(b) - 1
    
13.         n = b(i, 0)
    
14.         For j = i + 1 To UBound(b)
    
15.             If n > b(j, 0) Then n = b(j, 0): jj = j: t = True
    
16.         Next
    
17.         If t Then
    
18.             t = False
    
19.             For j = 0 To 1
    
20.                 n = b(i, j): b(i, j) = b(jj, j): b(jj, j) = n
    
21.             Next
    
22.             a(i) = b(i, 1)
    
23.         End If
    
24.     Next
    
25.     Debug.Print Join(a, ",")
    
26. End With
    
27. End Sub

复制代码

vbee

Chip_Kenny 发表于 2018-10-13 09:45

会出现重复单词
2个football 或 game

Chip_Kenny

vbee 发表于 2018-10-13 10:14
会出现重复单词
2个football 或 game

amended

1. Sub zz()
   
2. Dim s$, b(), n, t As Boolean
   
3. s = "He is a nice doctor. Do you like to watch a football game?"
   
4. With CreateObject("vbscript.regexp")
   
5.     .Pattern = "[^\w ]+"
   
6.     .Global = True
   
7.     a = Split(.Replace(LCase(s), ""), " ")
   
8.     ReDim b(UBound(a), 1)
   
9.     For i = 0 To UBound(a)
   
10.         b(i, 0) = Rnd(): b(i, 1) = a(i)
    
11.     Next
    
12.     For i = 0 To UBound(b) - 1
    
13.         n = b(i, 0)
    
14.         For j = i + 1 To UBound(b)
    
15.             If n > b(j, 0) Then n = b(j, 0): jj = j: t = True
    
16.         Next
    
17.         If t Then
    
18.             t = False
    
19.             For j = 0 To 1
    
20.                 n = b(i, j): b(i, j) = b(jj, j): b(jj, j) = n
    
21.             Next
    
22.         End If
    
23.     Next
    
24.     For i = 0 To UBound(a)
    
25.         a(i) = b(i, 1)
    
26.     Next
    
27.     Debug.Print Join(a, ",")
    
28. End With
    
29. End Sub

复制代码

zzpsx

Chip_Kenny 发表于 2018-10-13 10:51
amended

word 2003里可以用吗？ 我把代码进模块后，按下alt+F8，执行代码，没有反应。

zzpsx

Chip_Kenny 发表于 2018-10-13 10:51
amended

如何拆句成词，并把单词乱序随机排列.rar (21.83 KB, 下载次数: 21)

2020-5-22 22:18 上传

点击文件名下载附件

Chip_Kenny

先選定範圍後執行

1. Sub zz()
   
2. Dim Mytxt, Mysentence, c As New Collection, n&, s$
   
3. Mysentence = Split(LCase(Selection), Chr(13))
   
4. For i = 0 To UBound(Mysentence)
   
5.     If Len(Mysentence(i)) = 0 Then GoTo 1000
   
6.     Set c = Nothing
   
7.     Mytxt = Split(Trim(Mysentence(i)), " ")
   
8.     s = Right(Mytxt(UBound(Mytxt)), 1)
   
9.     Mytxt(UBound(Mytxt)) = Replace(Mytxt(UBound(Mytxt)), s, "")
   
10.     For j = 0 To UBound(Mytxt)
    
11.         c.Add Mytxt(j)
    
12.     Next
    
13.     For j = 1 To c.Count
    
14.         n = Int((c.Count * Rnd) + 1)
    
15.         Mytxt(j - 1) = c(n)
    
16.         c.Remove (n)
    
17.     Next
    
18.     Mytxt(j - 2) = Mytxt(j - 2) & s
    
19.     Mysentence(i) = Join(Mytxt, " ")
    
20. 1000
    
21. Next
    
22. Documents.Add DocumentType:=wdNewBlankDocument
    
23. Selection = Join(Mysentence, Chr(13))
    
24. End Sub

复制代码