July 29th, 2008, 07:47 PM | #61 |
Former Staff
Join Date: Jun 2007
Location: Germany
Posts: 11,875
Thanks: 19,210
Thanked 570,916 Times in 11,033 Posts
|
I was hoping you would find a script to do such a boring job
__________________
m Please add source, post complete photo and scan sets - with indexes, if available, preserve genuine file names (that will help to ID sources and model names), thank, credit, and quote original posters. I'm afraid I haven't any time for reuploads. Don't send reports (or PMs) of dead files or requests! Once the files posted above are expired, please help each other, add the info I provided as well. To view links or images in signatures your post count must be 0 or greater. You currently have 0 posts. -> Underlined words in my posts are clickable. <-
|
July 29th, 2008, 08:42 PM | #62 |
Ups, i did it again
Join Date: Jan 2008
Posts: 2,305
Thanks: 6,077
Thanked 23,962 Times in 2,082 Posts
|
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. Code:
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 icu |
July 29th, 2008, 08:47 PM | #63 | |
Former Staff
Join Date: Jun 2007
Location: Germany
Posts: 11,875
Thanks: 19,210
Thanked 570,916 Times in 11,033 Posts
|
Quote:
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.
__________________
m Please add source, post complete photo and scan sets - with indexes, if available, preserve genuine file names (that will help to ID sources and model names), thank, credit, and quote original posters. I'm afraid I haven't any time for reuploads. Don't send reports (or PMs) of dead files or requests! Once the files posted above are expired, please help each other, add the info I provided as well. To view links or images in signatures your post count must be 0 or greater. You currently have 0 posts. -> Underlined words in my posts are clickable. <-
|
|
The Following User Says Thank You to Al Gebra For This Useful Post: |
July 29th, 2008, 08:54 PM | #64 |
Former Staff
Join Date: Jun 2007
Location: Germany
Posts: 11,875
Thanks: 19,210
Thanked 570,916 Times in 11,033 Posts
|
I am a complete illiterate in writing scripts and programming.
__________________
m Please add source, post complete photo and scan sets - with indexes, if available, preserve genuine file names (that will help to ID sources and model names), thank, credit, and quote original posters. I'm afraid I haven't any time for reuploads. Don't send reports (or PMs) of dead files or requests! Once the files posted above are expired, please help each other, add the info I provided as well. To view links or images in signatures your post count must be 0 or greater. You currently have 0 posts. -> Underlined words in my posts are clickable. <-
|
The Following User Says Thank You to Al Gebra For This Useful Post: |
July 29th, 2008, 08:58 PM | #65 | |
Ups, i did it again
Join Date: Jan 2008
Posts: 2,305
Thanks: 6,077
Thanked 23,962 Times in 2,082 Posts
|
Quote:
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 |
|
The Following User Says Thank You to icu For This Useful Post: |
July 29th, 2008, 09:05 PM | #66 |
Ups, i did it again
Join Date: Jan 2008
Posts: 2,305
Thanks: 6,077
Thanked 23,962 Times in 2,082 Posts
|
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 |
The Following User Says Thank You to icu For This Useful Post: |
July 29th, 2008, 09:39 PM | #67 |
Ups, i did it again
Join Date: Jan 2008
Posts: 2,305
Thanks: 6,077
Thanked 23,962 Times in 2,082 Posts
|
'BC' nearly finished.
Please help, Mismatches : Code:
.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, , , |
The Following User Says Thank You to icu For This Useful Post: |
July 29th, 2008, 09:39 PM | #68 | |
Former Staff
Join Date: Jun 2007
Location: Germany
Posts: 11,875
Thanks: 19,210
Thanked 570,916 Times in 11,033 Posts
|
Ok, gents, Dub is our partner again.
Quote:
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?
__________________
m Please add source, post complete photo and scan sets - with indexes, if available, preserve genuine file names (that will help to ID sources and model names), thank, credit, and quote original posters. I'm afraid I haven't any time for reuploads. Don't send reports (or PMs) of dead files or requests! Once the files posted above are expired, please help each other, add the info I provided as well. To view links or images in signatures your post count must be 0 or greater. You currently have 0 posts. -> Underlined words in my posts are clickable. <-
|
|
July 29th, 2008, 09:50 PM | #69 |
Ups, i did it again
Join Date: Jan 2008
Posts: 2,305
Thanks: 6,077
Thanked 23,962 Times in 2,082 Posts
|
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 |
July 29th, 2008, 10:05 PM | #70 |
Former Staff
Join Date: Jun 2007
Location: Germany
Posts: 11,875
Thanks: 19,210
Thanked 570,916 Times in 11,033 Posts
|
.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
__________________
m Please add source, post complete photo and scan sets - with indexes, if available, preserve genuine file names (that will help to ID sources and model names), thank, credit, and quote original posters. I'm afraid I haven't any time for reuploads. Don't send reports (or PMs) of dead files or requests! Once the files posted above are expired, please help each other, add the info I provided as well. To view links or images in signatures your post count must be 0 or greater. You currently have 0 posts. -> Underlined words in my posts are clickable. <-
|
Thread Tools | |
Display Modes | |
|
|