Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. Kreiss

    Write to text file in reverse order

    Thanks for the responses. Kacy
  2. Kreiss

    Write to text file in reverse order

    I'm writing a date field and error description Here is my existing code 'create reference to Microsoft Scripting Runtime On Error Resume Next Dim fso As Object Dim txtFile As Object Dim ErrorLogDir As String ReportDir = "M:\SAPS\TRP\trp_reports\1PrintDetails.txt" Set fso =...
  3. Kreiss

    Write to text file in reverse order

    I would like to be able to write to a text file so the new stuff is at the top of the file. i.e. INSTEAD OF: TEST1 TEST2 TEST3 TEST4 TEST5 I WOULD LIKE: TEST5 TEST4 TEST3 TEST2 TEST1 Not for sure how to accomplish this: Thanks for the help Here is my existing code 'create reference to...
  4. Kreiss

    Find

    I'm wondering if there is a way or code already out there to do something similiar to Microsoft's Word "Find" function. So a user could enter what to find and it would find ever instance of it in the text box. Thanks in advance, Kacy
  5. Kreiss

    Treeview (Lock Nodes)

    Got it figured out....In case anyone wants to know.... set treeview labeledit property to one exp. TreeView1.LabelEdit = 1
  6. Kreiss

    Treeview (Lock Nodes)

    Is there a way to lock the nodes in the treeview so they can't be renamed by clicking on them twice to get the focus to change the name (similiar how its done to rename a folder in Windows Explorer) Thanks, Kacy
  7. Kreiss

    Locking Word

    Here is a sample of the code I'm using. I'm not for sure how to set it to read only from within the application. I need someway to unlock it so I can add the information to the document then lock it once the Word document is open so changes can't be made. Thanks in advace... On Error GoTo...
  8. Kreiss

    Locking Word

    I have an application that opens Word 97. I am trying to lock Word so users can't make any chages to the document. Any suggestions on locking the document so changes can't be made? Thanks.
  9. Kreiss

    Add/Change/Delete Cbo Box

    Is there a way or code to be able to use a combo box so users can add, change or delete items from it. What I am hoping for is like in the design view of VB under the list property you can add, change or delete from the list. What I would like to do is have on the form where users can do this...
  10. Kreiss

    Clear a TreeView

    Is there a way to clear a treeview? Thanks in advance, Kacy
  11. Kreiss

    Concat Problem

    Thanks....I was trying to concat the "Right(s2,11)", while it should have been "Right(s1,11)". Thanks again
  12. Kreiss

    Remove Spaces

    Thanks...Good to know about the vbTab.
  13. Kreiss

    Concat Problem

    Below is code I have but the concat is not working...Does anyone see anything wrong? Do While Not ts.AtEndOfStream 'replace the comma from textfile b/t dln & dup and replace with no spaces s1=Replace(ts.ReadLine, ",","") s2=Left(s1,1)+Right(s2,11) 'send to printer...
  14. Kreiss

    Remove Spaces

    I've got it figured out. I goahead and save it as a comma delimitted file rather than just copying the data over into a textfile. It works. Thanks for everyone's help. kacy
  15. Kreiss

    Remove Spaces

    Ok, I guess whats between the 9 and the zero is actual a tab. I looked at the text file and brought it into word and this is what I saw. Notice the graphic indicating its a tab between the two. How do I "Replace" the tab with ""? R99999999999->0 Thanks in advance, Kacy
  16. Kreiss

    Remove Spaces

    Ok, Thanks...Howabout if there were three spaces between.... R99999999999 0
  17. Kreiss

    Remove Spaces

    I have a string in a text file.... R99999999999 0 I want to remove the spaces between the last 9 and the zero so it looks like this: R999999999990. I tried using "Trim", but no luck. Any advice? Do While Not ts.AtEndOfStream s = ts.ReadLine autECLSession.autECLPS.SendKeys...
  18. Kreiss

    Do Loop Trouble

    Thanks everyone!
  19. Kreiss

    Do Loop Trouble

    I have the following code and getting an "Object doesn't support this method: 'ts.EOF'" error. It works fine without the loop, but i really need it to go through the whole file and it would never be the same number of records. I would appreciate if someone could give me some help. Thanks in...
  20. Kreiss

    No notification on new mail arrival

    I've tried all of the above and still no luck. I'm using O.S. ME and office XP. Thaks...

Part and Inventory Search

Back
Top