Type record

v1 As String * 14

v2 As String * 14

v3 As String * 14

v4 As String * 14

v5 As String * 14

v6 As String * 14

v7 As String * 14

v8 As String * 14

End Type

Dim verbrecord As record

Sub convdata()

MsgBox prompt:="Convert database to random", Buttons:=vbExclamation

Dim verb$(8)

Dim verbvb$

Dim id

Dim pageverb$(100)

20 lang$ = InputBox(prompt:="enter language:", Title:="Sentence")

30 past$ = InputBox(prompt:="enter past or verbs", Title:="Verb File")

40 Filename$ = "h:\private\my documents" + "\" + past$ + ".csv"

50 FILENAME2$ = "h:\private\my documents" + "\" + past$

60 Open FILENAME2$ For Random As #2 Len = 122

80 Open Filename$ For Input As #1

90 If EOF(1) Then GoTo 240

100 Input #1, v1$, v2$, v3$, v4$, v5$, v6$, v7$, v8$

110 cnt = cnt + 1

120 MsgBox (cnt & " " & v1$ & " " & v2$ & " " & v3$ & " " & v4$) & (" " & v5$ & " " & v6$ & " " & v7$ & " " & v8$)

140 LSet verb$(1) = v1$

150 LSet verb$(2) = v2$

160 LSet verb$(3) = v3$

170 LSet verb$(4) = v4$

180 LSet verb$(5) = v5$

190 LSet verb$(6) = v6$

200 LSet verb$(7) = v7$

210 LSet verb$(8) = v8$

verbrecord.v1 = v1$

verbrecord.v2 = v2$

verbrecord.v3 = v3$

verbrecord.v4 = v4$

verbrecord.v5 = v5$

verbrecord.v6 = v6$

verbrecord.v7 = v7$

verbrecord.v8 = v8$

pageverb$(cnt) = v1$

 

220 Put #2, cnt, verbrecord

230 GoTo 90

240 Close #1

250 Close #2

260 MsgBox prompt:="count " & " " & cnt

270 MsgBox FILENAME2$, Title:=" For Sentence Model"

275 MsgBox prompt:=pageverb$(1) & Chr$(13) & pageverb$(2) & Chr$(13) & pageverb$(3) & Chr$(13) & pageverb$(4) & Chr$(13) & pageverb$(5) & Chr$(13) & pageverb$(6) & Chr$(13) & pageverb$(7) & Chr$(13) & pageverb$(8) & Chr$(13) & pageverb$(9) & Chr$(13) & pageverb$(10)

276 MsgBox prompt:=pageverb$(11) & Chr$(13) & pageverb$(12) & Chr$(13) & pageverb$(13) & Chr$(13) & pageverb$(14) & Chr$(13) & pageverb$(15) & Chr$(13) & pageverb$(16) & Chr$(13) & pageverb$(17) & Chr$(13) & pageverb$(18) & Chr$(13) & pageverb$(19) & Chr$(13) & pageverb$(20)

277 MsgBox prompt:=pageverb$(21) & Chr$(13) & pageverb$(22) & Chr$(13) & pageverb$(23) & Chr$(13) & pageverb$(24) & Chr$(13) & pageverb$(25) & Chr$(13) & pageverb$(26) & Chr$(13) & pageverb$(27) & Chr$(13) & pageverb$(28) & Chr$(13) & pageverb$(29) & Chr$(13) & pageverb$(30)

278 MsgBox prompt:=pageverb$(31) & Chr$(13) & pageverb$(32) & Chr$(13) & pageverb$(33) & Chr$(13) & pageverb$(34) & Chr$(13) & pageverb$(35) & Chr$(13) & pageverb$(36) & Chr$(13) & pageverb$(37) & Chr$(13) & pageverb$(38) & Chr$(13) & pageverb$(39) & Chr$(13) & pageverb$(40)

MsgBox prompt:=pageverb$(41) & Chr$(13) & pageverb$(42) & Chr$(13) & pageverb$(43) & Chr$(13) & pageverb$(44) & Chr$(13) & pageverb$(45) & Chr$(13) & pageverb$(46) & Chr$(13) & pageverb$(47) & Chr$(13) & pageverb$(48) & Chr$(13) & pageverb$(49) & Chr$(13) & pageverb$(50)

279 MsgBox prompt:=pageverb$(51) & Chr$(13) & pageverb$(52) & Chr$(13) & pageverb$(53) & Chr$(13) & pageverb$(54) & Chr$(13) & pageverb$(55) & Chr$(13) & pageverb$(56) & Chr$(13) & pageverb$(57) & Chr$(13) & pageverb$(58) & Chr$(13) & pageverb$(59) & Chr$(13)

MsgBox prompt:=pageverb$(61) & Chr$(13) & pageverb$(62) & Chr$(13) & pageverb$(63) & Chr$(13) & pageverb$(64) & Chr$(13) & pageverb$(65) & Chr$(13) & pageverb$(66) & Chr$(13) & pageverb$(67) & Chr$(13) & pageverb$(68) & Chr$(13) & pageverb$(69) & Chr$(13)

280 End

 

End Sub

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

 

 

End Sub