Quantcast
Channel: VBForums - Visual Basic .NET
Viewing all 28383 articles
Browse latest View live
↧

Simple Split

July 8, 2021, 3:02 am
$
0
0
Hi, probably a simple question, i used to work alot with VBA.. where we can do a simple split. But with .net its seems to be different:rolleyes:.

Code:
Dim mlist As Object 'noticed "variant doesnt exist
Dim month As String

mlist = Split("M1";"M2";"M3";"M4";"M5";"M6";"M7";"M8";"M9";"M10";"M11";"M12", ";")


Dim currMonthNum As Integer = api.Time.GetPeriodNumFromId(api.Pov.Time.MemberId)
    If currMonthNum = 3 Then
                For Each month In mlist"
                'blablablbabalb

                Next
↧
Search

[RESOLVED] Changing app.config file

July 8, 2021, 2:36 pm
$
0
0
I have written a program and to make it more user friendly, I decided that instead of 'hiding' a value in the file <progname>.exe.config, I would put a fake value in said file and if the program sees the fake value, it will ask the user for the proper value. Once a proper value is entered, that would then be saved.

Seems simple and everything worked just fine until the save part. My code is very simple:
Code:
My.Settings.ImageFolder = strImageFolder
My.Settings.Save()
When the program exits, the file D:\Users\<myuser>\AppData\Local\<myCompany>\<progName>.vshost.exe_Url_w0g22drgbdpf0co5rlclb1t5htehum f3\1.0.0.0 is written. However, when the program runs the next time, the 'If' statement that checks the setting, specifically
Code:
Dim strImageFolder As String = My.Settings.ImageFolder
If strImageFolder = "foobar" Then
is positive. Basically, the program (running in Debug) mode is reading the file either in C:\Users\<myuser>\Documents\Visual Studio 2012\Projects\<progName>\<progName> in the folder \bin\release below this directory and not the file that was just saved.

Is there a way to get the Settings.Save command to write one of the files that is being read or to modify the program so that it reads the modified file? Thanks.
↧
↧

VS 2019 Possible? Using VB to interrogate large amounts of data in Excel

July 8, 2021, 4:27 pm
$
0
0
Hello. I am sure this must be possible in VB, but am having trouble finding resources to help me understand the process of how to go about it. I am using Visual Studio 2019 with Visual Basic.NET
I want to write programs to examine data on stress testing and finite element analysis which has been recorded in CSV form and then put into an Excel file. It's a pretty simple thing, I thought. I not only want to be able to put in extra information in cells whose position is determined by the program based on what is already there, but also write a program to compare information contained in cells and return to me values and information based on what is there, if that makes sense.
Can anyone please recommend a resource that would outline the basic concepts and syntax on how to go about this? I think it should be a fairly simple combination of If Then loops, but the information provided on the Microsoft Docs page about Excel Solutions is talking about starting with a new workbook and inserting data, instead of analysing information in an existing workbook.

Thanks very much :)
↧

VS 2013 [RESOLVED] Combobox change based on a different combobox

July 8, 2021, 12:23 am
$
0
0
Hi everyone,

So I have made a userform using VBA in excel and I have decided to make it an app for my colleagues, thing is, I've never actually worked with VB.net, but I do like to learn, long story short:

I managed to make a combobox values dependant from a different combobox in VBA but I'm unable to achieve this in VB.NET,

This is how I did it in VBA:

Code:
Private Sub ComboBox2_Change()

        Application.EnableEvents = False
        ComboBox3.Clear
        Application.EnableEvents = True
       
            Select Case ComboBox2.Value
                Case "Bodyshell"
                    ComboBox3.Enabled = False
                    ComboBox3.Value = "N/A"
                Case "Underbody"
                    ComboBox3.Enabled = False
                    ComboBox3.Value = "N/A"
                Case "Bodyside Assembly"
                    ComboBox3.Enabled = True
                    ComboBox3.AddItem "LH"
                    ComboBox3.AddItem "RH"
                Case "Bodyside Inner"
                    ComboBox3.Enabled = True
                    ComboBox3.AddItem "LH"
                    ComboBox3.AddItem "RH"
