Solved

Insert Text

Posted on 2000-02-22
5
151 Views
Last Modified: 2010-05-02
hi, i am trying to convert a group of numbers to follow a certain equation.

first i begin with the group of numbers, for example:
15-26 2-3 5-12 4 9 13 4 4 0 2 3 35

then i (would like to learn how to)convert this group of numbers into this:
15-26 0*2-0*3 5-12 0*4 0*9 13 4 0*4 0 -1*2 3 35

basically, what i'm doing is cancelling out the 2nd cluster of numbers (2-3), the 4th cluster (4), the 5th cluster (9) and changing 10th cluster (2) into a negative number.  the problem is i have absolutely no idea how to do this programmatically.

so i'm asking for the specific code on how to do this.  if i recieve the full code that will work out perfectly and exactly the way i like it, i will give you 450 PTS!!!!
0
Comment
Question by:llcoolmel
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
5 Comments
 
LVL 12

Expert Comment

by:roverm
ID: 2549454
Look for spaces using the instr function:

Private Sub Command1_Click()
Dim strDummy As String
Dim strResult As String
Dim i As Integer
Dim j As Integer
Dim last As Integer
'Text1 = a textbox containing your string

    Text1 = " " & Text1 'create start point
    strResult = ""
    last = 1
    Do
        i = InStr(last, Text1, " ")
        If i > 0 Then 'space found!
            strDummy = Mid(Text1, i + 1) 'get it starting from the space+1
            j = InStr(1, strDummy, " ") 'find end
            If j > 0 Then strDummy = Left(strDummy, j - 1)
            'now convert the result string
            'you have to write that code, since i don't know when to change into what!
            'the string to be converted is in strDummy so change that!
            'after strDummy is converted:
            strResult = strResult & strDummy & " "
            If j = 0 Then Exit Do
            last = j + last
        Else
            Exit Do
        End If
    Loop
    Label1.Caption = strResult

End Sub

Good luck!

D'Mzzl!
RoverM
0
 
LVL 18

Expert Comment

by:deighton
ID: 2549572
Text can be manipulated in VB but I don't understand the reason for what you want to do.  How do you decide which bits get cancelled out?  Are you trying to evaluate mathematical equations?  

We need some sort of rules behind what you want to do.

0
 
LVL 12

Expert Comment

by:roverm
ID: 2549761
deighton: that's why I described in my code:
            'now convert the result string
            'you have to write that code, since i don't know when to change into what!
            'the string to be converted is in strDummy so change that!
            'after strDummy is converted:

But the code works perfectly!

0
 
LVL 18

Expert Comment

by:deighton
ID: 2549838
Any code works perfectly if nobody knows what its meant to do.
0
 
LVL 96

Accepted Solution

by:
Bob Learned earned 100 total points
ID: 2550267
Private Enum ProcessModeConstants
   Cancel
   Negate
End Enum

Dim sNumbers As String

Private Sub Main()
   
   Debug.Print ProcessNumbers("15-26 2-3 5-12 4 9 13 4 4 0 2 3 35")
   
End Sub

Private Function ProcessNumbers(sList As String) As String

Dim sNumbers() As String

   sNumbers = Split(sList)
   
   Call ProcessCluster(sNumbers(1), Cancel)        '2nd cluster
   Call ProcessCluster(sNumbers(3), Cancel)       '4th cluster
   Call ProcessCluster(sNumbers(4), Cancel)       '5th cluster
   Call ProcessCluster(sNumbers(9), Negate)      '10th cluster
   
   ProcessNumbers = Join(sNumbers)

End Function

Private Sub ProcessCluster(sNumber As String, eMode As ProcessModeConstants)

Dim iDigit As Integer
Dim sDigits() As String
Dim sBuild As String

   sDigits = Split(sNumber, "-")
   
   For iDigit = 0 To UBound(sDigits)
      sBuild = sBuild & IIf(eMode = Cancel, "0*", "-1*") & sDigits(iDigit) & "-"
   Next iDigit
   
   sNumber = Left(sBuild, Len(sBuild) - 1)
   
End Sub

0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

749 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