Visual Basic :: Strore And Retrieve X,y Position Values

Need Help In XML And Vb To Retrieve Values
Hi all,

I have XML file as shown below:
Code:
<log>
<Fruits>
<date>18-Apr-2005</date>
<time>16:14:22<time>
<Stock>
<item>Banana</item>
<item>Apple</item>
<item>Grapes</item>
<item>Mango</item>
<item>Others</item>
</Stock>
</Fruits>
</log>
I need output like:

Banana
Apple
Grapes
Mango
Others

i.e., I want to retrieve the value in between <item>, </item>.

I searched the forum but haven't find anything like my request.

Please help me on this.

Thanks in advance.

Kanna.

How To Retrieve Values
i use common dialog box to open and select the particular file in a path. if i select a particular filename and click open in the dialogbox, then the values inside that file should be retrieved in the listbox.how it is possible using vb coding? similarly, if i open a folder the filenames in that folder have to be displayed in the listbox. please give me coding for the above two.

Retrieve Listbox Values
Hey, I am currently using this code to store values from different text boxes into a listbox on another form which works fine.

If cust.Text <> "" And days.Text <> "" And Location.Text <> "" And Date1.Text <> "" Then
cust1 = cust.Text & " " & days.Text & " " & Location.Text & " " & Date1.Text
Form4.customer.AddItem cust1, 0
End If

The problem I am having is that I don't know how to retrieve all the values of the listbox and store them as a variable

Retrieve All Registry Values Under A Subkey
I'm fairly familiar in using the registry... i have a program that dumps multiple values under a subkey... Is there any way to determine ALL the value names under this subkey without knowing the actually value name... Basically a way to return the number of values and their names....

Retrieve Values From A Hierarchical FlexGrid
Hello all;

For the first time, I am exploring the Hierarchical flexgrid control. Much to my surprise, I have not yet found a way to retrive values from a row when the user clicks on a given cell. Also, is there a way to prevent the user from selecting multiple rows? Thanks,

DA

How To Retrieve Values From Active X Control
I have created a very simple Active X Control for use in ASP pages using VB 6 just to do some playing around. It consists of nothing more than a ListView control. Now, if I were to actually use this in a production environment how would I be able to grab the values out of the Control for insertion into a Database?? Thanks.

Enumvalues - How Do You Use This To Retrieve Values For A Registry Key?
Hi,
I have found no documentation on this enumvalues function in VB. It is used to return all the values in a registry key.. but how do you do this?? Thanks in advanced.

Edited by - Marce22 on 12/21/2004 1:46:54 PM

Retrieve Values From Excel Graph
Hi,

In Excel i want to retrieve the values from a graph with Visual Basic.

Anyone knows how to do this?

Retrieve Values From A VSFlexGrid On Browser
Hi all,
How do i filter out values from a VSFlex grid control which is on the browser onto an asp page?
For eg: I have made an Active X control and have included it into an HTML Page(assume x.html) by using the <OBJECT> Tag.. The user is able to add values into this VSFlex Grid and on submitting this page (x.html) to a page (y.asp) how can i read the contents of the grid since i am unable to pass the grid using neither the GET nor the POST method ????

I am not using any data control to populate the Grid but the grid is dependent on values entered by the user on the browser

Any takers ???

Thanks u've been of great help

Regards
Ashvin

Retrieve <select Multiple> Values In ASPs
hi, how do i retrieve the values from a <select multiple> tag from a form in ASPs???

thanks

Please Help.. How Can You Save Values Of All Checkboxes To Registry, && Retrieve Them?
Heres the code im using to save values of all checkboxes into the registry..

VB Code:
Dim x As ObjectFor Each x In Form1 If TypeOf x Is CheckBox Then SaveSetting "ProjTest", "Settings", x.Name, x.Value End IfNext x

and heres the code to retrieve the values

VB Code:
For Each x In Form1 If TypeOf x Is CheckBox Then x.Value = GetSetting("ProjTest", "Settings", x.Name, 0) End IfNext x

