Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




Plain Text Replace New Lines?


hi,

can anyone tell me if its possable to replace the new lines in a plain text file with say <br>?

i'm using these code to read the text file:
Code:Public Function LoadLog(logfile As String) As String
    DoEvents
    Dim iFile As Integer
    Dim s As String
    On Error GoTo ErrHandler:
    iFile = FreeFile
    Open logfile For Input As #iFile
    s = Input(LOF(iFile), #iFile)
    LoadLog = s
    Exit Function
ErrHandler:
    On Error Resume Next
    Close #1
    LoadLog = "unable to load: " & logfile & vbNewLine & "Please check the settings for this shortcut"
End Function

cheers




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
How To Replace Text Lines
hi all, now i need a filter that replace <br> to (i think is was) VbNewline
does any one knows howto replace all <br> with new lines from a textbox to textbox2?

Replace Text In File - Multiple Lines - RESOLVED
Building an app to replace keywords or entire sentences. I have been reding the entire file into a string and then using the replace command. The only problem is when printing the file back into the file it looses all the cariage returns. If I read the file one line at a time it may not find the entire keyword. For example if I need to find and replace a table in a HTML document reading one line at a time would not be able to find the table. Any ideas on how I can do a replace command on a file and have the string to find be on multiple lines but still retain the cariage returns. Thanks

Convert Rich Text To Plain Text Without Using Rtf Component
Greetings all!

Here's my problem:

I have some text that is saved in a database and it is in RTF format.
But now, what I need to do is convert all this into normal, plain, and boering old text...

So anyway, is there a way to convert RTRF into plain text without using the Rich TextBox Control?

Thank you all, and have a good day!

Xml To Plain Text
any active x which can do that

or anyother xml pharsing routine ?

RTF To Plain Text
Can someone tell me how I can convert RTF text into plain text using a module? I have a database with a field that comes in RTF, but which I need to convert to text. Previously I was able to do so using the code below, with a reference to the Microsoft Rich Textbox Control version 6.0.81.69, running it as a macro inside Access, but that all of a sudden stopped working and now gives me a “Set not permitted error” at the line:
RTFControl.TextRTF = rstRecordset!COMMENTS

I realize that this control I’m using is actually intended to be used as an object, and it works fine if I put the control on a form and use it that way, but I’d prefer to be able to do it with just the module. What I find particularly odd is the fact that it worked for a while, but without any code changes it stopped. Probably something got updated somewhere along the way, but if I could get it to work again I would be grateful. Thanks so much.

Mike

Note that this code is from inside an Access module, normally called by a macro, thus the connection the way it is. References are ADO 2.1 and Rich Text Control 6.0



private Sub ConvertToText()

Dim rstRecordset as new Recordset
Dim RTFControl as new RichTextLib.RichTextBox

rstRecordset.Open” "SELECT TABLE.Comments FROM TABLE;", Application.CurrentProject.Connection, adOpenStatic, adLockPessimistic

rstRecordset.MoveFirst

Do Until rstRecordset.EOF = true
If len(rstRecordset!COMMENTS) &gt; 0 then
RTFControl.TextRTF = rstRecordset!COMMENTS
rstRecordset!COMMENTS = RTFControl.Text
End If
rstRecordset.MoveNext
Loop

rstRecordset.Close

MsgBox "Finished converting to text", vbInformation

End Sub

Transfering From Plain Text To Formated Text
Hello, hope someone can help me out.

I have this VERY big .doc file, with the following info:

"Name:
password:
e-mail:

Useless info

Name:
password:
e-mail:

Useless info again"

and so on

I´d like to transfer that into another .doc, with the following formatation:

"1.
Name:
password:
e-mail:


2.
Name:
password:
e-mail:"

and so on

To sum up, I want to remove the "Useless info" and to count all the registers.

I hope someone undestood what I wrote, ´cause reading it all over neither I undestood what I wrote :P

Using A RTB: How To Convert RTF Text Into Plain Text During Run Time??
My Werdpad text editor, I want to add a feature I can't seem to figure out how to do.

With a new file I "paste" a bunch of text from something... it's all formatted nice and pretty in rich text. Tables, Bold...etc.

What I want is by selecting an option from the menu to take what is displayed and reformat it to plain text (as if I pasted it into notepad) getting rid of all the formatting (including table cells if there are any).

I know how to set the font using SelStart=1 and SelLength = Len(RTB.Text)
But I don't know how to get rid of tables and pictures....

Any idea's is appreciated.

Thanks

Edit: Here is all I have. This sets the font. But that's all I have

Code:
Private Sub mnuPlain_Click()
Text1.SelStart = 1
Text1.SelLength = Len(Text1.Text)
Text1.SelFontName = "Verdana"
Text1.SelFontSize = 10
Text1.SelBold = False
Text1.SelItalic = False
Text1.SelUnderline = False
Text1.SelStrikeThru = False
Text1.SelColor = 0
Text1.SelStart = Len(Text1.Text)
End Sub
Yes, my RTB is called Text1 I am just used to that name for a text box.

Save Text From RichTextBox In UTF (plain Text) ?
How do I save text from RichTextBox in UTF (plain text), to a file ?

Concating Plain Text And Rtf Text - Strike Two...
I'll try it once more -
Guys - this is the case:
If I do this:

rtftextbox1.SelRTF = string1 & list1.text & string2

While - string1 and 2 are both two halves of the text from the same
rtftextbox1 - meaning - rich text - this line will preserve the rtf text in
the text box - but the text from the list box - will not show.! (string2
will over lap it)

Any ideas on how to concat the rtf text with the plain text (from the list
box) so the plain text will be seen - and the rtf text keep its properties?


Thanks
Dani

Plain Text In Outlook
hi,
i m creating an Outlook object and sending, now i want to make sure that email message should be sent as plain text, not as HTML or Rich text...?

thanks
waqas

How To Get Plain Text From HTML
Can someone give me piece of advice, how to get plain text(which we see in browsers) from HTML-code of page without tags etc?

Plain Text File
Hi all,
I want some informtion about using plain text file as a data source instead of using database like MS access or SQL server.
I want to know how can i store seperate records in this text file.
Any links or tutorials will also do.
Thank you

Plain Text File
Hi Guy's. Just thinking of how i can word this problem.
I need to be able to open a text file. It has certain information at certain sections. I need to be able to validate the information within the file, ie: check to make sure the word "HELLO" is at row 1, column 10. I'm having lots of trouble trying to work this out. Once it has been validated, i also need the results to be shown. Thanks

Print Out Plain Text, Chr(13),chr(10) Not Work?
Hello, Everyone:
I tried to print out a string which contains serveral lines in thermal printer. It just printed one line. I used Chr(13); chr(13)&chr(10); chr(10); chr(10)&chr(13) as separator. It still just printed one line. Would you someone be kind to let me know how I can fix it?
Thank you very much!
Charlie

Converting From Ascii To Plain Text
Hey.

I wanted to make a program that would translate for example 13 to a Return. But it doesn't seem possible.

Lets say i translate 3 enters into ascii = 131313 . Then how will i know i the chars where ment to be 131 3 13 or 1 32 32 3 ? Is it possible to create a converter that way, without using somekind of decimiter.

Printing Plain Text In Code
Does anyone know how to do thie, print a plain text file from code by referring to it by path/name without physically opening the file? I want to click on a command button and have a pre-selected file print. I don't want to use the common dialog to open the file and then print it if I can help it!

Thanks!!!

Plain Text Textbox Issue!
Hi,

I have a text box with a list of stuff with is input by the user into a multiline textbox. An example of this could be

apple
bannana
orange

I need the output to have the same words attached to the start and end of each word.

So the output would be something like

I like apples they are nice
I like bannana they are nice
I like orange they are nice

Im just not sure how to split the textbox at each line.

Thanks,
lokie538

Using A Plain Text File Instead Of A Access Db
I have a program that checks a string against a access database that contains one table with one column and it checks for a match for each record (cell) and then it moves on to the next string, etc...

I want to do this with a text file instead of an access database. How can I read a text file into memory (I am assuming into an array) and then create the loop to check the strings against it?

Below is how I am doing it with access


VB Code:
If open_database(conn) Then                                sql_command = "select [printer name] from tbl_PrintID_PrintName"                                 ' Checks to see if DB connection exists                                If run_command(conn, rs, sql_command) Then                                     ' Reads the first record                                    rs.MoveFirst                                     ' Reads each record as long as it is not End of File                                    Do While Not rs.EOF                                         ' Checks to see if the Printer name field on this                                        ' particular record equals the driver name from the                                        ' above registry key.                                        If rs.Fields("Printer Name") = sName Then

etc.............................

Thanks for any help.

Jim

Help With Loading Plain Text Files Into An App
Hey everyone...

I am on my second day of learning VB, so forgive me if this is a novice question, but I can't find a solution anywhere on the site.

I have an app, a command button triggers a CommandDialog Box that opens a file selection box. I am trying to create a textbox that will load this file into the application (plain text SGML files) so the user can touch up the file before processing further.

can anyone tell me how to do this?

Thanks!!

-Jason

Sending Messages In Plain Text
I have a problem in sending messages. I want to send the message in plain text but the message is sent in Richt Text. I'm using the Outlook object. How can I change the body format?
Tanks

Create Plain Text Mail
I'm trying to create a Plain Text mail in Outlook 2000 SP3 from within the Lotus Notes 5.010 environment with the following code. Could anyone advise me how I can convert this to plain text?

On other forums I've come accress BodyFormat and MailFormat but I haven't found a solution.

Code:    Dim ws As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim Sto As String
    Dim Cto As String
    Dim Subject As String
    Dim Body As String
    Dim myItem As Variant

' Get current document
    Set uidoc = ws.Currentdocument
    Set doc = uidoc.document
    
' Set Outlook object
    Set appOutl = CreateObject("Outlook.Application")
    Set myNameSpace = appOutl.GetNameSpace("MAPI")
    
' Get current document Fields
    Sto = uidoc.FieldGetText( "Email" )
    Cto = "myaddress@domain.com"
    Subject = uidoc.FieldGetText( "Subject" )
    Body = uidoc.FieldGetText( "Description" )
' Set a reference to the MailItem object.
    Set myItem = appOutl.CreateItem(0)
    
' Set mail Fields
    With myItem
        .to = Sto
        .cc = Cto
        .Subject = Subject
        .Body = Body & " " & Chr$(10) & Chr$(10)

' Display Mail to user
        .Display
    End With
    
' Close object references.
    Set appOutl = Nothing
    Set myItem = Nothing

Open Word Doc And Export Just Plain Text
how can i open a word doc and just grab the text of the document? i want remove all the word formatting in file and have just plain old text.

any ideas?
GK

Can VB Output MS Word Codes In Plain Text?
For some reason or other, I'm writing some code in Excel VBA to write data to a file destined for editing in MS Word and ultimately importing to .PDF. However, that's just a detail, I would think.

It works nicely so far, but I wonder how . . . if . . . I can incorporate boldface, underline, etc. tags that will be rercognized by Word. I.e., what would I need to make . . .


Code:
Open "MyTextFile.TXT" for Output as #1
.
.
.
Print #1, Field$(1); Field$(2); BoldOn$; Field$(3); BoldOff$; Field$(4) ...
.
.
.

. . . this work. There should be some ascii or escape sequence for BoldOn$ and BoldOff$ to make Field$(3) bold when Word sees it. When I read in an .RTF file byte-by-byte it seems that  turns bold on or off, but that doesn't seem to work here.

Are there any code sequences that will work with (or rather, fool) MS Word with regard to bold, italic or underline?

Thanks . . .

A Plain Text File To Render Graphics.
Just as the above says. Has anyone created anything like that?

Essentially, I guess I'd be looking for something very similar to a an HTML renderer. But without the scripting capabilities (I'd rather use stricter XML if possible). I suppose I could do call backs or perhaps use a look up table or some such to execute code. Nothing major or complex though.

