CSV List - The definitive KK Photo Story, Magazine Story & Film Story data

[Al Gebra]

Originally Posted by icu

@AL, please wait with your work in 'CG'. I check the CSV to read the missing Counter automaticly.

I was hoping you would find a script to do such a boring job

[icu]

Originally Posted by Al Gebra

I was hoping you would find a script to do such a boring job

Hi Al,
it would be very nice to find some scripts, I think I'm faster in writing then searching.

Example:

This script extracted the List ...
Today I wrote it for One-Time-Use.

I make the actually transfer Entry for Entry with copy/paste from Editor to verify the Entries - The old Set## was not correct in some cases...

I think it will be faster when I finished this work. It is nice to see that there are some Entries more in 'AS' now.

Sub Command49_Click () ' Create a command button on a form
    '
    ' ICU
    '
    ' Quality 95% - Source Errors debugged 90%
    '
    set_table% = False
    set_n% = 0
    set1_found% = False
    ' Never work in the Origin - Please copy
    
    File_source$ = "My_file_source.csv"       ' <-  Enter the full Path and Filename for the source
    File_dest$ = "My_file_destination.csv" ' <-  Enter the full Path and Filename for the Destination
    '
    '  File_source$ is opened and creates File_dest$ as second File
    '
    f1% = FreeFile
    Open File_source$ For Input As #f1%
    
    f2% = FreeFile
    Open File_dest$ For Output As #f2%
        cc_set_old$ = ""
        While Not EOF(f1%)
            Line Input #f1%, b$
            If InStr(b$, " - ") Then
                If Right$(b$, 2) = "\," Then
                    b$ = Left$(b$, Len(b$) - 2) + ","
                End If
                '
                i% = 0
                n% = 0
                While InStr(i% + 1, b$, "\") > 0
                    i% = InStr(i% + 1, b$, "\")
                    n% = n% + 1
                Wend
                '
                If n% = 1 Then
                    b$ = Left$(b$, InStr(b$, " - ") - 1) + "\," + Mid$(b$, InStr(b$, " - ") + 2)
                End If
            End If
            cc_set_cur$ = Mid$(b$, InStr(b$, "\") + 1)
            cc_set_cur$ = Left$(cc_set_cur$, InStr(cc_set_cur$, "\") - 1)
            If InStr(cc_set_cur$, "_") = 1 Then
                cc_set_cur$ = Mid$(cc_set_cur$, 2)
            End If
            If InStr(cc_set_cur$, "_") Then
                cc_set_cur$ = Left$(cc_set_cur$, InStr(cc_set_cur$, "_") - 1)
            End If
            If cc_set_old$ = "" Then
                cc_set_old$ = cc_set_cur$
            ElseIf InStr(cc_set_cur$, cc_set_old$) <> 1 Then
                data_old$ = b$
                If data_old$ > "" Then
                    GoSub write_entry
                End If
                cc_set_old$ = cc_set_cur$
                
                pic_nr% = 1
            Else
                pic_nr% = pic_nr% + 1
            End If
        Wend
    Close #f1%
    Close #f2%
    Exit Sub
write_entry:
    '
    a$ = data_old$
    For i% = 0 To 2
        a$ = Mid$(a$, InStr(a$, ",") + 1)

    Next
    If Left$(a$, 1) = "\" Then
        a$ = Mid$(a$, 2)
    
    End If
    cc_cat$ = Left$(a$, InStr(a$, ",") - 1)
    a$ = Mid$(a$, InStr(a$, ",") + 1)
    If InStr(cc_cat$, "_") = 1 Then
        cc_cat$ = Mid$(cc_cat$, 2)
    End If
    If Right$(cc_cat$, 1) = "\" Then
        cc_cat$ = Left$(cc_cat$, Len(cc_cat$) - 1)

    End If
    cc_cat$ = Mid$(cc_cat$, InStr(cc_cat$, "_") + 1)
    cc_s$ = LCase(cc_set_cur$)
    If InStr(cc_s$, "cc") = 1 Then
        cc_s$ = Mid$(cc_s$, 3)
        While Left$(cc_s$, 1) = "0"
            cc_s$ = Mid$(cc_s$, 2)
        Wend
    End If
    If Left$(cc_s$, 1) = "u" Then
        cc_s$ = Mid$(cc_s$, 2)
    End If
    If set_table% Then
        If set1_found% = False Then
            If cc_s$ = "1296a" Then
                set1_found% = 1
            End If
        End If
        If set1_found% Then
            set_n% = set_n% + 1
            set1$ = "Set" + Format(set_n%, "#00")
        End If
    Else
        set1$ = ""
    End If
    If UCase(cc_cat$) = "TS" Then
        cc_cat$ = "TC"
    End If
    If cc_cat$ = "" Then
        '
    End If
    s$ = ".P, " + cc_s$ + ", " + cc_cat$ + ", " + Trim(a$) + ", " + LTrim(Str(pic_nr%)) + ", " + ", " + set1$
    Print #f2%, s$
    Return

End Sub

I'm working with XP, perhaps it's useful to write a Editor which checks the syntax ( any interrest ) ?

icu

[Al Gebra]

Originally Posted by Rob4

Al Gebra

this is how i think the two separate threads should be organised:

these posts should be transferred in order to a thread called "the definitive kk model identification thread (official sets)":

the first 4 paragraphs of post#1,
post#2 - #23, #25 - #39, #41, #43 - #49, #51, #53 - #64, #66, #71 - #76, #83, #84, #91 - #94, #96 - #99, #101, #102.

the rest of the posts will form the "the definitive kk information thread (CSV format)" or another title if this is no good?

What about posts #68 - #70?

If I'm not completely mistaken Dub edited some messages when he merged the stuff from rdx with this thread. That's why links to earlier posts are still alive.

I just started a request to the mods to help us. So leave all in this thread as is until further notice.

[Al Gebra]

Originally Posted by icu

I'm working with XP, perhaps it's useful to write a Editor which checks the syntax ( any interrest ) ?

I am a complete illiterate in writing scripts and programming.

[icu]

Originally Posted by Al Gebra

What about posts #68 - #70?

If I'm not completely mistaken Dub edited some messages when he merged the stuff from rdx with this thread. That's why links to earlier posts are still alive.

I just started a request to the mods to help us. So leave all in this thread as is until further notice.

Hi guys, sorry i'm busy this moment.
You can delete all my old posts here which are not in CSV-Formt if you want ( I think rob updated his list, missing will be repostet )

I think our first posts were only our training to find this results to comunicate and find a way to create a interface.

icu

[icu]

Originally Posted by Al Gebra

I am a complete illiterate in writing scripts and programming.

Al, I think I complete the transfer and the Counter-Action, then I try a little with a Editor.
It would run with XP ( compiled as exe ). You can forget the syntax if it runs. Just modify
the Content in Textboxes and send it to a File ( syntax will be checked automaticly ).

icu

[icu]

'BC' nearly finished.

Please help, Mismatches :

.P, set30, BC, Ensign Bliss, 22, ,
.P, 0397g, CC, Ensign Bliss, 22, ,

.P, set31, BC, The Game of Love, 21, ,
.P, 0397h, CC, The Game Of Love, 21, ,

.P, 0897b, BC, Fist Fuck Frenzy, 20, ,
.P, set66, BC, Fist Fuck Fever, , ,

icu

[Al Gebra]

Ok, gents, Dub is our partner again.

Originally Posted by Rob4

the rest of the posts will form the "the definitive kk information thread (CSV format)" or another title if this is no good?

Is "the definitive kk information thread (CSV format)" ok with you? Other suggestions?

This thread will no longer be on-topic in the 'Model ID Request' section after transferring the 'Model ID' posts. I suggest to move it as 'Sticky' to the 'Vintage Erotica Talk' section. Objections?

[icu]

I think we will have a good time there

Perhaps it would be good to warn against image or vid postings in this thread.
This is a lot of work and I think that many members don't know which hidden
treasures are here to find. A Introduction in the first Post ?

Let me know when I have to break my work for a cup of coffee.

icu

[Al Gebra]

Originally Posted by icu

Please help, Mismatches

.P, 0397g, BC, Ensign Bliss, 22, BC41.3,*

.P, 0397h, BC, The Game Of Love, 21, BC41.1, *

.P, 0897b, LL, Woman To Woman, 20, LL60.?, **
_______
* probably typing mistakes in the website CSV. They are listed in the "studio: Blue Climax" category on CC.com.
** first published in LL28?

set66 is not same as 0897b