How to break a text field into parts script

March 25, 2009 by mobi

Here's your script on how to break a text field without breaking a word. Below sample breaks the field [DESCRIPTION] into 3 fields [DESC1](30), [DESC2](30) & [DESC3].

Enjoy...
------------------------------------------------
tno = 30
dno = 0
Do While tno > 0
If (Mid([DESCRIPTION], tno, 1) = " ") Then
dno = tno
tno = 0
End If
tno = tno - 1
Loop
tno = dno + 1
[dno2] = 0
Do While tno < dno + 31
If (Mid([DESCRIPTION], tno, 1) <> " ") Then
dno2 = tno
tno = dno + 32
End If
tno = tno + 1
Loop
tno = dno2 + 29
dno3 = 0
Do While tno > dno2