아이디 와 비번을 입력합니다.
딜레이 값과 신고할 아이디를 입력합니다.
"시 작" 버튼을 눌러줍니다.
신고가 잘 됬습니다.
"Save" 버튼은 "Save" 버튼을 눌러 Csv로 저장후 파일을 열어 줍니다.
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
'분류 전체보기'에 해당되는 글 27건
- 2019.01.12 [vb.net] 네이버 블로그 신고기
- 2016.04.14 [vb6.0/vba/vb.net] 잡을수 있는 오류
- 2016.01.20 [html/JavaScrip] inputbox split로 분리 추출
- 2016.01.20 [PHP] 이전 페이지로 돌아가기 / $_SERVER['HTTP_REFERER']
- 2016.01.19 Internet Explorer About URI
- 2016.01.17 [vba] 엑셀에서 여러개의 텍스트파일 읽어오기
- 2016.01.12 [html] html 테그 "숨기기"
- 2016.01.11 [vb6.0] 구구단 프린트하기 + Printer
- 2016.01.11 [vba] Microsoft.ACE.OLEDB.12.0를 이용한 특정시트를 query
- 2016.01.10 [Firefox] 파이어폭스 동영상 재생 플러그인 shockwave flash
2019. 1. 12. 00:52
2016. 4. 14. 05:59
잡을수 있는 오류
참고 제품별 정보
응용 프로그램이 실행중일 때 잡을 수 있는 오류가 발생합니다. 이 오류 중 일부 오류는 개발 과정에서 발생하고 또 어떤 오류는 컴파일 시간에서 발생합니다. On Error 문과 Err 개체를 사용하여 잡을 수 있는 오류를 검사하고 오류에 응답할 수 있습니다. 1부터 1000까지의 오류 번호 중 아직 사용하지 않는 오류 번호는 Visual Basic이 예약하여 나중에 사용합니다.
'vb6.0 & vba > vb6.0 & vba 자료' 카테고리의 다른 글
| [vb6.0/vba] VBScript 를 이용한 URL Encode/Decode (0) | 2020.06.30 |
|---|
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
2016. 1. 20. 21:50
<html>
<head>
<title> inputbox split로 분리 추출 </title>
</head>
<script type="text/javascript">
function ssplit() {
var strt = document.bform.e_Date.value
var str_arr = strt.split("-");
return str_arr[0];
}
</script>
<body onload="alert(ssplit());">
<form method="post" name="bform">
<input id="e_Date" name="e_Date" maxlength="255" value="2016-01-20" type="text">
<a href="#" onclick="alert(ssplit()); return false" title="comment" class="rp" target="_self">추출</a>
</form>
</body>
</html>
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
2016. 1. 20. 21:48
<?
$HTTP_REFERER = $_SERVER['HTTP_REFERER']; // $_SERVER['HTTP_REFERER']는 이전 페이지 주소를 가져옴
if(!$HTTP_REFERER) $HTTP_REFERER = "../"; // 이전 페이지 값없을 때 ../로(메인 페이지로 가기)
header('location:'.$HTTP_REFERER); // 페이지 이동
?>
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
2016. 1. 19. 07:54
참고 :: https://en.wikipedia.org/wiki/About_URI_scheme#Internet_Explorer-specific_about:_URIs
| URI | Internet Explorer 6 (SP2) | Internet Explorer 7 | Internet Explorer 8 | Internet Explorer 9-11 |
| about:home | Displays the user's home page. | No longer supported. | Displays the user's home page. | |
| about:blank | Displays the blank page. | |||
| about:desktopitemnavigationfailure | Displays “navigation cancelled” page. | No longer supported. | ||
| about:navigationcanceled | Displays “navigation cancelled” page. | No longer supported. | ||
| about:navigationfailure | Displays “navigation cancelled” page. | No longer supported. | ||
| about:noadd-ons | Displays information page when add-ons are disabled. | |||
| about:noadd-onsinfo | Displays information page about the effects when you use add-ons. | |||
| about:offlineinformation | Informs the user that the current page can not be viewed off line. | No longer supported. | ||
| about:postnotcached | Informs the user that the current page needs to refresh and any information entered in a form will have to be re-posted. The page has the title: "Webpage has expired" | |||
| about:securityrisk | Informs the user not to browse with the current security settings because they may be harmful to the computer. | |||
| about:tabs | Informs the user about tabbed browsing. It is also loaded when a new tab is created if the “Open home page for new tabs instead of a blank page” setting is enabled | |||
| about:inprivate | Informs the user about InPrivate Browsing. It is loaded when InPrivate Browsing is initiated. | |||
'program' 카테고리의 다른 글
| [Firefox] 파이어폭스 동영상 재생 플러그인 shockwave flash (0) | 2016.01.10 |
|---|
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
2016. 1. 17. 21:58
엑셀에서 vba를 이용하여 여러개의 텍스트파일을 읽어올 일이 있습니다.
주석도 같이 달아 두었습니다.
Sub ImportTxtFile()
Dim fPath As Variant, T As String, i As Integer, tmp() As Byte, FN As Integer
fPath = Application.GetOpenFilename("Text Files (*.txt),*.txt", , "텍스트파일 선택", MultiSelect:=True) '복수선택 가능
If TypeName(fPath) = "Boolean" Then Exit Sub '// 취소버튼 또는 파일이 선택되지 않으면 프로시져 종료
For i = 1 To UBound(fPath) '// 선택한 파일을 을 순환하면서
FN = FreeFile '// 파일번호 할당
ReDim tmp(FileLen(fPath(i)) - 1) As Byte '// 바이트배열 크기
Open fPath(i) For Binary As #FN '// 파일을 바이너리로 열음
Get #FN, , tmp '// 바이트 배열에 담음
Close #FN '// 파일을 닫음
If Len(T) Then T = T & vbNewLine '// 변수가 비어있지 않으면 줄바꿈을 넣음
T = T & StrConv(tmp, vbUnicode) '// 바이트를 텍스트로 변환해서 T변수에 추가
Next '// 다음파일 진행
fPath = Split(T, vbNewLine) '// 얻어온 텍스트를 줄바꿈으로 분리
Cells.Clear '// 시트의 셀을 초기화
[A1].Resize(UBound(fPath) + 1).Value = Application.Transpose(fPath) '// 시트에 내용을 뿌림
End Sub
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
2016. 1. 12. 14:01
<p style="display:none;">텍스트</P>
<font color="white" size="1">텍스트</font>
<div style="display:none"> 텍스트 </div>
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
2016. 1. 11. 17:48
Private Sub Command1_Click()
Dim i, j As Integer
For i = 2 To 9
For j = 2 To 9
Printer.Print i & "x" & j & "=" & i * j,
Next j
Printer.Print Chr(13)
Next i
Printer.FontName = "굴림"
Printer.FontSize = 16
Printer.FontBold = True
Pinter.FontItalic = False
Printer.FontUndeline = False
Printer.Print Text1.Text
Printer.EndDoc
End Sub
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
2016. 1. 11. 10:11
출처 :: http://cafe.naver.com/xlsvba/21087
'================================================================================================
' Procedure : GetRecordsetThisworkbook
' Description : Microsoft.ACE.OLEDB.12.0를 이용한 특정시트를 query
' Author : Evinious
' Parameter : xSql : 쿼리문
' shtName : 출력 시트명
' targetRange : 출력시트내 시작셀
' MS-SQL에서 EXCEL파일을 쿼리하는 용도로 많이 쓰임
sp_configure 'show advanced options', 1;
GO
RECONFIGURE;
GO
sp_configure 'Ad Hoc Distributed Queries', 1;
GO
RECONFIGURE;
GO
EXEC master.dbo.sp_MSset_oledb_prop N'Microsoft.ACE.OLEDB.4.0', N'AllowInProcess', 1
EXEC master.dbo.sp_MSset_oledb_prop N'Microsoft.ACE.OLEDB.4.0', N'DynamicParameters', 1
EXEC master.dbo.sp_MSset_oledb_prop N'Microsoft.ACE.OLEDB.12.0', N'AllowInProcess', 1
EXEC master.dbo.sp_MSset_oledb_prop N'Microsoft.ACE.OLEDB.12.0', N'DynamicParameters', 1
GO
-- excel 2007 이상
INSERT INTO DB내_대상_테이블명
SELECT *
FROM OPENROWSET
('Microsoft.ACE.OLEDB.12.0',
'Excel 12.0 Xml;HDR=YES;Database=C:\test\TEST.xlsx;'
,'SELECT * FROM [TblMenu$]')
GO
-- excel 2003 이하
INSERT INTO DB내_대상_테이블명
SELECT *
FROM OPENROWSET
('Microsoft.ACE.OLEDB.12.0',
'Excel 8.0;HDR=YES;Database=C:\test\TEST.xls;'
,'SELECT * FROM [TblMenu$]')
GO
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | '================================================================================================ Public Sub GetRecordsetThisworkbook(ByVal xSql As String, _ ByVal shtName As String, _ ByRef targetRange As Range) Dim oCn As Object Dim oRs As Object Dim wb As Workbook Set oCn = CreateObject("ADODB.Connection") With oCn .Provider = "Microsoft.ACE.OLEDB.12.0;" .ConnectionString = "Data Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0 Xml;"";" .ConnectionTimeout = 10 .Open End With Set oRs = CreateObject("ADODB.recordset") oRs.Open xSql, oCn, 1 ThisWorkbook.Sheets(shtName).Cells.ClearContents targetRange.CopyFromRecordset oRs ' Debug.Print oRs.RecordCount oRs.Close oCn.Close Set oRs = Nothing Set oCn = Nothing '## 여러개의 workbook 존재시 For Each wb In Application.Workbooks Debug.Print wb.Name If wb.Name = ThisWorkbook.Name And wb.ReadOnly Then Debug.Print wb.Name End If Next End Sub Sub Test() Dim xSql As String xSql = "SELECT LEFT(UBT, 5) AS UBT, SUM(IDT) AS IDT " & vbCrLf & _ " FROM [RAW$] " & vbCrLf & _ " WHERE IDT > 20000 GROUP BY LEFT(UBT, 5)" GetRecordsetThisworkbook xSql, "ret", ThisWorkbook.Worksheets("ret").Range("A1") End Sub |
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
2016. 1. 10. 22:04
현재 콘테츠를 보려면 플러그인인 필요합니다
라는 메세지가 나오면서 동영상 재생이 안된다.
파이어폭스 shockwave flash 플레이어를 설치해 주면 되는데...
이역시 부가기능에서 안보인다면 아래 사이트에서 Adobe Flash Player를 다운받아 설치해주시면 됩니다.
https://get.adobe.com/flashplayer/?loc=kr
'program' 카테고리의 다른 글
| Internet Explorer About URI (0) | 2016.01.19 |
|---|
이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.