I've been searching the web, but I'm afraid I'm not sure what search terms to use if anyone ever came up with anything even remotely similar.

A basic example of what I want to do is let's say that I have three circles on a form. Now I think I can manage the code to allow the user to click one of these three circles to bring up a color pallette to change the color of the circle. What I want to use the plain text file for is to be able to define more complex shapes such as squares, triangles, and any other shape I might like to create without having to recompile the program. This is not a full GUI per se where I'll be coding in complex behavior such as menu boxes, text boxes, buttons or anything of the sort. I'll use the standard VB components for that. Simple shapes, simple behavior.

Etracting Plain Text From Word Via Automation
Is there a nice way to do this Without saving the document to disk? I want to download a Word file 'blob', decode it with the Word object lib, grab all of the existing text and index it. (Basically an on-the-fly Word to plain text converter)

Thanks

Andrew

Font Formatting Of Plain Text Email
I have an application that uses the Outlook object model to send emails and it works ok sending plain text and html style emails. What I want to do is to format the plain text email (font name, font size, font colour, italic, underline, bold etc) programmatically in VB.

I've tried the Outlook object model and there doesn't seem to be any way of doing this (although you can of course do this when you create an email manually) and I've also tried passing the string into the word object model, using the search and replace functions of the word object model and then passing the string back into outlook (via the 'Body' function) but it seems to loose all of its formatting (if I save the word document the formatting has worked ok) which probably is no great surprise....

