Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Microsoft Office > Access and Access VBA > Access VBA
Password Reminder
Register
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Access VBA Discuss using VBA for Access programming.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Access VBA section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old July 8th, 2003, 03:44 AM
Ben Ben is offline
Authorized User
 
Join Date: Jun 2003
Location: , , United Kingdom.
Posts: 75
Thanks: 0
Thanked 0 Times in 0 Posts
Default String Manipulation

I have a string which is in the following format;

"1,450,2,300,3,450,4,50"

The string is created through a custom VB function and populates a query. I have managed to manipulate the string on a report via another custom VB function so it then looks like this;

"Code1 450 Code2 300 Code3 450 Code4 50"

However I want each code to be on a separate line - so it appears like this:

Code1 450
Code2 300
Code3 450
Code4 50

This is where I get stuck - has anyone any ideas?

(I don't think I can force the values through a number of text boxes as the number of codes could change...)

Thanks
Ben
Reply With Quote
  #2 (permalink)  
Old July 8th, 2003, 05:34 AM
Authorized User
 
Join Date: Jul 2003
Location: Reading, Berkshire, United Kingdom.
Posts: 35
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via MSN to alex_read
Default

Try taking a look at the Split function built into vb, from your MSDN helpfiles...
Code:
Private Sub Form_Load()

    Dim strTemp As String
    Dim straryTemp() As String
    Dim intLoopCounter As Integer

    strTemp = "1,450,2,300,3,450,4,50"
    straryTemp = Split(strTemp, ",")
    strTemp = ""

    For intLoopCounter = 0 To UBound(straryTemp)
        strTemp = strTemp & "Code" & straryTemp(intLoopCounter)
        strTemp = strTemp & " " & straryTemp(intLoopCounter + 1)
        strTemp = strTemp & vbCrLf

        intLoopCounter = intLoopCounter + 1
    Next intLoopCounter

    Text1.Text = Text1.Text & strTemp
End Sub
Reply With Quote
  #3 (permalink)  
Old July 8th, 2003, 05:53 AM
Ben Ben is offline
Authorized User
 
Join Date: Jun 2003
Location: , , United Kingdom.
Posts: 75
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Thanks Alex this is great
Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
String manipulation Franco1 Visual Basic 2005 Basics 1 July 16th, 2008 12:53 PM
String manipulation john316 SQL Language 1 October 1st, 2007 04:24 PM
String manipulation pcase XSLT 5 June 14th, 2007 10:32 AM
String manipulation YoungLuke C# 4 May 4th, 2007 01:46 AM
String Manipulation twsinc Access 3 February 23rd, 2004 09:57 AM



All times are GMT -4. The time now is 05:46 PM.


Powered by vBulletin®
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.