....etc.
End Select


End Sub
And it works perfectly, I tried the same in VB.net but apparently that's not the correct way as it seems:

Code:
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged

        Select Case ComboBox2.SelectedValue
            Case "Bodyshell"
                ComboBox3.Enabled = False
                ComboBox3.Items.Clear()
                ComboBox3.ValueMember = "N/A"
        End Select

    End Sub
So far that's the only part I'm stuck on, so if anyone could please help I'd be grateful,

Thank you
↧

Display all the class name / objects

July 9, 2021, 3:53 am
$
0
0
Hola,

I have this project where I created a lots of class and I need to process all the class/objects from this specific folder in my project named "Tables"

Name: tables.JPG Views: 38 Size: 30.7 KB

I already created the routine to get the real work done and I just doesn't want to type all the contents of the folder "Tables" to have them processed.

Is there any way to read and process all the class under the folder "Tables"?

Thanks in advance!
Attached Images
 
↧
↧

VS 2019 [RESOLVED] Possible? Using VB to interrogate large amounts of data in Excel

July 8, 2021, 4:27 pm
$
0
0
Hello. I am sure this must be possible in VB, but am having trouble finding resources to help me understand the process of how to go about it. I am using Visual Studio 2019 with Visual Basic.NET
I want to write programs to examine data on stress testing and finite element analysis which has been recorded in CSV form and then put into an Excel file. It's a pretty simple thing, I thought. I not only want to be able to put in extra information in cells whose position is determined by the program based on what is already there, but also write a program to compare information contained in cells and return to me values and information based on what is there, if that makes sense.
Can anyone please recommend a resource that would outline the basic concepts and syntax on how to go about this? I think it should be a fairly simple combination of If Then loops, but the information provided on the Microsoft Docs page about Excel Solutions is talking about starting with a new workbook and inserting data, instead of analysing information in an existing workbook.

Thanks very much :)
↧

Using an sql statement in my datagridview

July 9, 2021, 1:39 pm
$
0
0
I have a datagridview and a sql statement and I need to get the data to populate in the datagridview.

Query:
sqlStr = "SELECT Release,PRODWK,SHIPMON,COMPL,TGTSHIP,SCHPROD,AB,ARM,SHAFT,FIT,HDW,FIN,WELDCMP,DATE_REQ"
sqlStr += " FROM jobscopeMeyer.dbo.PPJOBM p "
sqlStr += " Left JOIN ("
sqlStr += " Select SearchKey As RELEASE_PU, "
sqlStr += " MAX(Case When DataItem = '27 PRODWK' THEN AlphaValue END) AS 'PRODWK',"
sqlStr += " MAX(CASE WHEN DataItem = '28 SHIPMON' THEN AlphaValue END) AS 'SHIPMON',"
sqlStr += " MAX(CASE WHEN DataItem = '30 %COMPL' THEN AlphaValue END) AS 'COMPL',"
sqlStr += " MAX(CASE WHEN DataItem = '31 TGTSHIP' THEN AlphaValue END) AS 'TGTSHIP',"
sqlStr += " MAX(CASE WHEN DataItem = '70 SCHPROD' THEN AlphaValue END) AS 'SCHPROD',"
sqlStr += " MAX(CASE WHEN DataItem = '81 AB%' THEN NumericValue END) AS 'AB',"
sqlStr += " MAX(CASE WHEN DataItem = '82 ARM%' THEN NumericValue END) AS 'ARM',"
sqlStr += " MAX(CASE WHEN DataItem = '83 SHAFT%' THEN NumericValue END) AS 'SHAFT',"
sqlStr += " MAX(CASE WHEN DataItem = '84 FIT%' THEN NumericValue END) AS 'FIT',"
sqlStr += " MAX(CASE WHEN DataItem = '85 HDW%' THEN NumericValue END) AS 'HDW',"
sqlStr += " MAX(CASE WHEN DataItem = '86 FIN%' THEN NumericValue END) AS 'FIN',"
sqlStr += " MAX(CASE WHEN DataItem = '87 WELDCMP' THEN AlphaValue END) AS 'WELDCMP'"
sqlStr += " From jobscopeMeyer.dbo.UserDefinedFields"
sqlStr += " GROUP BY SearchKey"
sqlStr += ") PU ON RELEASE_PU = RELEASE"
sqlStr += " Left JOIN ("
sqlStr += " Select RELEASE AS RELEASE_PJ, MAX(DATE_REQUESTED) AS DATE_REQ"
sqlStr += " From JobscopeMeyer.dbo.PPJOBD"
sqlStr += " WHERE DATE_REQUESTED NOT IN (0,99999999)"
sqlStr += " GROUP BY RELEASE"
sqlStr += " ) PJ ON RELEASE_PJ = RELEASE"
sqlStr += " where RELEASE = '" + strRelease + "'"

