Skip to content

 

 

 

User login

Home

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
If (Mid([DESCRIPTION], tno, 1) = " ") Then
dno3 = tno
tno = dno2
End If
tno = tno - 1
Loop
tno = dno3 + 1
dno4 = 0
Do While tno < dno3 + 31
If (Mid([DESCRIPTION], tno, 1) <> " ") Then
dno4 = tno
tno = dno3 + 32
End If
tno = tno + 1
Loop
[DESC1] = Left([DESCRIPTION], dno)
[DESC2] = Mid([DESCRIPTION], dno2, dno3 - dno2 + 1)
[DESC3] = Mid([DESCRIPTION], dno4)
------------------------------------------------

Permalink

Comments

Women in summer would like to

September 3, 2010 by topics, 2 days 12 hours ago
Comment id: 11615

Women in summer would like to become beautiful. Everything can grab other's eyes is their best friends.Products make them beauty and confident is their favourite. Look in the street,you can see many different types of make up to show women's personality. Welcome to the shop, the following is our products, free shipping. Soccer ShoesCheap Soccer ShoesNike Soccer ShoesAdidas Soccer ShoesNike Soccer Shoes saleAdidas Soccer Shoes saleUGGUGGsUGG BootUGG BootsUGG Boots SaleCheap UGG BootsUGG Boots CheapWomen UGG bootsugg boots cardyugg cardy bootsNike AirNike Air MaxNike Air Max ShoesNike SBNike DunkNike Dunk SBNike Dunk SB ShoesNike Shox Nike Shox ShoesTimberlandTimberland saleTimberland bootsTimberland boots onlineTimberland on saleNew timberland bootsWomen BagsWomen Bags SaleWomen HandbagsWomen Handbags SaleWomen New BagsCheap BagsCheap Bags On SaleUGGUGG bootsUGG boots saleUGG boots shortShort uggShort ugg bootsUgg boots tallNew women bagsNew women bags saleNew women bags sale onlineLouis Vuitton HandbagsGucci bagsNikeNike ShoesNike Shoes SaleNike runningNike running shoesNike trainersNike trainers shoesTimberlandTimberland bootsTimberland boots saleTimberland bootTimberland boot saleTimberland boots cheapMen timberlandsMBTMBT ShoesMBT Chapa GTXMBT Men ShoesMBT Women ShoesDiscount MBT ShoesLV HandbagsGucci HandbagsChanel HandbagsChloe HandbagsD&G HandbagsDior HandbagsFendi HandbagsHermes HandbagsJimmy Choo BagsMarc Jacobs BagsMiu Miu HandbagsMulberry BagsPrada HandbagsVersace HandbagsYves Saint LaurentBalenciaga BagsBurberry HandbagsLV HandbagsGucci HandbagsChanel HandbagsChloe HandbagsD&G HandbagsDior HandbagsFendi HandbagsHermes HandbagsJimmy Choo BagsMarc Jacobs BagsMiu Miu HandbagsMulberry BagsPrada HandbagsVersace HandbagsYves Saint LaurentBalenciaga BagsBurberry Handbags Those who want to become most beautiful in the world should try them. Just ones can make you different. Girls who want to grab your boyfriends's heart is necessary to use them.

AdaptiveThemes