Any suggestions would be welcome as I'd like to offer formatting functionality for the plain text content emails as part of my application.

Thanks in advance
Ed James

Printing Plain Text Files Without Using Word
I know how to print text files using the Word.Document object, however I have a situation where I wish to print a plain txt file to the printer without using the the Word object model. I can Open, Close Read from and Write to plain text files, using VBA commands, but can't figure out how to print to the printer. Can anyone help with this one?

Make RichTextBox Accept Plain Text Only
Hello!

Is it possible to make the RichTextBox accept plain text only? When pasting formatted text, all the effects are applied to the text in the RichTextBox, too. This is something I would like to prevent from happening.

Regards,
Sebastian

Printing Bold And Plain Text In The Same Line
Is it possible to print bold and plain text in the same line?

I want a line to look like this:

TITLE: description

my code:

.fontbold = true
.print "TITLE: "
.fontbold = false
.print description

But this puts the two strings on different lines.

Any help would be great, thanks.

How To Convert An Html Document To Plain Text?
Read the title thanks

Or how To Parse the source

Saving Source Code As Plain Text
How can I save the vb source code in plain text format? I see where I can print it, but I only need to save it. My code is on several different forms, so I don't think I can just select all and copy then paste into notepad.

How To Change One Line From A Plain Text File
Who have an example of changing 1, 2 or 3 lines from a plain text file (say lines 25,26 en 27) ?