Here is the output from the query:
Name: Database Output.jpg Views: 56 Size: 5.4 KB


Here is what the Datagridview look like:
Name: JobScreen.jpg Views: 56 Size: 5.7 KB
Attached Images
  
↧

Handler for multiple Comboboxes in VB2010

July 9, 2021, 3:23 pm
$
0
0
I want to disable the mousewheel to prevent scrolling in the Comboboxes.

For 1 Combobox this works:

Private Sub CmbDienst_MouseWheel(sender As Object, e As MouseEventArgs) Handles CmbDienst.MouseWheel
Dim HMEA As HandledMouseEventArgs = DirectCast(e, HandledMouseEventArgs)
HMEA.Handled = True
End Sub
But how can I add this to ALL comboboxes? There are a lot of them in the form.

I was looking for something like

Private Sub Combo_Mouse()
For Each c As Control In Me.Controls.OfType(Of ComboBox)()
'And then...?
Next
End Sub
↧
Search

VS 2019 Database Rows to Columns in Result

July 10, 2021, 2:22 am
$
0
0
Hi there,

I have the following tables:

User
Code:
id  |  full_name

1  |  Bill Gates
2  |  Joe Bloggs
3  |  Travis Barker
Certificate
Code:
id  |  name

1  |  Health & Safety Training
2  |  MEP
3  |  18th Edition
Certificate_Expiry
Code:
id  |  user_id  |  certificate_id  |  expiry_date

1  |  1        |  1              |  2021-06-05
2  |  1        |  3              |  2022-01-12
3  |  3        |  1              |  2021-07-21
4  |  2        |  2              |  2022-06-12
5  |  3        |  3              |  2021-10-12

I want my result to look like:
Code:
full_name      |  Health & Safety Training  |  MEP              |  18th Edition

Bill Gates      |  2021-06-05                |  Null            |  2022-01-12
Joe Bloggs      |  Null                      |  2022-06-12      |  Null
Travis Barker  |  2021-07-21                |  Null            |  2021-10-12
I managed to get the result in SQL Management Studio with the following query:

