Changing text in textbox once something is erased

[paralinx]

Hi all,

I'm making a Notetaking program that makes it faster for writing notes on the computer. It will add Roman Numerals and Upper Case Letters, Lower Case, ect.

However, my problem is when I put say three roman numerals into the textbox

I.

II.

III.

And I erase all three, and put anothe roman numeral in, it will put roman numeral four in (IV) How could I make it so it checks to see what roman numeral is in the textbox and then enters the next one up?

So if I have I. II. III. in the textbox and erase II. and III. it will enter a II.

Sorry if you have a hard time understand this

I have also attached my project so you can maybe take a look at it

[MartinLiss]

Your project is looking for a password for the vbp file.

[RhinoBull]

You can declare some global integer counter and then convert arabic number to roman numeral. Have a fun.

[paralinx]

Your project is looking for a password for the vbp file.

It's not letting you open the project?

[paralinx]

You can declare some global integer counter and then convert arabic number to roman numeral. Have a fun.

thanks for the code rhino, but I still havn't figured out a way to search the textbox and figure out what roman numerals are in the textbox, so then the next roman numeral that is added is in coordination with the rest already entered.

[MartinLiss]

It's not letting you open the project?

I swear the 1st time I tried to open the project it wanted a password for the vbp file and when I didn't supply one it deleted the vbp file! Very strange. In any case I downloaded it again and the only thing I can suggest is that instead of generating the roman numerals that you create a type like this

Private Type RomanNumerals
    rnRoman As String
    rnUsed As Boolean
End Type
Private Romans(99) As RomanNumerals

and then load it with the 1st hundred(?) roman numerals setting all the rnUsed flags to False. Then of course you can examine the array for the first one that's not used and when deleting one from your note you would set the associated array member to False.

[paralinx]

Good idea Martin, thanks. But how could I figure out what roman numerals were erased if the textbox has something like this in it..

I. Blah blah blah blah
	A. blah blah blah blah
	B. blah
		-blah blah
		-blah bleh?
II. Bleh blah blah
	A. Blah 
III. Hey more blah
	a. you want some more blah? 
	b. because I sure do

It would be hard to tell when a roman numeral was taken out. Unless there was some way I could search for all roman numerals

[RhinoBull]

You'd need to scan your text constantly - timer comes to mind first...
If "I" is found then search for "II" and so on ... InStr() may work but the problem is that you may have refences somewhere in the paragraph (say VI) to another paragraph (some like "...see par IV for more info ...) and that could still be there. So, InStr will return true and indexing will be out of bounds.

[paralinx]

Well that may not be a problem. Because after every roman numeral I have my program insert a ".", I could just search "I."

But good idea rhino, I'll give this a try.

[RhinoBull]

OK, let us know how it goes.

[MartinLiss]

Is it also true that there will never be any text to the left of the roman numeral? If so then that's a test you could use to determine what's there. That would also help you avoid things like "My favorite king is George V."

[paralinx]

There can be text before the roman numerals.

I tried searching for the roman numerals your way rhino but it does not work. It will get to roman numeral two and continue putting in Roman Numeral twos.

Heres my code

Dim sRev As String, sRom As String, sArr() As String
    Dim iNext As Integer, i As Integer, RomanAmt As Integer
    sRev = txtDesign.Text
    sArr() = Split(sRev, vbCrLf)
    For i = 0 To UBound(sArr)
        iNext = InStr(mConvert.NumberToRoman(i + 1), sArr(i))
        If iNext > 0 Then RomanAmt = RomanAmt + 1
    Next i
    txtDesign.Text = txtDesign.Text & (Romans(RomanAmt + 1).rnRoman & ".")
    Romans(NextRoman).rnUsed = True
    txtDesign.SelStart = Len(txtDesign.Text)
    txtDesign.SetFocus

[bushmobile]

Using RB's idea as a springboard:

Depending how high the roman numerals are going to get, you might want to adopt some sort of 'intelligent' (playing fast and loose with that word) searching:

Say they've gone up to LIII. That would be 53 InStr() calls if you go I., II., III., etc.
An alternative would be look in intervals and then narrow it:

Look for: XX - Present +20
          XL - Present +20
          LX - Not Present -10
          L - Present +5
          LV - Not Present -3
          LII - Present +1
          LIII - Present +1
          LIV - Not Present - Highest is LIII

Obviously an optimum algorithm for your senario would take some experimentation.

[RhinoBull]

I'm afraid it wouldn't be as simple:
say you typed I,II,III ... X and so on. But then you say "hmmm... IV and V really belong to III" so you erased them both but in your textbox there are VI,VII and so on.
So, what are you going to set as you next available index? IV? That was my initial concern - you'll get your index out of bounds... (well sorta).
Honestly, I don't have any more or less reasonable idea at the moment so it will take some experimenting to figure it out how to handle this stuff.

[Rob123]

Try this

Private Sub txtDesign_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 8 Then
    'If theres no text entered
    If txtDesign.SelStart = 0 Then
        NextRoman = 0
        Exit Sub
    End If
    
    'Remember the deleted text.
    DeletedText = Mid(txtDesign.Text, txtDesign.SelStart, 1) & DeletedText
Else
    DeletedText = ""
End If
 
'Set the Roman Numeral
If Not ReturnRoman(DeletedText) = 0 Then
    NextRoman = ReturnRoman(DeletedText) - 1
End If
    
End Sub
 
Private Function ReturnRoman(Number As String)
Dim TotalCount As Integer
Dim BeforeCount As Integer
Dim I As Integer
 
BeforeCount = 0
TotalCount = 0
 
For I = 1 To Len(Number)
    Select Case Mid(Number, I, 1)
        Case Is = "I"
            'Count the I's
            BeforeCount = BeforeCount + 1
        Case Is = "V"
            'Subtract number of I's from 5
            TotalCount = 5 - BeforeCount
            'Reset I count
            BeforeCount = 0
        Case Is = "X"
            'Subtract number of I's from 10
            TotalCount = 10 - BeforeCount
            'Reset I count
            BeforeCount = 0
            'End of number
        Case Is = "."
            Exit For
    End Select
Next
'If there are I's to be added to the total amount
If BeforeCount <> 0 Then
    TotalCount = TotalCount + BeforeCount
End If
 
ReturnRoman = Trim(TotalCount)
            
End Function

Remember to declare DeletedText as string at the top of your code

This will remember everything you delete, and check for roman numerals at the start of the text. Deleting a period will reset the remembered text, to notify the program that a possible roman numeral is starting.

I tested it, but not much, so there may be a few bugs to clear up.

Hope this gets you on the right track =)

