(10-21-2024, 10:15 PM)TempodiBasic Wrote:

(10-21-2024, 07:53 PM)Pete Wrote: Wouldn't it be nice to have this feature for Data Restore?

On x Restore data1, data2, data3

instead of needing to code...

Select Case x
Case 1: Restore data1
Case 2: Restore data2
Case 3: Restore data3
End Select

Hi Pete
what do you think about this alternative solution?

Code: (Select All)

Rem  demo Restore : On x Restore idea



For x = 1 To 4

    On x GOSUB data1, data2, data3, data4

    Read number, nam$, Order$

    Print number, nam$, Order$

Next

Rem  demo Restore : On x Restore idea



For x = 1 To 4

   select case x

      case 1: restore data1

      case 2: restore data2

      case 3: restore data3

      case 4: restore data4

   end select

   Read number, nam$, Order$

    Print number, nam$, Order$

Next

Data 1,one,the first

Data 2,two,the second

Data 3,three,the third

Data 4,four,the forth



Dim number(1 To 4), nam(1 To 4) As String, order(1 To 4) As String



For i = 1 To 4

    Read number(i), nam(i), order(i)

Next



For x = 1 To 4

    Print number(x), nam(x), order(x)

Next

(10-23-2024, 01:01 AM)Pete Wrote: Well with Select Case you would use...

Code: (Select All)

 

Rem  demo Restore : On x Restore idea    vs Select Case

For x = 1 To 4

     Select Case x

        Case 1

            Restore data1

        Case 2

            Restore data2

        Case 3

            Restore data3

        Case 4

            Restore data4

    End Select

    Print "----------------------------------------------" 

    Read number, nam$, Order$

    Print number, nam$, Order$

Next

End

data1:

Data 1,one,the first

data2:

Data 2,two,the second

data3:

Data 3,three,the third

data4:

Data 4,four,the forth

Pete

Print "Who do you wish to consult?"

Do

    Input "1) for Pete, 2) for Steve, or 3) for Past Presidents"; x

    Print

    ' So while we can't do this, so far, in QB64:  On x Restore data1, data2, data3

    ' We can do this with Select Case...

    Select Case x

        Case 0: End

        Case 1: Restore data1

        Case 2: Restore data2

        Case 3: Restore data3

        Case Else: Run

    End Select

    Do

        Read Consultant$, blurb$

        If Consultant$ = "eof" Then Exit Do

        Print Consultant$; ": "; blurb$

    Loop

    Print

Loop

data1:

Data Pete,Likes On x Restore

Data Pete,Likes stirring the pot even more!

Data eof,

data2:

Data Steve,Likes using arrays.

Data Steve,Has his own ass but prefers to ride Pete's.

Data eof,

data3:

Data President Trump,More jobs!

Data President Obama,No jobs!

Data President Clinton,Blow jobs!

Data President Biden,Nut jobs!

Data eof,

Sub loadData (DataName As String, DataArray() As String)

    '$Include:'EDI_Data.BI'

    Dim As Unsigned Long i, lowerbound

    lowerbound = LBound(DataArray)

    i = lowerbound

    Dim As String EDI

    Select Case UCase$(DataName)

        Case "SEPARATORS"

            Restore Separators

        Case "HEADER"

            Restore Header

        Case "TRAILER"

            Restore Trailer

        Case "DETAILSEGMENTS"

            Restore DetailSegments

        Case "LOOPS"

            Restore Loops

        Case "DOCUMENTS"

            Restore Documents

        Case "VERSIONS"

            Restore Versions

        Case "DOCUMENTTYPES"

            Restore DocumentTypes

    End Select



    Read EDI

    While EDI <> "EOD"

        ReDim Preserve DataArray(lowerbound To UBound(DataArray) + 1)

        DataArray(i) = EDI

        i = i + 1

        Read EDI

    Wend

    ReDim Preserve DataArray(UBound(DataArray) - 1)

End Sub

Function isKnownDoc%% (DocType As String)

    ReDim As String Docs(0)

    loadData "Documents", Docs()

    Dim As Long i

    For i = LBound(Docs) To UBound(Docs)

        If Docs(i) = DocType Then

            isKnownDoc = -1

            Exit Function

        End If

    Next

End Function



Function isKnownVersion%% (Version As String)

    ReDim As String Versions(0)

    loadData "Versions", Versions()

    Dim As Long i

    For i = LBound(Versions) To UBound(Versions)

        If Versions(i) = Version Then

            isKnownVersion = -1

            Exit Function

        End If

    Next

End Function



Function docFriendlyName$ (DocType As String)

    ReDim As String DocumentTypes(0)

    loadData "DocumentTypes", DocumentTypes()

    Dim As Long i

    For i = LBound(DocumentTypes) To UBound(DocumentTypes)

        If Left$(DocumentTypes(i), 3) = DocType Then

            docFriendlyName = Mid$(DocumentTypes(i), 5)

            Exit Function

        End If

    Next

End Function

(10-23-2024, 11:19 AM)SpriggsySpriggs Wrote:     Select Case UCase$(DataName)
        Case "SEPARATORS"
            Restore Separators
        Case "HEADER"
            Restore Header
        Case "TRAILER"
            Restore Trailer
        Case "DETAILSEGMENTS"
            Restore DetailSegments
        Case "LOOPS"
            Restore Loops
        Case "DOCUMENTS"
            Restore Documents
        Case "VERSIONS"
            Restore Versions
        Case "DOCUMENTTYPES"
            Restore DocumentTypes
    End Select

(10-23-2024, 05:37 PM)Pete Wrote: I've loaded data into arrays using pretty much the same method as Spriggsy, so +1 for posting the example.
I thought about posting what Charlie just implemented, because it does cover using Restore with strings, however it won't substitute for an On Restore statement. Still, a nice implementation of string variables to decide what data label to restore. + 1
Fun discussion,
Pete