Code:
DECLARE
                                @cols AS NVARCHAR(MAX),
                                @query  AS NVARCHAR(MAX);
                                select @cols = STUFF((SELECT DISTINCT ',' + QUOTENAME(ce.name) 
                                                                                FROM [Company].[dbo].[Certificate_Expiry] cx
                                                                                LEFT JOIN [Company].[dbo].[Certificate] ce
                                                                                        ON cx.certificate_id = ce.id
                                                                                FOR XML PATH(''), TYPE
                                                                          ).value('.', 'NVARCHAR(MAX)'), 1, 1, '');
                                set @query
                                    = N'SELECT full_name, ' + @cols + N'
                                        FROM
                                        (
                                            SELECT u.full_name, ce.name, cx.expiry_date
                                            FROM [Company].[dbo].[Certificate_Expiry] cx
                                                        LEFT JOIN [Company].[dbo].[Certificate] ce
                                                                ON cx.certificate_id = ce.id
                                                        LEFT JOIN [Company].[dbo].[User] u
                                                                ON cx.user_id = u.id
                                        ) x
                                        PIVOT
                                        (
                                            MAX(expiry_date)
                                            FOR name IN (' + @cols + N')
                                        ) p ';
                                                exec sp_executesql @query;
But I don't think there is a way of using this query in VB, if someone could clarify that that'd be great.

So I'm wondering if there is a way of doing it with LINQ or Lamba or if I should change the structure of the database?

Any help would be appreciated, thanks in advance.
↧
↧

How to save settings for UserControl(s)?

July 10, 2021, 3:24 am
$
0
0
Hi all. :wave:
Saving parameters for keeping data after shutting down is possible through Project>Settings.
I already used several items to save (fonts, checkboxes booleans, strings, etc.)

Code overview would look like this:
Code:
Private my_digit1 As Boolean

Public Sub New()
        InitializeComponent()
        InitializeSettings()
End Sub

 Private Sub InitializeSettings()
        my_digit1 = My.Settings.digitm1
End Sub
*Some graphical settings were also done.
- (ApplicationSettings)
(PropertyBindings)
Value: digitm1

The problem is, how can I save some UserControl array, control values in settings and recall them in every opening?
↧

VS 2019 Is it possible to Drag an Image to Winform GeckoFX browser?

July 10, 2021, 3:38 am
$
0
0
I'm using Geckofx 60 to fill a web form. I have to attach images/files also.

Eventually, I want to automate the process. :)

I have been trying to implement this. But there is no error/success.

Drag & Drop is also available in that web form. Is it possible to drag a local file/image to the Winform GeckoFX browser? :confused:
↧

Would like to convert Few VBA-Excel subroutines to VB.Net19

July 10, 2021, 5:10 am
$
0
0
Hello

Basically i wanted to convert the following VBA-Excel codes to VB.Net19
The object in VBA excel is Listbox and unfortunately there is no listview Object in VBA Excel
As i got stuck For viewing Each Group/Item(s) with its Selected Items/Subitems in Listview

VBA-Excel Code
Code:
Option Explicit

Dim lngcount As Long, iCount As Long, CurRec As Long, j As Long
Dim Recordset As Boolean
Dim myList As New Collection

Private Sub UserForm_Initialize()

    Dim myarray
    Dim lstRow As Long

    With listBox1
        .ColumnCount = 3 
        .ListStyle = fmListStyleOption
        .MultiSelect = fmMultiSelectMulti
        .ColumnWidths = "55,70,80" 
        lstRow = Worksheets("Sheet2").Cells(Rows.Count, 2).End(xlUp).Row
        myarray = Worksheets("Sheet2").Range("B3:D" & lstRow).Value 
        .List = myarray
    End With

    CurRec = 1


End Sub

Private Sub cmbGroup_Change()

    Dim myarray
    Dim lstRow As Long
    Recordset = False
   
Dim myRanges As Range
Set myRanges = Sheets("Sheet2").Range("B3:D10")

Dim idx As Long

idx = cmbGroup.ListIndex
If idx <> -1 Then
txtGroup.Text = Worksheets("Sheet1").Range("B" & idx + 3).Value

End If
End Sub

