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

[fannatastic]

Originally Posted by Al Gebra

Ok, gents, Dub is our partner again.



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

How about this?

CC data in CSV format

The title is not specific about the type of data, so we could add other stuff like mag, film and video data later. This should keep the thread active for a long time.

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?

I agree.

Note that the suggested CC data in CSV format title goes well with the amazing CC early mags with cartoon covers thread.

[icu]

Thx, done.

.P, 0897b, LL, Woman To Woman, 20, LL60.?, **
_______
** first published in LL28?

Sorry Al I can't give you answer to that.
I think the Blonde is still unknown here.
She is on the Cover of NC64 and in AS78.4 ( 108k and IOA022 ) I think.
I saw only one ID-Request for her the last month.
Both Girls are on the Cover of SB58.? ( 128l )

'CG', ready, 1 new Entry ( I make the Rest before starting the pic counts )

icu

[Al Gebra]

Originally Posted by icu

Perhaps it would be good to warn against image or vid postings in this thread.

Good idea. Postings according to the rules only.

Originally Posted by icu

A Introduction in the first Post ?

Absolutely. Anybody volonteering for a draft? We can alter the text later if neccessary.

@ all

Please try to find a consensus on

1. which posts should be transferred to Rob4's new ID thread,
2. which posts can be deleted (links to earlier posts will stay alive dispite new message numbering - but don't delete them yourself before the transfer is finished!),
3. a new title of this thread,
4. an introducing text for the first post of this thread.

Can we agree on a deadline of 9:00 pm GMT +2 tomorrow, or do we need more time for decision?

I'm out of discussion until tomorrow. Bye.

[fannatastic]

Originally Posted by Al Gebra

.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

According to my records, 0397g and 0397h are both CC! In fact, all my BC and CC mmyy sets look like they should be swapped. I think a mistake was made on the website many years ago.

.P, 0897b, BC, Fist Fuck Frenzy, 22, EX63.3, OT:Fist Fuck Fever

Unconfirmed data in italics

[Al Gebra]

Originally Posted by Al Gebra

.P, 0897b, LL, Woman To Woman, 20, LL60.?, **
_______
** first published in LL28?

set66 is not same as 0897b

I looked at 0397b by mistake.

set66 is same as 0897b - time to go to bed.

[fannatastic]

Originally Posted by fannatastic

Thanks for the list, icu.

According to my records, 1296c Category is CC.

This info could be wrong now. Category should be BC as the mag is BC43.

[icu]

It's no Problem to move the Entries .

I think there are some more Errors, just found five.
Maybe Nobody saw the Datas in this Depth.

Story Titles don't match:

.P, set93, CC, Big Tit Lovers, , ,
.P, 1197c, CC, Big Clit Lovers, 20, ,

.P, set29, SG, The Law of Lust, , ,
.P, 0397f, SG, The Law Of Love, 21, ,


Category don't match:

.P, set62, SG, Cock Hunger, , ,
.P, 0797e, CC, Cock Hunger, 22, , 

.P, set80, SG, Randy Dancing, , ,
.P, 0997f, CC, Randy Dancing, 19, ,


Category missing:

.P, 0297g, , Sex On The Riviera, 20, ,

'TR' changed to 'TC'

Next Step : Counting.

icu

[icu]

Suggestion :

fannatastic's Post 103# should also move to to top in both Threads .
I think it is very important to understand this Thread.

[icu]

Originally Posted by Al Gebra

... an introducing text for the first post of this thread...

Maybe some content for .P, .M

------------- Start

"There is a lot of useful info on VEF. Unfortunately most of it is not in an easy-to-use format. It's great for someone to share what he knows and it would be equally great if other people could copy and import the data into a database, without the need to type all the data again. That is why I think CSV format is important."*
What we want is a "reliable reference between loop/clip titles and magazine stories completed with references to corresponding CC photo sets and rdx scan sets"**


The first Step is to fill a Referencelist with useful Content:

It is banned to post content against the Rules. It would destroy all Efforts at once !

Very nice Contributions are by example :
- to recogznise a Photoset in a Magazine and post the Magazin Title
- to know the number of a Story in a Magazin
- to Post a corrected Story Title.
- to see Similarities between a Magazin Story and a Video
- to correct a Error in the Reference
- to send info's in CSV Format
- to find a Link to clean Sources like www.********com or www.jaybirdz.com with Covers or the Startpage of a Story with a readable Story-Title
- (...)

A Database is useless if you can't find what you are searching for.
The second Step is to merge the Information with other CSV-Data's to get Bridges to a Startpoint in the CSV.

- ID of a Actress / Actor. ***
Please notice that there is a existing CSV-Thread.
Post Infos about Actors / Actresses only to that Place please.

This is just the beginning - we need your knowledge.

---------- End


* fannatastic
** Al, handles .P, .M
*** handles .A

[icu]

Today I wrote a script to compile a little CSV-Edtior 1.0 ( this first Version is only for .P lines ).

It increases the Speed with min. Factor 20 or faster.
It checks and secures the Syntax.
There are some Features to reduce typing to an absolutly minimum.

It is unlimited Freeware, OpenSource and Ultra-Compact.
The 'CSV_ED.EXE' takes 12 KB space on your HD ( if there runs a VB on your PC ).
I have no commercial interests.
This File opens no other Files, it only uses the clipboard.
I'm writing nothing to the registry.

Use on own Risk ( I think that's a good deal ).

Perhaps this is a good way to transfor the content to other platforms like mac or linux.

How to compile with Win 95,98,2000,NT,ME,XP...

1. Create a Folder on Your HD.
2. Move the content of the Code-Windows via Copy/Paste to a Texteditor and save both to the new Folder :

- File 1 : Edit.mak ( use Edit.vbs for VB6.0 )
- File 2 : Edit.frm

Open File 1 with your Visual Basic, run it in Environment or compile it after testing.

That's all.

Please give me your suggestions ( good/bad/bugs/problems... )

I am planning to write a Speed-Demo ( VB-Script ) for CSV ( if there is any interest ) to show what is possible.


File 1 : Edit.mak

EDIT.FRM
ProjWinSize=392,954,248,99
ProjWinShow=2
IconForm="Form1"
Title="EDIT"
ExeName="CSV_ED.EXE"

File 2 : Edit.frm

VERSION 2.00
Begin Form Form1 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "CSV.Edit 1.01 ( unlimited Freeware )"
   ClientHeight    =   9285
   ClientLeft      =   2970
   ClientTop       =   3030
   ClientWidth     =   14745
   Height          =   10095
   Left            =   2910
   LinkTopic       =   "Form1"
   ScaleHeight     =   9285
   ScaleWidth      =   14745
   Top             =   2280
   Width           =   14865
   Begin ComboBox Combo1 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   5
      Left            =   9540
      Sorted          =   -1  'True
      TabIndex        =   13
      Top             =   1560
      Visible         =   0   'False
      Width           =   4965
   End
   Begin CommandButton Command4 
      Caption         =   "&Modify Entry"
      Height          =   495
      Left            =   12780
      TabIndex        =   12
      Top             =   480
      Width           =   1725
   End
   Begin CommandButton Command3 
      Caption         =   "&Copy"
      Height          =   495
      Left            =   10770
      TabIndex        =   11
      Top             =   480
      Width           =   1875
   End
   Begin ComboBox Combo1 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   4
      Left            =   7740
      Sorted          =   -1  'True
      TabIndex        =   9
      Top             =   1560
      Visible         =   0   'False
      Width           =   1695
   End
   Begin ComboBox Combo1 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   3
      Left            =   6660
      Sorted          =   -1  'True
      TabIndex        =   8
      Top             =   1560
      Visible         =   0   'False
      Width           =   1005
   End
   Begin ComboBox Combo1 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   2
      Left            =   2400
      Sorted          =   -1  'True
      TabIndex        =   7
      Top             =   1560
      Visible         =   0   'False
      Width           =   4185
   End
   Begin ComboBox Combo1 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   1
      Left            =   1590
      Sorted          =   -1  'True
      TabIndex        =   6
      Top             =   1560
      Visible         =   0   'False
      Width           =   705
   End
   Begin ComboBox Combo1 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   0
      Left            =   510
      Sorted          =   -1  'True
      TabIndex        =   5
      Top             =   1560
      Visible         =   0   'False
      Width           =   1005
   End
   Begin ListBox List2 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1470
      Left            =   120
      TabIndex        =   4
      Top             =   7200
      Visible         =   0   'False
      Width           =   14385
   End
   Begin CommandButton Command2 
      Caption         =   "Close &List"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   6720
      Visible         =   0   'False
      Width           =   1485
   End
   Begin ListBox List1 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   4350
      Left            =   120
      MultiSelect     =   2  'Extended
      TabIndex        =   1
      Top             =   2040
      Width           =   14385
   End
   Begin CommandButton Command1 
      Caption         =   "&Paste"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   480
      Width           =   10365
   End
   Begin Label Label4 
      BackColor       =   &H00C0C0C0&
      Caption         =   "Set          Cat.    Story Title                                        Pics#      Mag.Story#      Comments"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   510
      TabIndex        =   15
      Top             =   1200
      Width           =   13965
   End
   Begin Label Label3 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      Caption         =   "Hint : Use extended Multiselect ( Shift, Ctrl ) to mark more than one Line to copy and paste them again ( reducing the List )"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   2550
      TabIndex        =   14
      Top             =   6600
      Width           =   11955
   End
   Begin Label Label2 
      BackColor       =   &H00C0C0C0&
      Caption         =   ".P,"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   120
      TabIndex        =   10
      Top             =   1200
      Width           =   345
   End
   Begin Label Label1 
      BackColor       =   &H00C0C0C0&
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   14385
   End
   Begin Menu m_end 
      Caption         =   "&End"
   End
   Begin Menu m_help 
      Caption         =   "&Help"
   End
   Begin Menu m_i 
      Caption         =   "&Info"
   End
End
Dim Shared nz$, current_select%

Sub Combo1_LostFocus (Index As Integer)
    If InStr(combo1(Index), ",") Then
        If combo1(Index).Visible Then
            combo1(Index).SetFocus
            MsgBox "Sorry, no Comma allowed.."
        End If
    End If
End Sub

Sub Command1_Click ()
    '
    ' Author : ICU
    '
    List2.Visible = False
    List2.Clear
    command2.Visible = False
    On Error GoTo err_1
    label1.Caption = "Transfering datas... ( " + Len(a$) + " to go.) "
    label1.Refresh
    a$ = clipboard.GetText() + nz$
    If Len(a$) > 32767 Then
        err1% = 1
        MsgBox "Currently size of the clipboard : " + Len(a$) + nz + "Please reduce the Size to max 32767 Items."
    End If
    On Error GoTo 0
    If err1% = False Then
        list1.Clear
        While InStr(a$, nz$)
            b$ = Left$(a$, InStr(a$, nz$) - 1)
            c$ = ""
            c$ = Mid$(a$, InStr(a$, nz$) + Len(nz$))
            a$ = c$
            c$ = ""
            b$ = Trim(b$)
            If b$ > "" Then
                If InStr(UCase(b$), ".P") = 1 Then
                    list1.AddItem b$
                End If
            End If
            label1.Caption = "Transfering datas... ( " + Len(a$) + " to go.) "
            label1.Refresh
        Wend
        For i% = 0 To 5
            combo1(i%).Clear
            combo1(i%).AddItem " "
        Next
        For i% = list1.ListCount - 1 To 0 Step -1
            label1.Caption = "Checking Syntax... ( " + LTrim(Str(i%)) + " to go.) "
            label1.Refresh
            a$ = list1.List(i%)
            n% = 0
            j% = 0
            While InStr(j% + 1, a$, ",")
                j% = InStr(j% + 1, a$, ",")
                n% = n% + 1
            Wend
            If n% <> 7 Then
                If n% <= 7 Then
                    While n% < 7
                        a$ = a$ + ", "
                        n% = n% + 1
                    Wend
                    List2.AddItem a$
                Else
                    If List2.Visible = False Then
                        List2.AddItem "Errors :"
                        List2.AddItem ""
                        List2.Visible = True
                        command2.Visible = True
                    End If
                End If
            End If
            ' filling the combos :
            t$ = a$
            a$ = Trim(Mid$(a$, InStr(a$, ",") + 1))
            For k% = 0 To 5            
                If Left$(a$, 1) = "," Then
                    b$ = ""
                Else
                    b$ = Trim(Left$(a$, InStr(a$, ",") - 1))
                End If
                If b$ = "" Then
                    b$ = " "
                End If
                a$ = Trim(Mid$(a$, InStr(a$, ",") + 1))
                ok% = True
                For j% = 0 To combo1(k%).ListCount - 1
                    If ok% Then
                        If LCase(combo1(k%).List(j%)) = LCase(b$) Then
                            ok% = False
                        End If
                    End If
                Next
                If ok% Then
                    combo1(k%).AddItem (b$)
                End If
            Next
        Next
    End If
    If list1.ListCount Then
        For k% = 0 To 5
            combo1(k%).Visible = True        
        Next
        list1.Selected(0) = True
    End If
    label1.Caption = ""
    Exit Sub
err_1:
    err1% = True
    MsgBox " Error : Too much Data or no Textformat, please try again"
    Resume Next
End Sub
Sub Command3_Click ()
    a$ = ""
    clipboard.Clear  ' V1.01 : New Line
    For i% = 0 To list1.ListCount - 1
        If list1.Selected(i%) Then
            a$ = a$ + list1.List(i%) + nz$        
        End If
    Next
    clipboard.SetText a$
End Sub
Sub Command4_Click ()
    a$ = ".P"
    For i% = 0 To 5
        a$ = a$ + ", " + Trim(combo1(i%).Text)
    Next
    t$ = a$
    a$ = Trim(Mid$(a$, InStr(a$, ",") + 1))
    For k% = 0 To 5
        b$ = Trim(combo1(k%).Text)
        If b$ = "" Then
            b$ = " "
        End If
        ok% = True
        For j% = 0 To combo1(k%).ListCount - 1
            If ok% Then
                If LCase(combo1(k%).List(j%)) = LCase(b$) Then
                    ok% = False
                End If
            End If
        Next        
        If ok% Then
            combo1(k%).AddItem (b$)
        End If
    Next
    list1.List(current_select%) = t$
End Sub
Sub Form_Load ()
    left = (screen.Width - Width) * .5
    top = (screen.Height - Height) * .5
    nz$ = Chr(13) + Chr(10)
    windowstate = 0
    Show modal
    sub1
End Sub
Sub List1_Click ()
    n% = 0
    l% = 0
    For i% = 0 To list1.ListCount - 1
        If list1.Selected(i%) Then
            l% = i%
            n% = n% + 1
        End If
    Next
    For i% = 0 To 5
        combo1(i%).Visible = False
    Next
    If n% = 1 Then
        current_select% = l%
        a$ = list1.List(l%)
        a$ = Trim(Mid$(a$, InStr(a$, ",") + 1))
        For i% = 0 To 5
            If Left$(a$, 1) = "," Then
                b$ = ""
            Else
                b$ = Trim(Left$(a$, InStr(a$ + ",", ",") - 1))
            End If
            If b$ = "" Then
                b$ = " "
            End If            
            a$ = Trim(Mid$(a$, InStr(a$, ",") + 1))
            combo1(i%).Text = b$
            combo1(i%).Visible = True
        Next
    End If
End Sub
Sub m_end_Click ()
    Reset
    Close
    End
End Sub
Sub m_help_Click ()
    MsgBox "1. Please copy some lines from the website, no need to open a Reply-Window, mark them directly on the Surface ( actually only .P lines please )." + nz$ + "2. Click Paste"
End Sub
Sub m_i_Click ()
    sub1
End Sub
Sub sub1 ()
    MsgBox "Please notice :" + nz$ + "This Tool don't open any Files to save something and don't connect to the Web himself." + nz$ + "I writing nothing to the Registry." + nz$ + "Use on own risk only ( I think it is a fine tool )" + nz$ + nz$ + "Have fun, icu"
End Sub

How to work with it ( Screenshots ):

1. Mark on the Surface and Copy with the right Button


2. Paste to Editor ( Entries will be splitted )


3. Multiselect ( inclusive Copy and Repaste to reduce the list)


4. Modify : Choose from Combolists or modify each single Text


5. Copy to Clipboard or modify the clicked Entry
6. Copy and Paste to your Reply-Window.

The Result ignores bold and itallic Fonts.

It's true guys : All this functions with this little little very compact Script that is shown in the two Code-Windows...

icu

( Source-Code updated to V1.01 )