-Rob

[paralinx]

Very nice!!

thanks a lot bro!

[MartinLiss]

Does that handle the sentence I suggested in my post #11?

[paralinx]

Does that handle the sentence I suggested in my post #11?

It seems to, but there is some trouble with the code when you get into higher roman numerals for some reason.

If you want to take a look at what I have now Marty, I will send it.

I just hope it doesn't ask for a password to open it again

[MartinLiss]

How high is "higher"?

[MartinLiss]

Observations:

• I thought that if you deleted a line and it's roman that the next time you added a roman it would replece the number you deleted but it doesn't seem to do that.
• It would be nice I think if upon pressing Enter that the next roman numeral would be generated automatically.
• Shouldn't the next roman after pressing F7 be "I"?
• You don't have a function key for "Indent" and you don't have a button for "Clear"

[paralinx]

Ok, thanks for these observations they are a big help.

I will get on to fixing the problems you found.

By the way, I start getting troubles when I get up to the 20s and 30s for roman numerals.

[MartinLiss]

What kind of trouble? I just F2'd my way to L and it worked okay.

[paralinx]

F2 until you get to XIV, then erase the XIV, and hit f2 again and you will see my problem

[MartinLiss]

OK, I'll look at that but in the meantime I suggest you gracefully handle a too high roman number with a modification like this.

Private Sub cmdAddNum_Click()
 
    On Error GoTo ErrorRoutine
 
    NextRoman = NextRoman + 1
    NextAlpha = 0
    txtDesign.Text = txtDesign.Text & (mConvert.NumberToRoman(NextRoman) & ". ")
    Romans(NextRoman).rnUsed = True
    txtDesign.SelStart = Len(txtDesign.Text)
    txtDesign.SetFocus
 
    Exit Sub
 
ErrorRoutine:
 
    If Err.Number = 9 Then
        MsgBox "Sorry Roman Numerals can not exceed " & NumberToRoman(UBound(Romans) + 1)
    Else
        MsgBox Err.Description
    End If
 
End Sub

[MartinLiss]

F2 until you get to XIV, then erase the XIV, and hit f2 again and you will see my problem

When I do that I get XV. In fact as I mentioned above when I delete any number I just get the highest number plus 1.

[paralinx]

Really? When I do the same thing I get IV. with no X infront..

[MartinLiss]

Really? When I do the same thing I get IV. with no X infront..

I found the difference. If you highlight-delete-F2 you get XV,but if you backspace to delete the text and then press F2 you get IV.

[MartinLiss]

It's happening because when you backspace the ReturnRoman function gives the wrong answer (3) so you see IV.

[Rob123]

After rethinking the problem, the delete-watcher really wasn't necessary
Use your original program, and try this:

Dim keyWord As String
    Dim searchCount As Integer
    Dim notFinished As Boolean
 
Private Sub cmdAddNum_Click()
    searchCount = 0
    notFinished = True
    keyWord = " "
        
    Do While notFinished
        searchCount = searchCount + 1
        If InStr(1, txtDesign.Text, keyWord & GetRoman(searchCount) & ".") = 0 Then
            NextRoman = searchCount
            notFinished = False
        End If
    Loop
    
    NextAlpha = 0
    txtDesign.Text = txtDesign.Text & (GetRoman(NextRoman) & ". ")
    txtDesign.SelStart = Len(txtDesign.Text)
    txtDesign.SetFocus
End Sub

This will search for any missing numeral in the text.
Replace

keyWord = " "

with anything you choose which will be the identifier for the numeral.

As for the King George V. problem, this will only cause confusion if it is written as the 4th statement, and it will skip the 5th roman numeral.

If X is written in the 9th statement, the 10th roman numeral will be skipped.

This shouldn't be too much of a problem, and the only way I can see to avoid this is to insert an indentifier before the roman numeral.

Hope thats useful