Storing Plain Text Data In Its Own File
Hi all i am just starting to get back into VB and i need a little help.

I am writing a program that asks a user to type in a set of numbers/letters
(in this case shipping containers).

Once the data is entered i have my 4 letters and i want to be able to call
up data relating to the 4 letters.

Basically i want it to show who the container belongs to and any other data
i wish to put in there relating to the container.

Rather than hard code everything i want it in a seperate file(s).

Thanks
Steve

Can I Save A Form's Settings In A Plain Text File?
Hi all,

I have a beautiful form, and I want to save its settings (color,...) to a plain text file, but when I "read" that file how to know which value correspond to which property? Is there some way like this?
in plain text file

"Form1.BackColor","vbWhite"
"Form1.Caption","HI!!!"

How To Get Word Docoument(not Plain Text) From Webbrowser Control
I have a webbrowser control in a form. by draging in it a word document from windows explorer,it can display well.

my problem is through which property of webbrowser control, I can get the content of the word document(not the plain text).I want to insert it into database.

Thanks for your help

Replace On Specific Lines
Ok, I have a text file, and it has been written to already. There are three lines I would like to replace with whatever I chose, the lines are 23, 27, and 32. How would I replace ANYTHING on those lines to the word "No"? Thanks, any help is appreciated.

Using Replace() With Multiple Lines
I am having a problem with replacing a chunk of strings with absolutely nothing. For example, i want to do the following:

