How Do I Increment An Hex Number Inside A String?
I have this string:
"ecc9ddaa-6643-429b-9844-8dc429826254"
and I want to add a number to the last section, I splited this string:
Lsec(0)= "ecc9ddaa"
...
LSec(4) = "8dc429826254"
Now I want to add 15 to this number (Lsec(4)), and then change it back to a string so I can get something like this:
"ecc9ddaa-6643-429b-9844-8dc429826263"
Any ideas?? :S
btw ... I'm using VB 2005
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Get Number Inside The String
for example:
Sampling Frequency(ms)....50
how to get the '50' inside the string?
the number will always at the behind of the string, but the problem is the number will not always in 2 digit.....may be 3 or 1 digit.....
so right(str,2) cannot be used in this case.....
How To Increment And Decrement Variable And Use It Inside Module?
Hi all i have this function that is inside a module and it has a varible called
lItemPos and it has a static value. What i want to do create 2 buttons that one increament lItemPos value on click and let the function use that value and another that decrement the lItemPos value and use it when clicked. I be happy if some one show me how i can achive this task.Thanks
Note : the value that i want to increment and decrement is shown in bold
Module code:
VB Code:
Public Function MessageCrossProcess(ByVal hWnd As Long) Dim lProcID As Long Dim hProc As Long Dim lxprocLVITEM As Long Dim LVITEM As LV_ITEM Dim lItemPos As Long GetWindowThreadProcessId hWnd, lProcID ' Get the process ID in which the ListView is running If lProcID <> 0 Then hProc = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, lProcID) ' make sure we have read write permissions in the process space If hProc <> 0 Then lxprocLVITEM = VirtualAllocEx(hProc, 0, LenB(LVITEM), MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE) ' Grab enough memory in the other procedure's space to hold our LV_ITEM ' Set up our local LV_ITEM to change the selected item LVITEM.mask = LVIF_STATE LVITEM.state = True LVITEM.stateMask = LVIS_SELECTED Or LVIS_FOCUSED ' Just enforcing the selection better than in original version by moving the focus as well ' Copy the local LV_ITEM into the space we reserved in the foreign process WriteProcessMemory hProc, ByVal lxprocLVITEM, ByVal VarPtr(LVITEM), LenB(LVITEM), 0 ' Now send the message, but pass the address of the copy of our LV_ITEM that now exists in the foreign process instead of our local version ' Aigh Peeps this wha you need to change in order to higlight the item you want :) [b] lItemPos = 0& ' first item[/b] ==> i want to increment and decrement this value on click of 2 buttons SendMessage hWnd, LVM_SETITEMSTATE, lItemPos, ByVal lxprocLVITEM ' Clean up VirtualFreeEx hProc, ByVal lxprocLVITEM, LenB(LVITEM), MEM_RELEASE CloseHandle hProc End If End IfEnd Function
Increment 5 Digits Number
Hello, I need help here. What I'm trying to do:
1) to has a function that will generate a unique 5 digits number that will increase everytime I call the function. I want to use it as slip number. It start from 00000 to 99999. If it more than 99999 then it will be reset to 00000.
2)this function will search in the table whether the number generated already existed or not, if yes it will increment the number if no then it will assign the number to the txtfields(1).
Below is my code but it doesn't work well.
code:
________________________________________________
Private Function tranNo()
Static code1 As Double
start:
txtFields(1).Text = Format(code1, "00000")
txtFields(1).Refresh
If code1 < 99999 Then
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
If Adodc1.Recordset("tranNo") = code1 Then
code1 = code1 + 1
GoTo start:
Else
Adodc1.Recordset.MoveNext
End If
Loop
End If
Else
code1 = 0
End If
End Function
___________________________________________________
In summary, this number like an autonumber. Can anyone help me to correct the code, or suggest another way to do it? Help me please!
Increment For A Number With The Alphabet...
Dear all,
Can anyone teach me how to increase the number with the alphabet as well?
For Example, "A00001", everytime, when i click the command button, it will automatically + 1, "A00001" -> "A00002-> "A00003 -> "A00004 -> ... until "A99999"
Many Thanks...
Regards,
Nicholas
Increment The Invoice Number
i am working a Simple invoice but i need it to auto increment the invoice number.
want when Comand Button that once clicked increases the number in Range 1 by one already save number.
please if some one have any simple project please send it to me.
i am really thankful to you .
Auto Increment Of A Number According To Year....
Hi Friends,
I have a problem here,I want to increase the number like this ....
2002/1 ; 2002/2 ; 2002/3 ; 2002/4 .......
2003/1 ; 2003/2 ; 2003/3 ; 2003/4 .......
like wise.....
If I select the year from combobox then according to the year the number should increse and that should be concatinated to the year and the whole should be pasted in text box.....Using Ms-Access as a database and VB as frontend......
Thanks
Solved: Increment About Form Version Number
Happy holidays!!
Can someone explain how to increment the About form version number? It just stays at 1.1.0. Other than not incrementing the form looks just fine. The code in the About form includes...
Code:
Private Sub Form_Load()
Me.Caption = "About " & App.Title
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & _
"." & App.Revision
lblTitle.Caption = App.Title
lblDescription.Caption = "This program was written by ...blah blah"
lblDisclaimer.Caption = "Warning: ...This program is protected ....blah"
End Sub
..but there is also under - project properties - make, the version number Major, Minor, Revision.
I have them each set to 1. And, the Auto increment is checked. But, I'm not sure about under Application the Title and Icon part. The drop down for the Icon just lists all the different forms I have in this project. I don't think of a form as an icon what am I missing here?
Under Version Information Type there are entries like comments, company name, file description and so on. What are these for?
Forgive my ignorance I realize this ain't rocket science. Maybe it's the triptophan kicking in.
thanks for any help
Hal
Edited by - Hal on 11/29/2003 7:57:44 PM
(RESOLVED)(VB6)Auto Increment Number In Access
Hon'ble gurus,
I use Access2002 and VB6. My project is a school project. I have 2 comboboxes and one textbox. In my Access database I've already entered data. In combo1 I show the classes like LKG,UKG,STD I,STD II,STD III etc. In combo2, I show the names of students found in that particular class which is selected in Combo1.Let's assume that the maximum strength in each class is 100. Now I want to allot Roll no to students of different classes in a particular way. For example: Students of LKG should have Roll no starting from 101. Students of UKG should have Roll no from 201. Students of STD I should have Roll no from 301 like this. In the textbox if I write the first roll no of a class, can I allot roll no to all students of that class in auto increment way? Hope, you got me.Right? I mean, if I choose UKG and in the textbox I write 501 then roll no should be added in database against all students of that class like 501,502,503,504 and each name. The roll no should be incremented till the no of students are found in the class. Is it possible throught VB6 coding? Thanks.
pkb_pkb
Edited by - pkb_pkb on 6/28/2007 3:58:50 AM
How Do I Get The ID (AutoNumber) To Automatically Increment A Number Sqlserver??URGE
I am having a problem using the INSERT statement in ASP.NET
I have a table "Information" with the following :
Name
Email
Comments
ID (Auto Number)
I have the following insert statement
Insert into Information VALUES (MyName,Email@My.com,MyComments);
How do I get the ID ( Auto Number ) to automatically increment a number.??
i am using SQL SERVER 2000
How Do I Get The ID (AutoNumber) To Automatically Increment A Number Sqlserver??URGE
no..sql server is not handling it..
Actualyy i am doing this in ASP.NET
In my table design i have ID in the first coloumn.
Actually in my form design there are only 3 feilds like Name,Email,Comments. and a submit button.
so in my coding part i have written my sql statement like this:
sqlInsert=INSERT INTO TblTran (TRFP_Name,TTRFP_EMail,TTRFP_Comments)
so how do i get my ID in the first coloumn of the datatable??
in query analyzer when initially the value of the ID is showing NULL
so how to increment this NULL value?
Generate Auto-Number Increment In A MS Access Report
I would like to insert a automatic number field in a report that is not bound to any table. I.E. if I wanted to insert the date or time, I would simply type" =Date() ". However I would like to have every report that I generate include a auto number/random number. Any Suggstions?
PS This is for a MS Access 2000 report page.
How To Increment A Value Of String
I have t he requirement where the string should get incremented in the last place (Ex: group1.goup2,....group n) Here the value of n should get increased and get inserted into the database..
This should be done in VB 6.0
If anyone has any idea regarding this pls try to post your view..
Thanks & Regards
Vamsi Krishna
String Increment
hi experts
last time you gave me this code for string increment
AI/WE/23--+1 increment--->AI/WE/24
but when i passed
AI/WE/001--+1 increment--->AI/WE/2
i required
AI/WE/002
plz help me ,what chang i make this function
thanks in advance
Public Function IncrementString(ByVal sTxt As String, ByVal nIncrement As
Long) As String
Dim sParts() As String
Dim nUpperIdx As Long
'Split the string into different parts, use / as the delimiter
sParts = Split(sTxt, "/")
'the part to increment is the last number
nUpperIdx = UBound(sParts)
'Check that this part is numeric
If IsNumeric(sParts(nUpperIdx)) Then
'increment this part with nIncrement
sParts(nUpperIdx) = CStr(CLng(sParts(nUpperIdx)) + nIncrement)
End If
'Join the parts again and return the new string
IncrementString = Join(sParts, "/")
End Function
String Increment
i have strings values i required
AI/vb/sql/34 ---> after 1 increment--> AI/vb/sql/35
AI/vb/25 ---> after 1 increment--> AI/vb/26
Any Function or Code Plz help
Increment A String
Hey,
This is probably one of the simplist questions ever, but I have only just started using VB doing the majority of my programming in java.
I have a string
strReference which holds a character (eg 'A')
I simply want to get the value of the next character.
In java I could simply do strReference ++
but this is not avaliable and adding 1 gives a type mismatch.
Increment Numbers In A String
Hello all
I want to write files to disk with an incimental number each time the file is written. e.g. file001.txt file002.txt etc. I have a counter that increments the number which is obviously and integer. But I want to keep the preceding zeros and they obviously are not there in an integer.
Is there a neat way of including preceding zeros or do I have to do a whole bunch of if statements to add the correct number of zeros if the number is bigger than 9 / 99 / 999?
Thanks
Increment String, I.e. TD100099
Hi
I am wondering if there is an easy cool way to accomplish this:
I have a stringvalue, i.e. TD100099, Now I want to increment this value with 1, so the new value will be TD100100.
The problem is that I dont know how many leading characters the string contains (i. e. TD) in advance.
Number Of Lines Inside Rtf Box
Hi again,
I am trying to figure out how to make a function that returns the number of lines long the text inside the rtf is. Also, how do I make the blinking cursor return to the very top of the rtf?
Please help
-John
How To Display Number Inside The Circle Using Vb6
Hi,
I need to put 250 small circle and I need to display their numbers inside that circle. I tried in shape control but there is no caption property. Please help me which control I should use to satisfy my needs.
Thanks in advance,
Vijaya.
Finding The Highest Number Inside A List Box
http://www.freewebs.com/bingobango747/highest.JPG
I have an assignment where I have to input 10 numbers through an Input box(which I have coded already and is working) and now I have to code the command button to find the highest number inside that list box.
Sorry for the stupid question, but I'm lost on where I have to go from here.
Count The Number Of Characters Inside A Text Box
hi all,
please help how can i count the number of characters in a text box?
example, if i paste a certain phrase inside text1 box, i want a variable that will automatically display the total count of charcters pasted in the text1, to be displayed in text2 box.
please help.thanks!
Finding A Number In A Range Inside Text
i am parsing some text. the text has words and numbers. i want to find the first instance of a number between 999 and 10000
for example
ipos = instr(1, text, number between 999 and 10000)
i am trying to find out how to properly state "number between 999 and 10000" in the above instr code.
for example, the text says:
"i bought 4001 eggs"
my instr would find 4001, and the position would show 10
Searching String Inside Other String
Hi
I need that search a string inside other string, but I need so only the string that I put
example
I want search "1" inside strig "12;20;30;15", using instr function It found, but I want the number "1" alone
are there someone function that do it ?
thank you in advance
Search For A String Inside A String
He everyone,
How can I search for a string inside a string
ie: I want to search this string
Blabla blabla
Blabla blabla
Blabla blabla
Blabla blabla
test blaa bla
Blabla blabla
Blabla blabla
Blabla blabla
For this string
test
And if its found set a Boolean to true and if not found set the boolean to false...
Grtz,
Bloged
P.S. The String is not being loaded inside a textbox or something like that it is a variable.
How Do I Find A Specific Word Or Number Inside A Text Box
How do i find a specific word or number in a text box and then maybe replace it.
e.g.
the text box contains "This is a test"
I want to find "is" and replace it with "was"
also the text that is in the text box is text that is entered so I don't know what the text is when I make the program.
Thanks in advance.
Getting A String In Order From Lowest Number To Highest Number
Hi,
Say I have 3 numbers between 1 and 10 inclusive, none to be the same as the other:
Dim numbers_got As Boolean
Do
Randomize
a = Int(Rnd * 10) + 1
b = Int(Rnd * 10) + 1
c = Int(Rnd * 10) + 1
If a <> b Then
If a <> c Then
If b <> c Then
numbers_got = True
End If
End If
End If
Loop Until numbers_got = True
text1.text=
---------------------------
How can I get text1.text to print the numbers in ascending order? In reality I actually have about 15 numbers, so it would be a bit impractical to have loads of
If a<>b then
if a <>j then ....etc....
Thanks for any help.
(VB6)string To Number And Number To String Convert
Hon'ble gurus,
I am using VB6 and MsAccess. Can I change the types of the following? If so, then
how can I change a string to number or vice versa?
AND
how can I change a date to text and text to date?
pkb_pkb
pkb_pkb
String Inside UDT
i want to declare as string in UDT
e.g
private type Bob
strName as string
iAgeas short
end type
and pass this in my dll function and be able to modify the udt .
Search Inside A String
say i have a string which says
ollie: hello, my name is ollie
how would i detect if the first word had a : at the end of the first word, all i want is a if and then function i will write the command myself. Also, asume that the string is inside a textbox please.
thank you, ollie
Finding One String Inside Another
I want a function that can check if one string can be found inside another. e.g. "abc" is in "i went to abc the other day".
Do I use instr? strcomp?
Thanks,
Jon
Help!! How Do I Put A " Inside A String???
hi all,
i know it seems like a simple question and i've been searching the net but just cant seem to find out how in the World do i put the symbol " inside a string variable...
eg:
dim data as string
Data = " Pls Help, "me" "
I need to send the String Data out to another device that requires the " formatting....
any one?
rgds
slvr
Quote Inside A String?
I have this database program that stores descriptions of columns into a table, but when the description contains a quotation mark ' it gives the error
[Microsoft][ODBC SQL Server Driver][SQL Server]Unclosed quotation mark before the character string ")'.
The code is:
SQLQuery = "INSERT INTO dbo.DD_COLUMN_DESCRIPTIONS VALUES('" + Trim(List1.List(List1.ListIndex)) + "', '" + Trim(List2.List(List2.ListIndex)) + "', '" + coldesc + "')"
coldesc is the string for the description but when it contains a quotation mark it gives the above error.
I've thought and thought but I'm just retarded. Any suggestions> Thank you computing elite!
"'s Inside A String
How would I put a " inside of a string without it trying to end it?
I.E. - String = "I want to unclude "quotes" in my string."
*RESOLVED* How To Add A Tab Inside A String
say for example if got
Code:text1.text = "hello how are you?" & vbCrlf & " Not bad"
hello how are you?
Not bad
how do i get rid of the " Not bad" and just add a "(tab of 10 characters)Not bad" inside he string?
the same way vbCrlf goes to a new line inside a string?
thanks
Signature -----------------------------------------------------------------------------------------------------Code:Private Sub Form_Load() 'Print to from, code my problems!
Form1.Print "CanT SleeP!..... MusT PrograM!!!" & vbCrLf & "I need coffee, WhErE iS mY CoFfEe?!"
End Sub 'All things come to and end
------------------------------------------------------------------------------------------------------------------
Edited by - coma on 11/10/2003 5:19:26 PM
HTML Inside A String *problems*
So what i need is a program that takes some html code like 9 lines and where ever it find the {@} it replaces it with an increasing number 1,2,3..etc and where it finds {url} it replaces it with an image url that i load into a list box.
So i got about 500 urls so it generates me 500 html codes. I have provided the code below to see what im doing.
OK THE PROBLEM - After about 47 - 50 html code outputs (to a text box) it stops outputing code... i tried saving to a text file as well and it outputs all 500 html codes but towards the end of the code it cuts off half of the html. Ok so i output everything to a lits box instead ... it works but again it cuts off half of the html when it gets close to 500
Code:
Private Sub Command2_Click()
Dim html, result, Final As String
html = Text2.Text
Dim b As Integer
Dim url As String
Dim a As Integer
Dim x As Integer
a = List1.ListCount
b = 0
For x = 0 To a - 1
b = b + 1
url = List1.List(x)
result = (Replace(html, "{url}", url))
Final = (Replace(result, "{@}", b))
Text3.Text = Text3.Text + vbNewLine & Final
Next x
End Sub
HERES THE HTML that is being replaced
Code:
<table border="1" width="100%" id="table1" cellspacing="0" cellpadding="0" bordercolor="#C0C0C0">
<tr>
<td>
<img border="0" src="{url}" width="300" height="150"><br>
<form name="test{@}">
<a class="highlighttext" href="javascript:HighlightAll('test{@}.select1')">Select All</a><br>
<textarea rows="3" cols="64" onfocus="this.select()" style="font-size: 10pt;" readonly="readonly" name="select1"><style type="text/css">
.contactTable {background:url('{url}')
no-repeat center; width:300px!important; height:150px!important;
padding:0px!important; }
.contactTable table, table.contactTable td {padding:0px !important; border:0px
none; background-color:transparent; background-image:url('none');}
.contactTable a img {visibility:hidden; border:0px!important;}
.contactTable a {display:block; height:28px; width:115px;}
.contactTable .text {font-size:1px!important;}
.contactTable .text, .contactTable a, .contactTable img {filter:none!important;}
</style>
<div style="position:absolute;left:0px;top:40px;"><a
href="http://www.myspacejunk.net"
target="_self"><img src="http://i241.photobucket.com/albums/ff156/myspacejunk_photo/mjbutton.gif"
border="0" alt="MySpace Codes" width="75" height="37" /></div></a></textarea></p>
</form>
</td>
</tr>
</table>
<br>
Notice how i have the {@} and {url} for the vb program to replace.
So when i output to a file or a list box the last 200 html codes look like this all cut off missing the bottom portion:
Code:
<table border="1" width="100%" id="table1" cellspacing="0" cellpadding="0" bordercolor="#C0C0C0">
<tr>
<td>
<img border="0" src="{url}" width="300" height="150"><br>
<form name="test{@}">
<a class="highlighttext" href="javascript:HighlightAll('test{@}.select1')">Select All</a><br>
<textarea rows="3" cols="64" onfocus="this.select()" style="font-size: 10pt;" readonly="readonly" name="select1"><style type="text/css">
.contactTable {background:url('{url}')
no-repeat center; width:300px!important; height:150px!important;
padding:0px!important; }
.contactTable table, table.contactTable td {padding:0px !important; border:0px
none; background-color:transparent; background-image:url('none');}
.contactTable a img {visibility:hidden; border:0px!important;}
.contactTable a {display:block; height:28px; width:115px;}
.contactTable .text {font-size:1px!important;}
.contactTa
<br>
^^^^^ see how its missing stuff? Why does VB do this ? is there a string limitation or something im doing wrong ? Why cant i output this code 500 times into a text box why does it only do it like 47 times and stops, but adding it to the list box works 500 times....
Help Would be Most Appreciated
Thank You
SOLVED PROBLEM by USING RICH TEXT BOX
How Do I Insert A Letter Inside A String?
What i want to do insert a value inside a string for example:
red + a = read
I have no idea how to do that since I only know how to replace a letter inside a string. Please help.
How To Open Or Run A Form Inside A String?
Guyz please help!
I just want to know on how to open a form inside a string.
I have the following procedure to open a form:
Private sub OpenForm(byval strFormName as string)
' i dont know how the code..
end sub
Searching For A String Inside A File
Hi...
Basically what I want to do is, read a file up to a particular word in that file, and store it in an array. Then, read the next part of the file up to that particular word and store it in an array and so on till the end of the file. something like the example file given below....
message1
message2
message3
endmessage <-delimiter. store everything above into an array
message4
message5
message6
endmessage <-delimiter. store everything above since the last delimiter
into an array.
...... and so on
Any ideas would be really helpful! Thanx!
Put String Inside Definition Type
Put data inside definition type, example
Public Type x
aa As String * 1
bb As String * 2
End Type
Public z As x
I want put the data as
z="123"
and not
z.aa="1"
z.bb="23"
How do I do It or something like this ?
thank you
Count Words Inside A String
How do I count the amount of words in a string? I'm using a string to store integers (maximum of 6) for reference. The numbers in the string will not exceed 5 digits each, and are seperated by a space, although this can be changed to something else. I've searched a lot of sites but found nothing of use.
Replace Some Chars Inside A String
Hello all..there is a Replace function for VB.. but I can't seem to get it to work..can it be used for strings?
suppose I have a string :
01 02 03 04
and then I wanna replace 02 with 00,
so, I use Instr function to first locate this 02, and then I wanna replace it..
I tried using Replace function but, it can't seem to work...
can anyone help me out?
Thanks!
Joe
|
TRACKER
