Replace Hyphon with Number(RESoLvED)

[nickTHEguitarist]

You have probably already seen this thread, I am posting it again because I have yet to find an answer. I just need a simple way to take a line of hyphons (-----------) and replace any hyphon with the number of my choosing. Also, I need to be able to do this for multiple lines.

Any Suggestions that will help a simple person such as I?

[szlamany]

Something like...

---3----1----2--
----1---2----3--


Well - you need to show a bit of code with what you have these strings of hyphens in right now.

And a bit of logic on how you are going to decide what number goes into what spot.

The simple answer to your question is:

Dim strText as String, strNew as String, lngPos as Long
strText = "---------"
Debug.Print strText
lngPos = 5
strNew = "1"
strText = Left$(strText,lngPos-1) & strNew & Mid$(strText,lngPos+1)
Debug.Print strText

The real question is how do you decide on the value of lngPos and the value of strNew?

[edit] - oops - needed to use MID$ - not RIGHT$

[nickTHEguitarist]

It will be easy to decide what strNew would be. What would be the output of that code?

[|2eM!x]

replace(text1.text,"-",'1)
then just loop thru it

[nickTHEguitarist]

Ah, that is an answer I like one line of code

Thanks

[szlamany]

But that replaces all the - hyphens with then number 1.

Not quite what you are looking for - but you are not really explaining what you are looking for.

Put my code into a FORM_LOAD event in a new project and see what it does.

[nickTHEguitarist]

Yes you're right, your code does work alot better. Thanks.

[|2eM!x]

gg szlamany..
just as some info you could call a different sub and change the value of x then it will come back and you could change it that way...heres some code for it

private sub cmd_click()
'Loop and stuff here
dim x as integer
replace(text1.text,"-",x)
call rewrite
end sub
 
private sub rewrite()
x = x+1
end sub

[nickTHEguitarist]

Yes, but szlamany's way seems easier and more understandable to me. Thanks for you input tho remix. It's appreciated

[szlamany]

Nick - here's answer an to your PM.

strB = "----------------------------------------"
txtAmajSpc.Text = intAmajSpc
        lngPos = Val(intAmajSpc)
'        lngPos = lngPos
        strFretNumb = "2"
        strB = Left$(strB, lngPos - 1) & strFretNumb & Mid$(strB, lngPos + 1)

Need to use MID$, not RIGHT$ - my earlier post was wrong - I typed it free hand...

The way I show it above it's only going to remove a single hyphen and replace it with the strFretNumb string.

As to your other question - INTEGER is a reserved word - you cannot use it as a variable name - if that's what you meant.

Put OPTION EXPLICIT at the top of your FORM, so that VARIABLE name DIM's are required - will make your programming life easier in general.

Please respond back to this thread with questions - father keep it on board as opposed to PM.

[nickTHEguitarist]

Yes I know, I used integer just as a quick example. And that is exactly what I want. One space replaced by strFretNumb. Thanks for your help!


Slow ride, take it easy.

[nickTHEguitarist]

Hmm. It still says runtime error 5...

txtAmajSpc.Text = intAmajSpc
        lngPos = Val(intAmajSpc)
        lngPos = lngPos
        strFretNumb = "2"
       [COLOR=Red] strB = Left$(strB, lngPos - 1) & strFretNumb & Mid$(strB, lngPos + 36)[/COLOR]

It still says the code in read is invalid.

[szlamany]

Hmm. It still says runtime error 5...

txtAmajSpc.Text = intAmajSpc
        lngPos = Val(intAmajSpc)
        lngPos = lngPos
        strFretNumb = "2"
       [COLOR=Red] strB = Left$(strB, lngPos - 1) & strFretNumb & Mid$(strB, lngPos + 36)[/COLOR]

It still says the code in read is invalid.

Use lngPos + 1, not lngPos + 36

What is the value of lngPos anyway?

[nickTHEguitarist]

how many spaces over in my line of hyphons the number is placed

[nickTHEguitarist]

No, that doesn't work. I think the number is getting lost between the text box to the variable, to the long. Do you mind looking over my project real quick to see whats the matter? I'll send it once you reply back.

[szlamany]

Go ahead - either post the code in [Highlight=VB] tags right here - or ZIP it up.

[nickTHEguitarist]

I'll zip it up. Try not to change too much because you might put stuff in there that I'll have no idea what it is.

[szlamany]

I downloaded it but I'm not really sure how to run your app...

I still see lots of RIGHT$ statements in the code.

That was a typo on my part - in my first post in this thread.

All those RIGHT$(xxx,lngPos+36) should be MID$(xxx,lngPos+1).

A suggestion for debugging - from the TOOLS menu - OPTIONS - General Tab - select the BREAK ON ALL ERRORS radio button. This will cause the code to stop on an error so you can hover over variables and see what values they have.

Good luck - I'm out of here for a couple of hours.

[nickTHEguitarist]

Idk... this won't let me use variables instead of lngPos = 2. I need to put a variable in there instead of 2. AHH