Text1.Text:

Code:
Rawr
Cool
Wee
Wow
Yay
Yay
3218382182183
and replace all instances of

Code:
Rawr
Cool
Wee
Wow
Yay
Yay
with nothing. (vbNullString)

This is what i have:

Code:
Dim f as integer
Dim roffle2 as string
f = freefile
Open "C:Test1.txt" For Input As #f
Do Until EOF(f)
Input #f, roffle2
Text2.Text = Text2.Text + roffle2 + vbCrLf
Text3.Text = Text3.Text + Replace(Text1.Text, Text2.Text, vbNullString) + vbCrLf
Loop
Close #f
However, all that is replaced is the very first line.
Which would be, (referring to the examples) Rawr.
So, in Text3.Text i get a:

Code:
Cool
Wee
Wow
Yay
Yay
3218382182183
Can anyone help me?

Concating Rtf Text And Plain Text - How?
Hi,
Here is the thing - i am using a list box to let the user select an item from it - to add to an rtf textbox.
The broblem is - since the user can insert the item from the list any where in the rtf text box, i am using the next aprouch:
firsrthalftext & list1.text & secondhalftext
if i use this concating of strings on the text property of the rtf - all works fine - but - (there is always a but)
some of the text in the rtf is colored - and when usinf this method of concating strings - the color of the text become all black after the first concat.
So, i tried to use the textRTF property - and here starts truble.
The first and second halfs of the rtftextbox will come out just fine - with the colored text intact.
However - the text from the list box - will not apear.
If i do that, and try to insert the item from the list at the beggining of the text - the item will be inserted - but inlarged with the addition "1".
I tried to use another rtftextbox to recive the item from the list as text - and move it from rtf textbox to rtftrctbox with textRTF - but then the item will allways apear at the beggininig of the text no matter in what order i concat the strings.
???
Any pointers will be welcome.

Dani

Outlook 2000: Convert To Plain Text; Move Cursor?
I have written a VBA macro to generate an e-mail from content I input via the InputBox command.

I put a line of content in the body as part of the Macro, then display the message. The cursor displays at the beginning of the body. I want it to display at the end of the body. Hey, I'm trying to be lazy, I mean productive, here. The following code does not work:

myMail.Display
Selection.EndKey Unit:=wdStory

I get a compile error that wdStory is not defined. This is presumably because I am in Outlook and not Word. Is there a workaround for this?

TIA

Adding Hyperlinks To Plain-text URLs In A MS Word Document
Would anybody be able to show me how I could write VBA code to add hyperlinks to plain text URLs in a Microsoft Word document?