however, if the checkbox is an array, then the code will not work, because the naems of Check(1), Check(2) and Check(3) are all "Check"..

anyone have a method of saving and retreiving the values that will work with arrays too?

I guess what you can do is save the index as well (ie save x.Name & "," & x.Index") and then when retreiving values use split to apply the settings... but im not sure how to do that part

anyone know?

Need To Retrieve And Updated Values In MS Excell Sheet In VB6
I want to acces a MS Excell document and retrieve values from it in a VB6 program. Also need to updated the document with new values.

Appreciate your help regarding this matter.

Saman Wickramanayake

Retrieve And Display Numerical Values From A Table On The Internet
As my title says i am having trouble to display numbers from a table on the internet i am just using Visual Basic

Note: i want to display them in text boxes

How Can You Retrieve All Values Of Keynames And Keyvalues In A Registry Folder?
anyone?

MSChart: How To Retrieve Data Values From Mouse Over/click On Xy Plot?
I hope someone out there can help me. I've been reading Microsoft's miserable excuse for online help all night and am getting very frustrated.

There seems to be no way to extract plotted values from the chart. I am not using the MS datagrid for this, just filling the chart from an ordinary 2-D array.

I want to display x and y values in a label as I move the mouse over different parts of the scatter plot (or if that won't work, at least have the x-y data displayed when the user selects a data point). Anyone know if this is possible? It seems it certainly should be.

I would be greatly appreciative for any insights from anyone. Also, are there any good resources to learn about MSchart in gory detail? I've looked at dozens of books and searched the web and never found a good, complete source.

Thank you.

How Can I Retrieve Cell Values From Multiple Excel Documents In A Folder
I downloaded many xls files. I want to write a macro that reads the xls files and display them in a new empty excel file. I don't want to open each file, just get the cell values within a loop. I couldn't find an example on the internet. If you know a tutorial for visual basic appliacations for excel please let me know.
Thanks.

Cannot Retrieve Values From A Multiple Line, Pipe Delimited Text File
Hi there,

I am trying to read a pipe delimited file, and then output to a blank document the 'nth' value (e.g. 1st & 4th, as I only want those values) for multiple rows in a file, namely "onlbgl1.sec", stored @ "c: emp".

The file has a header row (row #1), and then subsequent corresponding rows of data.

For each row of data I want to retrieve the 1st & 4th field/values, but I'm currently retrieving 'nothing' - see MsgBox results:

Code:

Dim npath As String
Dim inpstring As String
Dim spipe_loc As Integer
Dim epipe_loc As Integer
Dim onlbgl1(1 To 35) As String
Dim i As Integer

spipe_loc = 1
npath = "c: emp"
'get variables
Open npath & "onlbgl1.sec" For Input As #1
Line Input #1, inpstring
'need second line of data
Line Input #1, inpstring

For i = 1 To 32
If epipe_loc = 0 Then epipe_loc = Len(inpstring) + 1
If spipe_loc > epipe_loc Then spipe_loc = epipe_loc
onlbgl1(i) = Mid(inpstring, spipe_loc, epipe_loc - spipe_loc)
spipe_loc = epipe_loc + 1
'Debug.Print onlbgl1(i); i
Next i
' MsgBox (inpstring)
Close #1

MsgBox (onlbgl1(1))
MsgBox (onlbgl1(4))

Selection.TypeText onlbgl1(1)
Selection.TypeText onlbgl1(4)

Any help would be greatfully appreciated.

Thanks,
Andy

How To Retrieve Child Node Values From An Xml Page Into An Asp Page
Hi I am having a xml file which is generated by a server.I wanted to get some values into my asp page.

The values i need are code in the below tag
<upload-item code="9780020360780" timestamp="1023180336000" symbology="11"/>

and
title and description in the below tag

<parameter key="title" value="The Shipping News"/><parameter key="desc" value="Macmillan Publishing Company, Incorporated"/>

Importantly I have 2 sets of each values.You can see this in the attachment.I am able to get 1st set of values.To get them I am using the below

To get the code
Set y = objDom.documentElement.selectNodes("body/response/codes/mapped-code/upload-item")

varcode=y.item(0).getattribute("code")

Set x = objDom.documentElement.selectNodes("body/response/codes/mapped-code/mapping/parameter")

'if x.length>0 then
'varTitlekey = x.item(1).getattribute("key")
'varTitleValue = x.item(1).getattribute("value")
'varDescKey = x.item(2).getattribute("key")
'varDescValue = x.item(2).getattribute("value")
'Response.Write varTitlekey & varTitleValue
'Response.Write varDescKey & varDescValue
'end if
How to get the 2nd set of values??Any help?/Any good web sites??

ADO Data Control Did Not Retrieve Newly Added AutoNumber/Identity Fields: It Did Retrieve 0 Only.
I USE:
ADO 2.5
LOCAL DATABASE ACCESS 97
Clientside cursors
Microsoft OLE DB Provider for Jet, version 4.0
BUT
the Microsoft DataGrid Control 6.0 bound to an ADO Data Control did not retrieve newly added AutoNumber/Identity fields: it did retrieve 0 only.

How can I decide this problem?

Sukhodub D. S.

How Would I Position My Form At The Current Caret Position (like The Menu For Inserting Stuff In Msv
How would i position my form at the current caret position (like the menu for inserting stuff in msvb6)

How Can I Position ChildMDI In Centre Position Of ParentMDI
How can I position my ChildMDI form in the centre of my ParentMDI form.
And further more, how can I pass form variable (eg. text box entry, radio button selection) from one MDI form to another. Or one form to another. like one shown in picture attached. The sample output is derived from the previously filled form. How to pass these variable?

Row Position, Column Position Of Cursor In RichTextBox
I am trying to create a text editor with some enhanced specific features for my application. One of these features which is a MUST is that I need to know which row and column my cursor is on at any given time. Therefore if I use the arrow keys, or click on the RichText Box, I can update the statusbar to tell me which line number (row) and character position within the line I am on.

I am not totally sold on using the rich text box, but the files can be somewhat large, and I need the text to be editable.

When Retrieve Data From DB Whole Screen Is Jam, How To Cancel Data Retrieve..
When retrieve data from DB whole screen is jam, how to cancel data retrieve..

I want to create a function to end the data retrieve function... but when click to retrieve data whole screen already like hang... any button also cannot click before the task is complete.....

How To Make A Form Default All Field Values To The Previous Records Values ?
Using Access2000 on 2k.

Have a database form in single form view (has a sub form in it).
Got a request to put in a button that will do the same as new record but default the new record to all the same values as the current forms record shows. I think there are several ways to do this, I'm afraid I'll pick the most difficult one if left to my own devices. (i.e. DAO recordset looping etc.)

The first thing I tried was using a wizard to add a button and chose the duplicate record offer from the wizard. It almost works but it presents a record without the arrow or the pencil in it, gives it a record number that makes me think it has appended it. but when I move away from the record and back to it again, it's empty.

If I right click and copy and then paste it does what I expect it to. That is put the copied information in the end record.
But the user doesn't want to copy and paste, they just want to push the button and then modify the needed fields.

I wizard gave me code that looks like this:
Private Sub cmdDupRec_Click()
On Error GoTo Err_cmdDuplicate_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

Exit_cmdDuplicate_Click:
Exit Sub

Err_cmdDuplicate_Click:
MsgBox Err.Description
Resume Exit_cmdDuplicate_Click

End Sub

Sending Values Multiple Values To ONE Word File[Resolved Like A Horny Ho']
I have searched for how to do this and have the code to start up a word app: (thanks to Carl)

Option Explicit

VB Code:
Private Sub Command1_Click() Dim WordApp As Word.Application Set WordApp = New Word.Application With WordApp 'create word app from default template .Documents.Add "Normal.dot" 'don't ask me to save before quiting! .DisplayAlerts = wdAlertsNone 'show the word window .Visible = True 'active the window .Activate 'send text to the window .Selection.Text = "Hello World!" 'print the page .PrintOut 'wait for document to print before quiting Do While WordApp.BackgroundPrintingStatus Loop 'quit .Quit End With Set WordApp = Nothing End Sub

But what I need to do is have users check the fields who's values they want to include in a report and have the word file as the report. Here's a GIF of what I mean:

The checkboxes indicate the values and field names to be included in the word document.
Does anyone know how to do this/a tutorial for this?
thank you xxxx

.ini File Creation/reading Values/modifying The Values
Hi i would like to store some values in a form and retrive when ever required. i would also like to modify them at runtime.
so i am thinking of using .ini file.
Help me in this regard.
Is there any other way to read/write/modify values faster?

Values {read Values From Excel Sheet Using VBScript}
Hi to all,

i'm trying to do an vbscript file that reads an excel column
(as long as it has a value) and then sum the all cells' values.
If I have

3
1
5
4

it should give:

there are 4 rows
the sum is 13

this is what I have done till now but i don't know how to go on.
Can anybody please help me?
thank you

Code:
Set ob= CreateObject("Excel.Application")
file = "c:file.xls"

ob.WorkBooks.Open file
Set sheet= ob.ActiveWorkbook.Worksheets(1)

ReDim cell(200)
indicator= 1
Do While sheet.Cells(indicator, 1).Value <> ""

cell(indicator) = sheet.Cells(indicator, 1).Value

pappa = cell(indicator)

msgbox pappa

indicator= indicator+ 1

loop

rows= ?
total= ?

ob.ActiveWorkbook.Close
ob.Application.Quit

Aligning Cell Values To Header Values
Deleted

About Changing Cell Values To Absolute Values..
Hi there. I got a worksheet containing 3 columns of thousand values. In colume 3, cell values were set as "=a value in column a", eg value of range c2 ="=a3". However, after filling in values in column 3, I tried to sort the values in column 3 in alphabetic order, the values in columns 3 were changed to "=REF!". I know it's about values not being set to absolute values. As there are thousands of values in column 3, Can I use VBA code to change them to absolute values once for all (e.g. change "=a3" to "$a$3)?

Cheers.

Comparing Cell Values In Excel To One Of Several Known Values.
Hi Guys

I am trying to create a macro that will go through each cell in a column in Excell to check if that value matches one of 66 known accpeted string values i have. If the value matches, move onto the next line and if the value of the cell does not match one of the 66 known string values I am comparing it to, then I want the whole row to be deleted.

The problem I am having is I dont know what the best way to handle these 66 string values I am using to compare each cell. As its way to big to use them in an IF statement. Can anyone help me out with this please as it would be greatly appreciated as I am new to Excel macros.

Thanks

Edit by Moderator:
Please post Excel questions, in the Excel forum.

Thank you.

Enumerate All Values, Sub Keys And Sub Values Of A Registry Key
Enumerate (list) all Values, Sub Keys and Sub Values of a Registry Key.

Does anyone know how can this be done?

Searching For Literal Values, Not Similar Values
Hi All, gota quick question. I am trying to compare one sheet to another, and trying to remove all the data from one sheet, which does not appear in the other. Using some code you guys helped me out with a couple times back I thought I could make it work. Here is my code.

Code:Sub Remove()

Dim ToBeDel As Range
Dim MyTest As Range

Set ToBeDel = Nothing
Set MyTest = Nothing

For x = 1 To ActiveSheet.UsedRange.Rows.Count

IDno = Sheets("Sheet2").Range("A" & x).Value

Set MyTest = Sheets("Sheet1").Range("a1:a898").Find(What:=IDno, LookIn:=xlValues)

If (MyTest Is Nothing) Then
    If (ToBeDel Is Nothing) Then
    Set ToBeDel = Sheets("Sheet2").Range("A" & x)

    Else

    Set ToBeDel = Union(ToBeDel, Sheets("Sheet2").Cells(x, 3))

    End If

End If

Next

If (Not ToBeDel Is Nothing) Then
    ToBeDel.EntireRow.Delete
End If

End Sub

Now it works... for the most part. The part where im having problems with is that it is detecting things that it shouldnt. i.e. the find function finds data that is like the data it is searching for not exactly what it is searching for.

For example. if i was searching for AAC it will find PAAC and treat it as a match. Is there anyway I can get it to look for exactly what im looking for. I have an idea but im not sure how to implement it. If i could somehow insert a space at the end of every cell of data that im searching and at the end of the data that im trying to match then I could get it to search for its literal value. Does that make sense? If anyone has another way im all up for it. If not if somone could tell me how to append a space to the end of every cell in a coulumn I think i would be all set.

Thanks in advance!

Doc

Edited by - doctor on 5/24/2005 8:00:37 AM

Building Up An Arrayo F Values And Work With These Values...
I've already quite much experience with VBA in Access, but I haven't ever programmed anything in Excel so far.

What I want to do is, to build up an array of all values in one column (some values may exist several times), then sort of "count the values" and display 20 values which occur the most, with the number of occurences in the column next to it.

Hope you understand me I don't even know how to apply the this Procedure to the Worksheet. You program it in the VBA Editor and then?
So please be patient with me

Mike

Sum Values Within StringA Where Values In StringB = 0
Im very new to VBA, but I have managed to get some VB working in this file. However Im stuck.

In this spreadsheet Sheet1 is my DB export. Sheet2 is how I need the report to look after my code runs.

For this piece of te project I need to Sum the values within StringA(ColumnH) where the same values in StringB(ColumnI) equal 0. I need this code to loop as I will have hundreds of records, and then place the summed value in column E on sheet2.

The values within these strings are separated by 11 characters. Each field represents a cost type, and each field in StringA has a corresponding field in StringB.

The fields we use are 1,2,3,4,5,6,7,9 8 is either a zero, or blank as we do not use it.

So the fields would be:

1 = 1-11, 2 = 12-23, 3 = 24-35, 4 = 36-47, 5 = 48-59, 6 = 60-71, 7 = 72-83, 8 = 84-95 (do not use), 9 = 96-107

Using Values In One Column To Determine Values In Another
I would like to determine the values of cells in column B by the values in column A. I can do that for one cell but not for two or more. I'd appreciate a little guidance.

Here is what works:

Code:
Sub Macro1()
If Range("A1") = "someValue" Then
Range("A1").Offset(,1).Value = "someOtherValue"
End If
End Sub

Here is what doesn't work (I get a"Run Time Error '13':Type Mismatch, which I do not understand):

Code:
Sub Macro1()
If Range("A1:A2") = "someValue" Then
Range("A1:A2").Offset(,1).Value = "someOtherValue"
End If
End Sub

Eventually I want the range to include the entire columns and to have several values in column A that determine values in column B.

Thanks,
Tom

Textbox Values Following Combobox Values
Hi, need help on these 2 points.

1. I have a combobox with 2 values:
Combo1.AddItem "A"
Combo1.AddItem "B"

I have a column of textboxes and each would have 2 values of their own. I would like the choice of the textbox values to automatically follow that of the choice of the combobox.
Initially my textboxes were all comboboxes and this command is used.

Code:
Combo2.ListIndex = Combo1.ListIndex
Combo3.ListIndex = Combo1.ListIndex
Combo4.ListIndex = Combo1.ListIndex
Combo5.ListIndex = Combo1.ListIndex
Combo6.ListIndex = Combo1.ListIndex
Combo7.ListIndex = Combo1.ListIndex
Now I only have one combobox which is Combo1 and the rest are all textboxes.
So is it possible to add 2 choices of values to textboxes and how to make them follow the choice of the first combobox?

2. What property of the textbox do I change or what syntax to add so that no matter how the user tried to change its value, the value can't be changed?

Range Of Ascii Values And Their Chr() Values
Hi all.

What is the range of chr values for all valid ascii characters (well any characters that are on the keyboard a-z A-Z 0-9 !@#$%^&*()_+;:'"[{]}|`~/?.>,< ....you get the idea...)

I'm using a bar code reader to scan in bar codes and sometimes it will scan in invalid characters such as chr(12) and others.

I'd like to be able to remove these, and I'd rather not hard code the invalid characters in there.

Thanx!

[How To] If I Change A Forms' Position All Forms Change To That Position(left&&top)
Hi all, I'm building a proggie with an-installer-like-interface.
I need all forms to be in the same position when I press "next"...
Anyway, I tried smthng, not success...

*position=.left & .top properties for every form

THX IN ADVANCE

Retrieve IP
How do I retrieve the IP address of my computer and display it in a text box?

How To Retrieve
How woould I retrieve a list of which printers the user has installed, disk drives, and fonts into listboxes?

How To Retrieve Url
hello
i am a student of be computers
i wish to know that
"how can i retrieve a url in vb i.e when i click on a link i should get its url in some text box."
if u know please help me
thanks

Retrieve Value
I would like to know how to retrieve a column value from a listbox via a variable name, in my head it would look like List1.GetItem("ItemId"). Or are the values in the listbox just a big jumple of characters that cannot be access'd or broken down into bits?

Retrieve Sms Using Mscomm
Option Explicit
Dim dummy As String

Private Sub Command1_Click()
MSComm1.Output = "ati" + vbCr
Do
dummy = DoEvents()
If MSComm1.InBufferCount Then
Text1.Text = Text1.Text + MSComm1.Input
End If
Loop
End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

dear all,
i am doing a project, and after reading quite a lot forums about
mscomm, and a lot of coding too, i still can't get a hold on how we actually
receive message from the device. note that i am using a nokia 6610
mobile phone as the modem, therefore i use the at commands i downloaded
from forum nokia (at command set for nokia gsm products, version 1.0).
what i'm trying to do is, retrieve the text "nokia" from the device,
generated from the at command "ati" (similar to at+gmi) which supposed to
request manufacturer identification. it works just fine with the
hyperterminal. i've traced this code, and apparently when it is executing
"mscomm1.input", a "run time error '8020' : error reading comm device"
occurs. it happens all the time =(
any idea about what am i suppose to do? all the properties of mscomm is
default, except for the comm port.

Retrieve File?
Hi,
Can anyone give advice on retrieving file from server..
should i use winsock/file system object..
Thanks

flariel

Cant Retrieve Variables
I have a module and 2 forms one form sends data to the module, while the other should then recieve that data from the module. The data is successfully sent to the module (Debug watches prove this) however when I try to retrieve the data on the second form I get 0 values for the integers and "" for the strings:

Code:
'************* MODULE***************
Public RMemberID As Integer
Public RSurname As String
Public RForename As String
Public RTableNo As Integer
Public RTablerate As Single
Public RTotalCounter As Integer

'*********RECIEVING FORM ***************

Private Sub Form_Load()

Dim RSurname As String
Dim RForename As String

Dim RTotalCost As Single
Dim RTotalMinutes As Integer
Dim RVAT As Single

RTotalMinutes = RTotalCounter 60
RTotalCost = RTotalCounter * RTablerate
RVAT = RTotalCost * 0.175

Picture1.CurrentX = 0
Picture1.CurrentY = 400
Picture1.Print "RECIEPT FOR USE OF TABLE FACILITIES:"
Picture1.Print
Picture1.Print "Member ID number:"; RMemberID
Picture1.Print "Surname:"; RSurname; " Forename:"; RForename
Picture1.Print
Picture1.Print "Table Used:" & RTableNo & ""
Picture1.Print "Total Time Used:" & RTotalMinutes & ""
Picture1.Print
Picture1.Print "Total Cost(incl. VAT): " & RTotalCounter & "seconds X " & RTablerate & " = " & Format(RTotalCost, "£0.00") & ""
Picture1.Print "VAT: " & RVAT & " (Included in price)"
Picture1.Print
Picture1.Print
Picture1.Print "Thank you for your custom."
Picture1.Print "E15 Snooker and American Pool Club."
End Sub

Thank You. Any help is appreciated.

Strore And Retrieve X,y Position Values

Could anyone help me with a way to store thex,y values of the positions clicked on a form and then pass these values to another form as x,y values?