Thread: Fast way to truncate string
View Single Post
  #20   Report Post  
Posted to microsoft.public.excel.programming
GS[_2_] GS[_2_] is offline
external usenet poster
  
Posts: 3,514
Default Fast way to truncate string
What about the borders? Are there 20 asterix as in the question
before?
Then try:
strSplit = Application.Rept("*", 20)
vData = Split(ReadTextFile(sFile1), String(80,strSplit))

This suggests each paragraph is delimited by 1600 asterisks! If 20
asterisks like before then...

vData = Split(ReadTextFile(sFile1), String(20, "*"))

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion


Reply With QuoteReply With Quote