For instance, the document might have a bunch of paragraphs with URLs in them (e.g. http://www.google.com) that do not show up as hyperlinks in Word.

I am wondering how I could write a macro to search for these plain text URLs and turn them into true hyperlinks.


Thanks for your help.

How To Read A Large Amount Of Plain Text Into An Application From A File?
Hi,

I have the user click on a number of labels which are all in a control array whatis(). When a user clicks on a label, I want the appropriate and corresponding file to be opened and read into the memory a few bytes at a time.

My current code is as follows, (the array means I don't have to have a different file open function for every label.

My problems are described below the code


VB Code:
Option ExplicitDim helpfilename(20) As String Public Sub whatis_click(index As Integer)Dim helpno As Integer helpfilename(0) = "whatdoesthisdo.txt"helpfilename(1) = "whomadethis.txt"helpfilename(2) = "whatisencryption.txt"helpfilename(4) = "whatisdecryption.txt"helpfilename(5) = "howdoesitwork.txt"helpfilename(6) = "howsecureisit.txt"helpfilename(7) = "useitfor.txt"helpfilename(8) = "discloseinfo.txt"helpfilename(10) = "legalegit.txt"helpfilename(11) = "upgrade.txt"helpfilename(13) = "modifyprog.txt"helpfilename(14) = "troubleshooter.txt"helpfilename(16) = "howdoiuse.txt"helpfilename(17) = "faq.txt"'Code here to read in an appropriate text file a few bytes at a timeEnd Sub


The index is of course the index of the label within the control array. Each index number in the array above corresponds to the file that should be opened for the index number of the label that was clicked in the control array.

What would be the best way to:
Read the corresponding file into memory without overflowing the memory or the variableRead it in only a few bytes at a time (each text file is a large passage of text equating to around 2kb to 10kb).

Many thanks,

Jord

Any Easy Way To Populate A Listbox From Plain Text With Crlf's? (Resolved)
I have a textbox. Multiline. Plenty of VbCrLf's in it.

I want to populate a list box with each line of the textbox being a new listbox line entry.

Any quick and dirty solutions, or do I need to work up a little function for it?

Thank you.

Load Ini File, Replace Some Lines, And Save It.
I am trying to open a .ini file to do a few line changes, it seems to work but I can't find a "simple" way to save it back to the file. It's curently in a variable called Otext as String. If I use Print Otext , the right thing appears but I have to send that to a file. Please help.
Thanks
Joel

Global Text Replace In Multiple Word Replace
Hi All,
Sometime back, I stumbled upon a VB code (shown below), for performing word replace in multiple word files placed in a folder (global replacement). However, it has one disadvantage that this does not make the changes if the text appears in a "Text Box" or "Auto Shape". Please can some one help me modify the code so that the replacements are affected in these "Text Box and "Auto Shapes" also.

VB Code:
Private Declare Function GetFileAttributes Lib "Kernel32" Alias "GetFileAttributesA" (ByVal strPath As String) As Long Function ExistFileDir(sSpec As String) As BooleanDim af As Long    af = GetFileAttributes(sSpec)    ExistFileDir = (af <> -1)End Function Sub GetPathAndMask(ByRef Path As String, ByRef Mask As String)Dim x As Integer 'loop counterDim bExists As Boolean     For x = Len(Path) To 1 Step -1        If (Mid$(Path, x, 1) = "") Or _            (Mid$(Path, x, 1) = "/") Then            Mask = Mid$(Path, x + 1, Len(Path) - x)            Path = Left$(Path, x)            bExists = ExistFileDir(Path)            If (bExists = False) Then                Path = ""            End If            Exit Sub        End If    Next xEnd Sub  Function GetSubdirs(directory_text As String, dir_array() As String, counter As Integer) As Integer      Dim temp_var As String       On Error Resume Next       temp_var = Dir(directory_text, vbDirectory)        localcounter = 0       Do Until temp_var = ""           If temp_var <> "" Then              If GetAttr(directory_text & temp_var) And vbDirectory And Mid$(temp_var, 1, 1) <> "." Then                   ReDim Preserve dir_array(counter)                   dir_array(counter) = directory_text & temp_var & ""                   counter = counter + 1                localcounter = localcounter + 1           End If        End If           temp_var = Dir()    Loop        Dim x As Integer 'loop counter    Dim CurDir As String    For x = 1 To localcounter Step 1        CurDir = dir_array(x - 1 + counter - localcounter)         counter = GetSubdirs(CurDir, dir_array, counter)    Next x     GetSubdirs = counterEnd Function Private Sub CloseBtn_Click()    Unload QueryFormEnd Sub Private Sub FindBtn_Click()   ' just find, no replace   Call DoReplace(wdReplaceNone)End Sub Private Sub ReplaceBtn_Click()   ' replace it   Call DoReplace(wdReplaceAll)End Sub Private Sub DoReplace(ReplaceMode As Long)        Dim FilePath As String    Dim Mask As String    Dim LogFile As String    Dim ChangeCount As Integer        If (Search_Box.Text = "") Then        MsgBox "Please enter a Search String"        Exit Sub    End If     FilePath = FileMask_Box.Text    GetPathAndMask FilePath, Mask    If ((FilePath = "") Or (Mask = "")) Then                                                Call MsgBox("Invalid Path! Please enter a valid file path!  ", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "Invalid Input")                                Exit Sub    End If     LogFile = FilePath & "Cleanser_Results.txt"     ChangeCount = ReplaceInDir(LogFile, FilePath, Mask, ReplaceMode)    If (Search_Subdir.Value = True) Then        Dim dir_array() As String        Dim NumDirs As Integer        NumDirs = GetSubdirs(FilePath, dir_array, 0)        Dim x As Integer 'loop counter        Dim CurDir As String        SubCount = 0        For x = 1 To NumDirs Step 1            CurDir = dir_array(x - 1)            SubCount = SubCount + ReplaceInDir(LogFile, CurDir, Mask, ReplaceMode)        Next x    End If        If ReplaceMode = wdReplaceNone Then        MsgBox (ChangeCount + SubCount) & " file(s) found"    Else        MsgBox (ChangeCount + SubCount) & " file(s) changed"    End If End Sub Function ReplaceInDir(LogFile As String, Path As String, Mask As String, ReplaceMode As Long) As IntegerDim ChangedCount As IntegerDim FileName As StringDim aStory As RangeDim FindCount As Long     ChangedCount = 0    FindCount = 0    FileName = Dir(Path & Mask)        Do Until FileName = ""        DoEvents        On Error GoTo CantOpenFile        Documents.Open FileName:=Path & FileName                If Process_Field_Codes.Value = True Then            ActiveWindow.View.ShowFieldCodes = True        End If         On Error GoTo 0        On Error GoTo CantChangeTracking        On Error GoTo 0        ActiveDocument.Saved = True 'don't count ShowRevisions        ' Can't change protected documents        If ActiveDocument.ProtectionType <> wdNoProtection Then            ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges            GoTo DocumentProtected        End If         For Each aStory In ActiveDocument.StoryRanges        aStory.Find.Execute _            FindText:=Search_Box.Text, _            ReplaceWith:=Replace_Box.Text, _            MatchCase:=Match_Case.Value, _            MatchWildcards:=Reg_Exp.Value, _            MatchWholeWord:=Whole_Word.Value, _            Replace:=ReplaceMode                        If aStory.Find.Found Then FindCount = FindCount + 1        Next aStory                'Repeat the process after toggling Field Codes        If Process_Field_Codes.Value = True Then            ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes                For Each aStory In ActiveDocument.StoryRanges                    aStory.Find.Execute _                    FindText:=Search_Box.Text, _                    ReplaceWith:=Replace_Box.Text, _                    MatchCase:=Match_Case.Value, _                    MatchWildcards:=Reg_Exp.Value, _                    MatchWholeWord:=Whole_Word.Value, _                    Replace:=ReplaceMode                    If aStory.Find.Found Then FindCount = FindCount + 1                    Next aStory        End If                If Not ActiveDocument.Saved Then 'then we must have changed it            Open LogFile For Append As #1            Print #1, Date & " " & Time & " Changed " & Chr$(34) & Search_Box.Text & Chr$(34) & " to " & Chr$(34) & Replace_Box.Text & Chr$(34) & " in " & Path & FileName            Close #1            On Error GoTo CantSaveFile            ActiveDocument.Save            ChangedCount = ChangedCount + 1        Else            ' print a log even if found something            If (ReplaceMode = wdReplaceNone) And FindCount > 0 Then               Open LogFile For Append As #1               Print #1, Date & " " & Time & " Found " & Chr$(34) & Search_Box.Text & Chr$(34) & " in " & Path & FileName               Close #1               On Error GoTo CantSaveFile               ChangedCount = ChangedCount + 1            End If        End If        FindCount = 0                ActiveDocument.Close SaveChanges:=wdDoNotSaveChangesNextFile:        FileName = Dir    Loop       ReplaceInDir = ChangedCount    Close    On Error GoTo 0        GoTo AllDone    CantChangeTracking:    Open LogFile For Append As #1    Print #1, Date & " " & Time & " Could not modify Tracking status on " & Path & FileName    Close #1    Resume NextCantSaveFile:    Open LogFile For Append As #1    Print #1, Date & " " & Time & " Could not save " & Path & FileName    Close #1    Resume NextCantOpenFile:    Open LogFile For Append As #1    Print #1, Date & " " & Time & " Could not open " & Path & FileName    Close #1    Resume NextFile DocumentProtected:    Open LogFile For Append As #1    Print #1, Date & " " & Time & " Could not process protected document " & Path & FileName    Close #1    GoTo NextFile AllDone:End Function


Thanks in advance,
Lonely

How Do I Display Vertical Lines Only In MSFLexGrid? [RESOLVED - Replace With SGrid]
Does anyone know a way of displaying vertical lines only in an MSFLexGrid?
In other words, displaying vertical lines to separate each column, as in the picture below?

------
| | | |
| | | |
| | | |
------

My project manager won't sign-off my software application until I can resolve this problem, so any help is greatly appreciated!

How Do I Replace Code At A Certain Hex Value And Replace It With Text From A TextBox?
I am making a program that takes the text entered by the user in the text box and puts it in place of text already in a file at a certain hex value. I do know that one hex file the text that is to be replaced must be in unicode and in another the text must be in asc but other wise I am completely lost.

Moving Lines In A Text Lines
I am creating a replay for a game and I am keeping the info for it in a text file but after 5 seconds I want to clear out anything over 5 seconds old and continue to add. I can figure most of it out cept for the whole part about it removing the first line and moving the rest of the lines up. I am adding to the file every 1/2 second for 5 seconds. Heres what I have so far....


VB Code:
Open "C:Game
eplay.txt" For Append As #1TotTime = Int(Timer) Print #1, Int(Timer); "lblbox(" & Index & ")"If Int(Timer) - TotTime = 5 Then


lol, not much but I can't figure out how do move the lines. Would I just kinda have a second file and copy the lines into the new file and just clear out the old one and so on? But that doesn't seem like an appropriate way to go. Any help with this situation would be muchly appreciated. Thank you and good day.

ENCRYPTION METHODS - N00bs Guide To Encryption..[encrypting Plain Text]
Hi im just learnin VB and having a practise on my encryption chapter...

I just wanted to knw wat are the simple ways of encrypting texT?

First i cud reverse it.... then i just wanted to knw other ways of playing around with it like using Maths or ASCII cud any1 tell me some ways with pseudocode pls?

thx in advance....

Is There A Way To Get Plain Text From Microsoft Internet Control Or Transfer Control
is there a way to get plain text from the Microsoft Internet Control or Microsoft Internet Transfer Control



For Example if u go to a page and hit Ctrl A and Then Ctrl C and then open notepad and hit Ctrl V u get plain next with no HTML in it. Can that be done with the Microsoft Internet Control or Microsoft Internet Transfer Control

Copyright © 2005-08 www.BigResource.com, All rights reserved