Private Sub txtGroup_Change()
    Dim sCount As Long, lstRow As Long
    Dim rngSource
    Dim mySelections
    Dim i As Long, j As Long

    Recordset = False
    With Sheets("Sheet2")  'Sheets("Sheet1")
        .Activate
        'lstRow = .Cells(Rows.Count, 1).End(xlUp).Row
        lstRow = .Cells(Rows.Count, 2).End(xlUp).Row
        rngSource = .Range("B3:D" & lstRow).Value 
    End With

    If Not txtTrial.Text = "" Then
        For sCount = listBox1.ListCount - 1 To 0 Step -1
            If InStr(1, LCase(listBox1.List(sCount, 0)), LCase(txtTrial.Text)) = 0 Then
                listBox1.RemoveItem sCount
            End If
        Next sCount
    Else
        listBox1.List = rngSource
    End If


End Sub


Private Sub cmdSelectAdd_Click()
 AppendRec True
End Sub


Sub AppendRec(sAdd As Boolean)
 
 Dim myItem As Collection, blnSelected As Boolean  ',icount As Long,
 Dim i As Long
 Dim noneSelectCount As Integer
 blnSelected = False
 Set myItem = New Collection
 noneSelectCount = listBox1.ListCount    'newy entered
 
 lngcount = 0
 For iCount = 0 To listBox1.ListCount - 1
    If listBox1.Selected(iCount) Then
        blnSelected = True
        myItem.Add Array(listBox1.List(iCount, 0), listBox1.List(iCount, 1), listBox1.List(iCount, 2))
        lngcount = lngcount + 1
    End If
  Next iCount

 
 Select Case sAdd
    Case True
        If blnSelected Then
          myList.Add myItem
        Else
          myItem.Add Array(listBox1.List(0, 0), listBox1.List(0, 1), listBox1.List(0, 2))
          myList.Add myItem
          lngcount = lngcount + 1
 End If
        List_Current_Display (CurRec)
End Select

End Sub

Public Sub List_Current_Display(selItemsCount As Long)
    Dim checkItem As Long, intItem As Long
    Dim Newarray()
    Dim myItem As Collection
    Recordset = True
    listBox1.Clear
    On Local Error GoTo errlcl

    ReDim Preserve Newarray(1 To myList(selItemsCount).Count, 1 To 3)
    For checkItem = 1 To myList(selItemsCount).Count
        For intItem = 1 To 3  '
            Newarray(checkItem, intItem) = myList(selItemsCount).Item(checkItem)(intItem - 1)
        Next
    Next
   
    listBox1.List = Newarray

errlcl:    Resume Next

End Sub

Private Sub cmndNext_Click()
    If CurRec < 20 Then
      CurRec = CurRec + 1
      List_Current_Display (CurRec)
    End If
End Sub
Well the below is the brief Explanation of above subroutines of VBA-Excel
1. Publicly defined variables with Option Explicit

2. Uf_Initiliaze - Form being Loaded with Listbox

3. ComboBox as cmbGroup to Select Group which displays its respective items in Listbox with help of TextBox_Change Event ie txtGrop_Change

4. cmdSelectAdd_Click -> Command button to Select items calling subroutine AppendRec(True) where Each Group Entered with SELECTED List of Respective Group Items
so basically For Eg. Group Selected is "Things" its Selected Items/Subitems could be Laptop Mobiles and Headphones out of the "Things"Full List
Group Selected is "Fruits" its Selected Items/Subitems could be Banana and kiwi out of the "Fruits" Group List

5. List_Current_Display(curRec) -> to display the Selected items Preserved in Array of Above Gropups "Things", "Fruits" etc ie to display Selected List of Each Group

6. cmndNext_Click -> Command button to Display the next Current(Record) of Group with its Selected List of Items


The below displays the Selected for One Group only as per thread 892479
What if i had to incorporate the above VBA AppendRec(True) Subrotine in below Sub-Routine of VB.Net19. So how do i go about it ?

