Solved

Text manipulation help ...

Posted on 2003-10-27
7
169 Views
Last Modified: 2010-05-03
A user started a session and at the halfway , he want to remove the timestamp , it'll be

Output :
[3:00:00PM ] blahblah
[3:00:01PM ] dsadsa
dsdsa
dasdsadsa

How can i do that
Output :

blahblah
dsadsa
dsdsa
dasdsadsa

??

My original code is  :

Private Sub StatusLog(What As String)
If TimeStampValue = 1 Then   '<<< Timestamp enabled
    With txtStatus
        .SelLength = 0
        .SelStart = Len(txtStatus.Text)
        .SelColor = StatusTimeColor
        .SelText = "[ " & Time() & " ]  "
        .SelColor = StatusMainTextColor
        .SelText = What & vbCrLf
    End With
Else       'Timestamp disabled

With txtStatus
        .SelLength = 0
        .SelStart = Len(txtStatus.Text)
        .SelColor = StatusMainTextColor
        .SelText = What & vbCrLf
    End With

End If

End Sub

But it doesnt override the previous text.


-----------------

0
Comment
Question by:vbaddictor
  • 2
  • 2
  • 2
  • +1
7 Comments
 
LVL 7

Expert Comment

by:_agj_
Comment Utility
what exactly do u want. Clearer plz.

"But it doesnt override the previous text."  ---> meaning?

the code looks ok, btw.
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
It appears that you are using Richtextbox control, right?, then you need to use the specific funtions to work with RTF formated text, it appears that you are using simple text methods.
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
To be more specific:
.selRTF
.textRTF
i think.
0
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 
LVL 85

Expert Comment

by:Mike Tomlinson
Comment Utility
With a richtextbox, the .SelText function CHANGES whatever is currently selected to the value you pass it.  If nothing is currently selected, then the .SelText function inserts its text into the richtextbox where the insert point currently is.  

To remove the time stamps, you will need to walk the contents of your box, using .SelStart and .SelLength to pick out the time stamp portions and take them out using .SelText ="".

Now it appears that the your users will be able to turn time stamps on/off at will.
A major design decision will have to be made:  

---> If time stamps are initially on, then turned off, and then later turned back on....should the original time stamps be restored?

To accomplish this, you will have to "store" the time stamps for later retrieval.

One way to do this would be by keeping your time stamps w/ messages in a collection and then rebuild the entire chat history with the appropriate colors.
You could also cheat and use two richtextboxes, one with timestamps and one without.  You can then simulate turning time stamps on/off by making one box visible while the other is not and then switching their visibility states.

I believe you also have some code that allows the user to change the stampcolor and msgcolor at will no?  If you do, then that function needs to be modified to take into account the fact that the time stamp may or may not be present in the richtextbox.

Anyway, I do ramble on....let us know how you want the chat app to behave and we can help you accomplish that.

Cheers
0
 

Author Comment

by:vbaddictor
Comment Utility
Idle_Mind , ya , that's the problem ... the main problem is i dunno how to restore .. when user turn it on then off then on again .. sigh .. can u pelase help me ?
0
 

Author Comment

by:vbaddictor
Comment Utility
oh ic ... Idle_Mind .. using 2 rtbs might be a good solution ..
0
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 50 total points
Comment Utility
If you go with the two richtextbox method, then name your second richtextbox txtStatus2, set it's visible property to false, and place it right on top of the first richtextbox.

Then you can change your code to this:
Private Sub StatusLog(What As String)
    With txtStatus
            .SelLength = 0
            .SelStart = Len(txtStatus.Text)
            .SelColor = StatusTimeColor
            .SelText = "[ " & Time() & " ]  "
            .SelColor = StatusMainTextColor
            .SelText = What & vbCrLf
    End With
    With txtstatus2
            .SelLength = 0
            .SelStart = Len(txtstatus2.Text)
            .SelColor = StatusMainTextColor
            .SelText = What & vbCrLf
    End With
End Sub

And toggle your stamps on/off by passing true false to this function:
Private Function showTimeStamps(showStamps As Boolean)
    If showStamps Then
        txtstatus2.Visible = False
        txtStatus.Visible = True
    Else
        txtStatus.Visible = False
        txtstatus2.Visible = True
    End If
End Function
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

728 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now