한문철TV나 게시판 등을 통해 상향등을 남발하면 난폭운전으로 신고될 수 있다고 들었는데요.
은평구 스쿨존에서 30-35km로 주행중(최우측 차선)이었으나 뒤에서 하이빔을 3번 키는 상황이 발생하였습니다.
스마트 국민제보 신고 결과를 공유합니다.
"우선 민원내용과 같은 일을 겪으신 것에 대해 위로의 말씀 드립니다. 도로교통법 제46조의3(난폭운전 금지)에 명시되어 있는 신호위반, 중앙선침범, 진로변경금지위반 등 둘 이상의 행위를 연달아 하거나, 하나의 행위를 지속 또는 반복하여 다른 사람에게 위협 또는 위해를 가하거나 교통상의 위험을 발생하게 하였을 경우를 말하는 것으로 제보하신 내용은 난폭운전 구성요건을 충족하지 않아 난폭운전으로 형사처벌할 수 없음을 안내드립니다. 단순히 교통법규위반을 신고하는 것이라면 교통위반으로 영상신고하시기 바랍니다. 감사합니다."
결론: 하이빔은 난폭운전 요건에 해당안됨 ㅡㅡ;;;
그렇다면 단순 교통 법규위반에도 해당이 안될 것 같은데, 준법운전하고도 하이빔 걍 맞으라는 건지 답답하네요.
미드에서 인상적인 장면이 있었는데, 정확한 대사가 기억이 나지 않아서 ChatGpt에 질문함.
Q. main characters in 3rd rock from the sun
A. The main characters in 3rd Rock from the Sun are:1. Dick Solomon (John Lithgow)2. Sally Solomon (Kristen Johnston)3. Tommy Solomon (Joseph Gordon-Levitt)4. Harry Solomon (French Stewart)5. Mary Albright (Jane Curtin)6. Dr. Albright (Wayne Knight)7. Nina Campbell (Simbi Khali)8. Don Orville (Jonathan Hogan)9. Officer Don (John Michael Higgins)10. Professor Philips (Elmarie Wendel)
Q. did Tommy Solomon say, "you can stop me now but you can't stop more people behind me"?
A. No, this line is not said by Tommy Solomon in 3rd Rock from the Sun.
Q. Who said something like that?
A. This line was said by the character Chantel in the movie The Hate U Give.
Q. Tommy Solomon said something like, "you can stop me now but there are thousands of people behind me seeking freedom." Which episode was it?
A. This line was said by Tommy Solomon in the Season 4 episode of 3rd Rock from the Sun titled "The Freedom of Speech".
Q. What is the exact quote of that line?
A. The exact quote is, “You can stop me, but you can't stop thousands of people behind me, seeking freedom.”
Q. Which episode was it?
A. This line was said by Tommy Solomon in the Season 4 episode of 3rd Rock from the Sun titled "The Freedom of Speech".
확인 결과 답변이 잘못됨을 확인함.
정확한 답은 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검색으로는 몇시간을 헤매도 찾지 못했음에 비교하면 상대적 우위. 키워드 도출, 문맥 변경(영문 첨삭지도) 등에는 유용한 수준이라고 보임.
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