VB.19 Code for SelectedItems for a Single Group
Code:
Private Sub CmdAddSelectedItems_Click(sender As Object, e As EventArgs) Handles CmdAddSelectedItems.Click

    Dim items as New List(of ListViewItem)

    For selItemsCount As Integer = 0 To ListView1.Items.Count - 1
      If ListView1.Items(selItemsCount).Checked = True Then
              items.Add(New ListViewItem(ListView1.Items(selItemsCount).SubItems().Cast(Of ListViewItem.ListViewSubItem).Select(Function(s) s.Text).ToArray))
               
        End If
    Next

    ListView1.Items.Clear
    ListView1.Items.AddRange(items.ToArray)
End Sub
If i could be assisted in converting Excel VBA above Coding specially List_current_Display(curRec) and AppendRec(true) to VB.Net 19.

A straight forward request : Don't allow me to post replies for the Syntax Errors

Thanks

SamD
Thread 11 892555
57
↧

VB.net - Get the value of a specific column of a filtered data-bound datagridview

July 10, 2021, 6:50 am
$
0
0
Hi,
I cannot find out how to get this to work.

I have a datagridview where user can fitter if based on some options they have. There is also a double-click feature that gets some additional info when a when a row is double-clicked. It is all good when no option is selected. But when the data source is changed, then the row index is still refers to the previous data even though the DGV is showing something else.

I might have misspoken by saying "filtered" as in fact I rebind the DGV with a new data source each time an option is selected:
Code:
Dim MyBindingSource As New BindingSource()
 MyBindingSource.DataSource = ThisTable

With ThisDGV 
    .DataSource = MyBindingSource
End With
Things are all good when the DGV is not "filtered", but when it is filtered the row index assumes the data from the original datagridview.

Can some one please help to find a solution to this?

Thanks in advance.
↧
↧

VS 2019 [VB.NET] Nearest Neighbor Algorithm compare audio two audio files exemple

July 10, 2021, 5:42 pm
$
0
0
I was looking for something related to manual recognition of two files per wave to identify something spoken, I found Nearest Neighbor Algorithm that takes something like that. i want to create my own voice recognizer on file. Well the idea is to do the following:

Compare the audio spoken in a wav or mp3 file with the audio in another file and then say if it is close or similar to the audio in file one with file two.

But I didn't find any example of Nearest Neighbor Algorithm with visual basic for simple purchases of photos, audios, bits, or numbers. While searching google engines, bing duckgo , search. I didn't find anything relevant related to bits or audio, Does anyone have deep understanding or a link that can help me about or an idea to do this otherwise without speech or voice recognition.

My goal with this is to get better results, even when a person speaks softly or with a changed voice where I can customize manually so VoiceRecognition is not useful for me to work on this project.
Mais sobre o texto originalÉ necessário fornecer o texto original para ver mais informações sobre a tradução
↧

What version without Teams, Git and all those things?

July 10, 2021, 9:55 pm
$
0
0
What is the latest version of VB.net that doesn't come with functionality for Teams, Git and similar features?
↧
Search

how to save data from text box at same time all data in data grid view

July 10, 2021, 11:28 pm
$
0
0
help me sir...



how to save data from text box at same time all data in data grid view
in textbox:
Mark
a
abat

in datagrid view..
fines -100
PTA - 100

i need result like this in my table
mark a abat - fines - 100
mark a abat - PTA - 100

pls help me
↧

Month calendar

July 11, 2021, 12:10 am
$
0
0
I am trying to use a third party month calendar to jazz up my month calendar.
I have managed to make certain dates based on a a mysql data tabl bold using the standard month calendar control. However I would like to add an image to those dates. Seems like it cannot be done with the standard control.

I have added the .dll van the following https://www.codeproject.com/Articles...0/Calendar-NET

However I cannot see the control in my toolbox. I have tried both the .dll in the binaries and source code download.
I have searched but cannot find a solution.

I am using Visual Studio Community 2019 and .Net 3.0 Core.

Regards
↧
↧

[RESOLVED] How to save settings for UserControl(s)?

