본문 바로가기

분류 전체보기165

mysql DB에서 쿼리에 영향을 줄 수 있는 문자열이나 특수문자 등을 확인하고 처리 mysql DB에서 쿼리에 영향을 줄 수 있는 문자열이나 특수문자 등을 확인하고 처리해야합니다. 이 방법으로 아래의 함수를 이용해 확인 가능합니다. mysqli_real_escape_string($dbc, 처리할 문자열); 2021. 2. 22.
특수문자 리스트 ~ ! @ # $ % ^ & * \ " ' + = ` | ( ) [ ] { } : ; - _ - # & & @ § ※ ☆ ★ ○ ● ◎ ◇ ◆ □ ■ △ ▲ ▽ ▼ → ← ← ↑ ↓ ↔ 〓 ◁ ◀ ▷ ▶ ♤ ♠ ♡ ♥ ♧ ♣ ⊙ ◈ ▣ ◐ ◑ ▒ ▤ ▥ ▨ ▧ ▦ ▩ ♨ ☏ ☎ ☜ ☞ ¶ † ‡ ↕ ↗ ↙ ↖ ↘ ♭ ♩ ♪ ♬ ㉿ ㈜ № ㏇ ™ ㏂ ㏘ ℡ ® ª º ─ │ ┌ ┐ ┘ └ ├ ┬ ┤ ┴ ┼ ━ ┃ ┏ ┓ ┛ ┗ ┣ ┳ ┫ ┻ ╋ ┠ ┯ ┨ ┷ ┿ ┝ ┰ ┥ ┸ ╂ ┒ ┑ ┚ ┙ ┖ ┕ ┎ ┍ ┞ ┟ ┡ ┢ ┦ ┧ ┩ ┪ ┭ ┮ ┱ ┲ ┵ ┶ ┹ ┺ ┽ ┾ ╀ ╁ ╃ ╄ ╅ ╆ ╇ ╈ ╉ ╊ + - < = > ± × ÷ ≠ ≤ ≥ ∞ ∴ ♂ ♀ ∠ ⊥ ⌒ ∂ ∇ ≡ ≒ ≪ ≫ √ ∽ ∝ ∵ .. 2021. 2. 9.
[vb.net] JSON 기본 정리 Imports Newtonsoft.Json Dim Result as String = [JSON_문자열] Dim tmpJson as JObject = JObject.Parse(Result) Dim tmp as String = tmpJson([key]) 반대로 Dim tmpJson As New JObject() With tmpJson .Add("A", A_Value) .Add("B", B_value) End With Dim tmp as String = tmpJson.ToString() 아래와 같은 방법을 활용할 수 있습니다. Dim json As Object json = New With {Key .key1 = "value1", .key2 = "value2"} MsgBox(json.ToString) Dim j.. 2021. 2. 8.
[vb6.0/vba] 숫자를 한글 또는 한자로 변환하는 법 출처: VBA6- 숫자를 한글 또는 한자로 변환하는 법Public Function ReadNum(Num, ReadType) Dim L, k, i, j, n, v As Integer Dim Tg1, Tg2, Tg3 As Variant Dim g1, g2, g3 As Integer Dim Ans As String If ReadType = 1 Then' Tg1 = Array("", "壹", "貳", "參", "四", "五", "六", "七", "八", "九") Tg1 = Array("", "1", "2", "3", "4", "5", "6", "7", "8", "9") Tg2 = Array("", "拾", "百", "千") Tg3 = Array("", "萬", "億", "兆") Else' Tg1 = Array(.. 2021. 1. 30.
[vb6.0/vba] 한글을 자음 모음으로 나누기 + 합치기 출처: 한글을 자음 모음으로 나누기 + 합치기 Function fnName(inName As String) As String Dim 초성 As Variant, 중성 As Variant, 종성 As Variant Dim vr() As Variant Dim i As Integer, j As Integer, n As Long, k1 As Integer, k2 As Integer, k3 As Integer 초성 = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") 중성 = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅘ", "ㅙ", ".. 2021. 1. 30.
[공유] 메일 프로토콜 개념 ( POP3, IMAP, SMTP ) POP3 : Post Office Protocol 3IMAP와 비교할때 그냥 단순이 뷰어라고 보면된다.(단방향)메일서버에서 내쪽으로 전달의 개념.삭제를 해도 원본은 지워지지 않는다.ex) 스마트폰에서 메일설정을 pop3로 설정 후 삭제를 해도 메일계정의 메일은 지워지지 않는다. 메일 클라이언트가 메일을 사용자 자신의 PC로 다운로드할 수 있도록 해주는 프로토콜을 말한다.현재 대부분의 메일서버에서는 POP3을 사용하고 있으며 사용자는 넷스케이프나 아웃룩 익스프레스로 서버에 있는 자신의 메일 수신함을 체크하여 메일을 자신의 컴퓨터로 수신한다. 메일을 수신하는 프로토콜에는 POP3와 IMAP(Internet Message Access Protocol)가 있는데, IMAP은 서버에 직접 접속해 메일을 관리하는데.. 2021. 1. 30.
[vb.net] 주어진 비율을 유지하면서 마우스로 사각형을 그립니다 Dim mRect As Rectangle Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs) mRect = New Rectangle(e.X, e.Y, 0, 0) Me.Invalidate() End Sub Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs) If e.Button = Windows.Forms.MouseButtons.Left Then mRect = New Rectangle(mRect.Left, mRect.Top, e.X - mRect.Left, e.Y - mRect.Top) 'Replace 1.5 with the scale you want to use Dim hgt As I.. 2021. 1. 30.
[vb.net] Boolean(True/False) 의 값과 연산 결과값 True * 1 = -1 False * 1 = 0 True + 2 = 1 False + 2 = 2 응용::) Public isWork As Boolean Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click isWork = Not isWork Button1.Text = Choose(isWork + 2, "중 지", "시 작") Work.Enabled = isWork End Sub 2021. 1. 30.
[vb6.0/vba] MSXML2.XmlHttp와 MSXML2.DOMDocument 를 이용한 www.kimsonline.co.kr 크롤링 Sub Test() Dim pData As String Dim url As String Dim sHtml As String Dim r As Long '// https://www.kimsonline.co.kr/drugcenter/search/retotalsearch?Keyword=%EA%B8%80%EB%A6%AC%EB%A9%9C&Page=1 url = "https://www.kimsonline.co.kr/Function/GetTotalSearch" '// Post문자열 pData = "{""parameters"":[{""Key"":""TotalSearchKeyword"",""Value"":""글리멜""}," & _ "{""Key"":""MarketStatus"",""Value"":""AS""}, " & _.. 2021. 1. 30.
[vba] ENCODEURL Function ENCODEURL(varText As Variant, Optional blnEncode = True) Static objHtmlfile As Object If objHtmlfile Is Nothing Then Set objHtmlfile = CreateObject("htmlfile") With objHtmlfile.parentWindow .execScript "function encode(s) {return encodeURIComponent(s)}", "jscript" End With End If If blnEncode Then ENCODEURL = objHtmlfile.parentWindow.encode(varText) End IfEnd Function 2021. 1. 30.
[vb6.0/vba] 한글을 발음대로 영어로 변환(한글이름 영문표기) Function Ename(T$) Dim cho() As Variant, moum() As Variant, jong() As Variant cho() = Array("g", "kk", "n", "d", "tt", "r", "m", "b", "pp", "s", "ss", "", "j", "jj", "ch", "k", "t", "p", "h") moum() = Array("a", "ae", "ya", "yae", "eo", "e", "yeo", "ye", "o", "wa", "wae", "oe", "yo", "u", "wo", "we", "wi", "yu", "eu", "ui", "i") jong() = Array("", "k", "kk", "k", "n", "n", "n", "t", "l", "l", "l.. 2021. 1. 30.
[vb.net] JSON To DataTable {"Table":[ {"link_product_list":"\/category\/\ub514\ud4e8\uc800\/115\/","name":"\ub514\ud4e8\uc800","param":"?cate_no=115","cate_no":115,"parent_cate_no":1,"design_page_url":"product\/list.html","like_count":0}, {"link_product_list":"\/category\/\ud504\ub798\uadf8\ub7f0\uc2a4\uc5d0\uc13c\uc15c\uc624\uc77c\/116\/","name":"\ud504\ub798\uadf8\ub7f0\uc2a4\/\uc5d0\uc13c\uc15c\uc624\uc77c","param":"?c.. 2021. 1. 21.
Mouse Click & Keyboard Event: Action Class in Selenium Webdriver 출처 :: ωωω.guru99.com/keyboard-mouse-events-files-webdriver.html ​ Mouse Click & Keyboard Event: Action Class in Selenium Webdriver Details Last Updated: 23 September 2020 In this tutorial, we will learn handling Keyboard and Mouse Event in Selenium Webdriver Action Class in Selenium Action Class in Selenium is a built-in feature provided by the selenium for handling keyboard and mouse events. It.. 2020. 11. 18.
[google spreadsheets] 구글 스프레드시트 여러 영역을 하나의 리스트로 Join 하는 방법 구글링을 해보니 아래와 같은 수식이 검색됩니다. =Query(VMERGE((ImportRange("0AozvCNI02VmpdG9MNkhIWk8xVWJ0XzVsLVN0aHdVUlE","Sheet1!A1:B")); ImportRange("0AozvCNI02VmpdG9MNkhIWk8xVWJ0XzVsLVN0aHdVUlE","Sheet2!A2:B")); "select * where Col1 is not null") 그래서 와 역시 구글 스프레드시트는 막강하구나 감탄을 하였습니다. ​ 그런데 아래와 같이 #NAME? 라고 나옵니다. VMERGE 함수가 없답니다. ​ 관련해서 검색을 해봤습니다. VMerge is a script installable from the script gallery of Google Spr.. 2020. 10. 28.
[script] Google 스프레드시트 스크립트 정리 스프레드시트로 매크로 작업할 일이 있어서 작업하다가 구글 스크립트 api는 처음이라 기록해 둡니다. 전체시트 var sheets = SpreadsheetApp.getActiveSpreadsheet().getSheets(); 특정 시트 var DB = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('DB'); 현재 시트 var sheet = SpreadsheetApp.getActive(); ​ 다른파일 var ss = SpreadsheetApp.openByUrl("https://docs.google.com/spreadsheets/d/" + docName + "/edit"); ​ 데이터 마지막 행 eRow = DB.getDataRange().getLastRow.. 2020. 10. 27.
2020-10-05 ~ 2020-10-11 네이버 카테고리별 키워드 클릭 순위 카테고리순위키워드패션의류 > 여성의류 > 니트/스웨터1니트패션의류 > 여성의류 > 카디건1여성가디건패션의류 > 여성의류 > 원피스1원피스패션의류 > 여성의류 > 티셔츠1맨투맨패션의류 > 여성의류 > 블라우스/셔츠1블라우스패션의류 > 여성의류 > 점퍼1여성경량패딩패션의류 > 여성의류 > 재킷1트위드자켓패션의류 > 여성의류 > 코트1핸드메이드코트패션의류 > 여성의류 > 청바지1여자게스청바지패션의류 > 여성의류 > 스커트1플리츠스커트패션의류 > 여성의류 > 레깅스1레깅스패션의류 > 여성의류 > 바지1팬츠패션의류 > 여성의류 > 트레이닝복1여성트레이닝세트패션의류 > 여성의류 > 조끼1니트조끼패션의류 > 여성의류 > 정장세트1여성정장세트패션의류 > 여성의류 > 한복1한복대여패션의류 > 여성의류 > 유니폼/단체복1.. 2020. 10. 17.
[vba] vba(매크로) 타이머 활용 Module1: Window API를 활용한 예제 Option Explicit Option Private Module #If VBA7 And Win64 Then ' 64 bit Excel under 64-bit windows ' Use LongLong and LongPtr Private Declare PtrSafe Function SetTimer Lib "user32" _ (ByVal hwnd As LongPtr, _ ByVal nIDEvent As LongPtr, _ ByVal uElapse As LongLong, _ ByVal lpTimerFunc As LongPtr _ ) As LongLong Public Declare PtrSafe Function KillTimer Lib "user32" _ (B.. 2020. 10. 8.
[vba] 멀티 쓰레딩(VBA Multi Threading) / 멀티 쓰레드 vba에서 멀티 쓰레드가 지원이 안되지만 방법은 몇가지 방법으로 구현이 가능하다 ​ 난 개인적으로 스크립트를 이용한 방법이 아름다워 보인다. ​ 아래 샘플들 참고하시길... ​ Want to learn how to add multithreading using C#.NET? EXCEL: Multithreading VBA using C#.NET Want to learn how to add multithreading using VBscript? EXCEL: Multithreading VBA using VBscript Want to learn how to add multithreading using VBA via VBscript? EXCEL: Multithreading using VBA via VBscript .. 2020. 10. 8.
[vb.net] DataTable에서 중복되지 않는 유일한 값 추출 및 ComboBox에 아이템 추가하는 예제 가끔 DataTable에서 중복되지 않는 값을 추출해야 할 때가 있습니다. ​ DataTable에서 중복되지 않는 유일한 값 추출 및 ComboBox에 아이템 추가하는 예제 소스입니다. ​ Dim ctg() As String = D.AsEnumerable().Select( Function(DR) Return DR.Field(Of String)("카테고리") End Function).Distinct().ToArray ComboBox1.Items.Clear() ComboBox1.Items.AddRange(ctg) 2020. 10. 6.
[vba] 아는것이 힘이다 - 2중 및 다중 중첩 For문의 활용 보통 2중 중첩 For문의 경우 아래와 같이 사용합니다. Sub program1472_com() Dim i As Integer, n As Integer Dim T As String T = "i * n = ?" & vbCrLf For i = 1 To 5 For n = 1 To 5 If Len(T) Then T = T & vbCrLf T = T & i & " * " & n & " = " & i * n Next n Next i MsgBox T End Sub 아래는 출력 결과 입니다. 이정도는 초보 분들도 다 아실 내용입니다. ​ 다음으로 소개해 드릴 방법은 상상도 못할 고급 프로만이 사용하는 기술 입니다. ​ Sub program1472_com() Dim i As Integer, n As Integer Dim.. 2020. 10. 2.
사용 안 하는 USB 허브를 이용한 4포트 USB 고속 충전기 만들기 아래와 같이 생긴 USB 허브하 하나 있네요 사용안하고 있어서 4포트 충전기를 만들어 볼까 합니다. 우선 뒷판을 분리했습니다. 그리고 각 전원 부분을 배선을 추가하여 전류가 잘 흐를 수 있도록 추가로 연결하고 아답타 잭도 하나 추가 하였습니다. 다음으로 케이스가 뜨지 않도록 아답타 잭 부분만큼 잘라줍니다. 마무리가 거칠어 커터칼로 마무리를 다듬어 줍니다. 아답타 잭이 둥근걸 생각 못하고 조금 덜 자를걸 그랬나 봅니다. 완성 하였습니다. 스위치도 잘 동작 합니다. ​ 다음으로 휴대폰 충전을 해보겠습니다. 헌데 충전 시간이 장난이 아닙니다. 충전 완료까지 23시간? .... 헉... ​ 원인을 찿아 보았습니다. ​ 4핀구성(type A, B)의 경우 번호 신호 선색깔 1 vbus(+5volt) ​ 2 dat.. 2020. 10. 2.