SI개발자 지킴이 무릎치기

미드에서 인상적인 장면이 있었는데, 정확한 대사가 기억이 나지 않아서 ChatGpt에 질문함.

확인 결과 답변이 잘못됨을 확인함.

정확한 답은 Season 6, Episode 8. Red, White & Dick.

Fine! Go ahead! Strike me down! But there are many more like me who will stand up to you, who will pick up the burning torch of freedom and hold it high in my place! And it's not a question of if or when someone picks up that torch, it's a question of who!

하지만 ChatGpt도 인정을 해줄 수 있는 부분은 부정확한 대사를 토대로 질문을 했는데, freedom of speech라는 키워드를 도출해내서, 이를 토대로 답변을 찾을 수 있게 되었음. 기존에 google검색으로는 몇시간을 헤매도 찾지 못했음에 비교하면 상대적 우위. 키워드 도출, 문맥 변경(영문 첨삭지도) 등에는 유용한 수준이라고 보임.

3rd Rock from the Sun: Season 6, Episode 8 script | Subs like Script

Since Yahoo doesn't provide the data in Excel or Txt format, I need to strip tags and remove blanks.

This is only the draft version and the VBA code will be updated.

Option Explicit

' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 0.1       2023-Feb-03             delRow(), findValue()
' 0.2       2023-Feb-03             getTeamName()
' **************************************************************************************

Sub delRow()
    'MsgBox ActiveCell.Range
    Dim lRowCnt, lCntAA, lCntAB As Long
    Dim rngAll As Range

    Application.ScreenUpdating = False
    Call stripTag 'remove tags
    
    lCntAA = Application.CountA(Range("A:A")) 'count of non blank cells under A
    lCntAB = Application.CountA(Range("B:B")) 'count of non blank cells under B
    
    If (lCntAA < lCntAB) Then '14 < 31
        'MsgBox "lCntAA < lCntAB"
        MsgBox "Columns are not destroyed."
        Columns("A").Delete
    Else '145 > 0
        'MsgBox "lCntAA >= lCntAB"
        MsgBox "Columns are split into rows."
    End If
    
    Cells(1, "A").Select
    Set rngAll = Range([A1], Cells(Rows.Count, "A").End(xlUp))
    lRowCnt = rngAll.Rows.Count
    Call findValue(lRowCnt) 'Delete the rows if the values are not needed
 
    'Cells(1, "B").Select
    'Set rngAll = Range([B1], Cells(Rows.Count, "B").End(xlUp))
    'lRowCnt = rngAll.Rows.Count
    'Call findValue(lRowCnt) 'Delete the rows if the values are not needed
    
    'Columns("A").SpecialCells(4).EntireRow.Delete 'delete empty cell rows
    'MsgBox Application.CountA(Range("A:A"))
    Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes 'delete ""
 
    Range("A1").Select
    ActiveWindow.ScrollRow = 1
    Application.ScreenUpdating = True
End Sub

Sub stripTag()
    'Cells.Select
    'Dim rngSelected As Range
    'Set rngSelected = New Cells.Select
    'Call stripHtml(rngSelected) 'remove html
    Cells.Hyperlinks.Delete     'remove hyperlink
    ActiveSheet.Pictures.Delete 'remove pictures
    
    'MsgBox Application.CountA(Range("A:A")) & ", " & Application.CountA(Range("B:B"))
    'MsgBox Len(Range("A9:A9"))
End Sub

Private Sub findValue(ByVal lRowCnt As Long)
    Dim i, r As Integer
    Dim sSheetName As String
    Dim sActiveCellValue As String
    
    sSheetName = getTeamName
    
    For i = 1 To lRowCnt
        sActiveCellValue = ActiveCell.Value
        If IsNumeric(sActiveCellValue) Then
            Selection.EntireRow.Delete
            lRowCnt = lRowCnt - 1
            r = r + 1
        ElseIf sActiveCellValue Like "*player Notes" Or sActiveCellValue Like "Player Note" Or sActiveCellValue = "DTD" Or sActiveCellValue = sSheetName Then
            Selection.EntireRow.Delete
            lRowCnt = lRowCnt - 1
            r = r + 1
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Next i
    MsgBox r & " rows deleted"

End Sub

Private Function getTeamName() As String
    On Error GoTo ec1
    Dim sSheetName As String
    Dim vSheetName As Variant
    
    sSheetName = ActiveSheet.Name
    vSheetName = Split(sSheetName, "(")
    'MsgBox vSheetName(0)
    
    getTeamName = vSheetName(0)
ec1:

End Function

Directory: .../Wii/title/00010000/52423445