Results 1 to 2 of 2

Thread: Strings question

  1. #1

    Thread Starter
    Hyperactive Member
    Join Date
    Apr 2006
    Posts
    384

    Arrow Strings question

    Hi all, I have a question..

    Lets say I have a String which is called (String1).

    charlen = Len(String1)
    and c2 = 250 (how many chars i want to show from the String1)

    I want it that If String1 is bigger than 250 to show the final word as complete like this:

    welcome to my website

    NOT

    welcome to my webs (where s is the 250 character)...

    I used this but it didn't work with me


    Code:
    	IF charlen > c2 Then
    		For i = c2 To charlen
    			IF Mid(String1, i, 1) = " " Then
    				c2 = i
    				EXIT For
    			End IF
    		NEXT
    	End IF

  2. #2
    PowerPoster
    Join Date
    Dec 2004
    Posts
    25,618

    Re: Strings question

    try this
    vb Code:
    1. IF charlen > c2 Then
    2.         For i = c2 To charlen
    3.             IF Mid(String1, i, 1) = " " And Len(Left(String1, i - 1) > charlen - 1 Then
    4.                 string2 =left(string1, i - 1)
    5.                 EXIT For
    6.             End IF
    7.         NEXT
    8.     End IF
    i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case.
    Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next

    dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part

    come back and mark your original post as resolved if your problem is fixed
    pete

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width