July 10, 2021, 3:24 am
$
0
0
Hi all. :wave:
Saving parameters for keeping data after shutting down is possible through Project>Settings.
I already used several items to save (fonts, checkboxes booleans, strings, etc.)

Code overview would look like this:
Code:
Private my_digit1 As Boolean

Public Sub New()
        InitializeComponent()
        InitializeSettings()
End Sub

 Private Sub InitializeSettings()
        my_digit1 = My.Settings.digitm1
End Sub
*Some graphical settings were also done.
- (ApplicationSettings)
(PropertyBindings)
Value: digitm1

The problem is, how can I save some UserControl array, control values in settings and recall them in every opening?
↧

VS 2019 VB.NET Change Any keypress by another on any where

July 11, 2021, 8:44 pm
$
0
0
I'm trying to make every time I press a key on the keyboard it is replaced by special symbols anscii:

But in all textbox controls, richtexbox everything that can be entered a value.

But I have a form2 called with: me.controls.add(form2)

and also when I precionar selected in the second form that the same values ​​are valid for any.

I thought of the following method:

Create a module with all key definitions:

Module:
Code:
Public sub keysubbcall()
If e.keypress = Keys.A then
Set selected.text = "AnciiCode112"
end if

If e.keypress = Keys.A then
Set selected.text = "AnciiCode113"
end if
end sub
So in the form's keydown call:

Code:
call module.kepress(keysubcall)
But from what I thought it doesn't work well, I'd like it to work in all but only selected regardless of the form, even if it's an exe called done in vb being toplevel(false)

is there any way to do this without using the method I've always done but always for something definite:

Code:
if e.keys = kepress.a then
textbox1.text &= "Ancii112"
end if
But I would like it to work on any text input control.



Code:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Form1.Keypreview = True
End Sub

' Internet Ref:
'REM : https://stackoverflow.com/questions/13727172/vb-net-keydown-event-on-whole-form
'*************************************************************************
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
    If  e.Control AndAlso e.KeyCode = Keys.S then
        ' Call your sub method here  .....
        YourSubToCall()

        ' then prevent the key to reach the current control
        e.Handled = False
    End If
End Sub
↧

[RESOLVED] VISUAL STUDIO 2017 how can i to get specific number or name from a long string?

July 12, 2021, 3:51 am
$
0
0
hey
im using a certain api that returns to me a big string.
this string length changes depend of the data i send.
for 2 hours im breaking my head to find a solotion no luck.
this string can contain 400 length and 145 length or 2000 length so it changes.
i used mid and indexOf but still its not precise.
this is the string

Quote:
{"results":{"status":"success","code":0,"description":"operation has been success"},"data":{"transaction":{"uid":"ccb137af-43bf-48d7-b377-4012377afb75","number":"XXtehe","type":"api","date":"2021-07-12 13:46:12","status_code":"000","amount":180,"currency":"USD","credit_terms":"regular","payments":{"nu mber_of_payments":1,"first_payment_amount":0,"rest_payments_amount":0},"secure3D":{"status":false,"t racking":null},"approval_number":"0226435","voucher_number":"01-001-016","more_info":"","add_data":null},"data":{"customer_uid":"2395071f-c139-4517-aa0f-d95736667201","terminal_uid":"3c07bd69-600c-4cf8-a7dc-86308e99fb2b","cashier_uid":"4b9b7acf-1c67-46b3-a255-5269f973319e","items":[{"name":"","amount_pay":180,"discount_amount":0,"discount_type":null,"discount_value":null,"quantity ":1,"quantity_price":153.85,"product_uid":"9136daf9-2499-4787-817e-055797a1e5ad","vat":26.15}],"card_information":{"token":null,"four_digits":"6448","expiry_month":"10","expiry_year":"25","clear ing_id":2,"brand_id":7,"issuer_id":1}}}}
i marked in red the data i want to pull
this is the only data i need from this string.
tnx in advaned
salsa
:)
↧
Viewing all 28383 articles
Browse latest View live
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>