replacing "to" to "2" internet txt msging 
Author Message
 replacing "to" to "2" internet txt msging

Hi
I use icq to send text messages to people. You can only send 160 characters
per message.
In order to fit as many words as posible I wanted to make a vbs file that
would replace such words as "see" to "c" and "and" to "&"

How could I make a vbs file replace parts of a string?

Thanx in advance!!



Mon, 12 Jan 2004 18:42:24 GMT  
 replacing "to" to "2" internet txt msging
StrTXT=Replace(StrTXT, "to", "2")
StrTXT=Replace(StrTXT, "and", "&")
etc.


Quote:
> Hi
> I use icq to send text messages to people. You can only send 160
characters
> per message.
> In order to fit as many words as posible I wanted to make a vbs file that
> would replace such words as "see" to "c" and "and" to "&"

> How could I make a vbs file replace parts of a string?

> Thanx in advance!!



Mon, 12 Jan 2004 19:42:50 GMT  
 replacing "to" to "2" internet txt msging
All is well that you enjoy dong that, but please avoid my ICQ number ;-)

ive had one to many of those messages allready, very anoying.
greets,
 Jim teeuwen



Quote:
> StrTXT=Replace(StrTXT, "to", "2")
> StrTXT=Replace(StrTXT, "and", "&")
> etc.



> > Hi
> > I use icq to send text messages to people. You can only send 160
> characters
> > per message.
> > In order to fit as many words as posible I wanted to make a vbs file
that
> > would replace such words as "see" to "c" and "and" to "&"

> > How could I make a vbs file replace parts of a string?

> > Thanx in advance!!



Mon, 12 Jan 2004 20:08:13 GMT  
 replacing "to" to "2" internet txt msging
I think it should be better:
StrTXT=Replace(StrTXT, " to ", " 2 ")
StrTXT=Replace(StrTXT, " and ", " & ")
(spaces have been added).

Best regards,
Mikhail.


Quote:
> StrTXT=Replace(StrTXT, "to", "2")
> StrTXT=Replace(StrTXT, "and", "&")
> etc.



> > Hi
> > I use icq to send text messages to people. You can only send 160
> characters
> > per message.
> > In order to fit as many words as posible I wanted to make a vbs file
that
> > would replace such words as "see" to "c" and "and" to "&"

> > How could I make a vbs file replace parts of a string?

> > Thanx in advance!!



Mon, 12 Jan 2004 20:21:58 GMT  
 replacing "to" to "2" internet txt msging

Quote:
> I use icq to send text messages to people. You can only send 160
characters
> per message.
> In order to fit as many words as posible I wanted to make a vbs file that
> would replace such words as "see" to "c" and "and" to "&"

> How could I make a vbs file replace parts of a string?

Perl already has a module that does this:

 http://search.cpan.org/doc/JARIAALTO/Lingua-EN-Squeeze-1998.1204/Sque...

Squeeze.pm - Shorten text to minimum syllables by using hash table and vowel
deletion

You can use this module e.g. to preprocess text before it is sent to
electronic media that has some maximum text size limit. For example pagers
have an arbitrary text size limit, typically 200 characters, which you want
to fill as much as possible. Alternatively you may have GSM cellular phone
which is capable of receiving Short Messages (SMS), whose message size limit
is 160 characters. For demonstration of this module's SqueezeText() function
, the description text of this paragraph has been converted below. See
yourself if it's readable (Yes, it takes some time to get used to). The
compress ratio is typically 30-40%



Mon, 12 Jan 2004 22:17:05 GMT  
 replacing "to" to "2" internet txt msging
thanx!!


Quote:
> StrTXT=Replace(StrTXT, "to", "2")
> StrTXT=Replace(StrTXT, "and", "&")
> etc.



> > Hi
> > I use icq to send text messages to people. You can only send 160
> characters
> > per message.
> > In order to fit as many words as posible I wanted to make a vbs file
that
> > would replace such words as "see" to "c" and "and" to "&"

> > How could I make a vbs file replace parts of a string?

> > Thanx in advance!!



Tue, 13 Jan 2004 04:56:40 GMT  
 
 [ 6 post ] 

 Relevant Pages 

1. *"*-.,._,.-*"* I"LL TRADE VISUAL C++ FOR VBASIC *"*-.,_,.-*"*

2. How to Replace("String Irregular # of space", "?", "")

3. CSng(Replace("","","")) = 0.0?

4. GetObject("","InternetExplorer.Application") fails in Excel VBA

5. SysCmd 603, "path","path"

6. Loop print "VARIABLE", "VARIABLE"

7. DLL or something like "#"#ยค#"!"#

8. CreateObject("Excel","//server"), MsgBox output

9. "Cannot load """

10. GetObject("","InternetExplorer.Application") fails in Excel VBA

11. "."and ","

12. Disabling "BACK"/"FORWARD" buttons

 

 
Powered by phpBB® Forum Software