SELECT length('AABA') - length(replace('AABA', 'A', ''))  FROM DUAL

특정문자열을 빈값으로 치환하고 전체 길이에서 치환된 길이를 구한다.
아...머리를 굴려야 하는데....

출처:http://cafe.naver.com/litave.cafe?iframe_url=/ArticleRead.nhn%3Farticleid=334&
SELECT LPAD(LEVEL,2,'0') MONTH FROM DUAL CONNECT BY LEVEL <= 12

필요시 JOIN해서 사용하기 위한 TABLE.

UPDATE A SET VALUE=(SELECT B.VALUE FROM B WHERE A.KEY=B.KEY) WHERE EXISTS (SELECT 'X' FROM B WHERE A.KEY=B.KEY)

A와 B의 키를 비교하여 B의 VALUE값으로 해당 컬럼의 A VALUE값 치환.
:'X'는 TRUE라는 의미(의미없음)

1. NLS_CHARACTER 확인 (한글 문제)
- select name , value$ from props$ where name like 'NLS%';
으로 import할 oracle의 NLS_CHARACTER확인
- update props$ set value$ = '확인된 NLS_CHARACTERSET' where name = 'NLS_CHARACTERSET'
export할 oracle의 NLS_CHARACTER을 import할 oracle의 NLS_CHARACTER으로 맞쳐준다.(단, 기존 데이터가 있을 경우는 형식이 틀려지기 때문에 하지 말 것.)
- 바꾼 후 반드시 Oracle 재시작.

2.export
- grant exp_full_database to ID;
(export 권한이 없는 경우)
- exp id/pw file="파일경로\파일명" full=y
(해당 유저의 datafile export)

3.tablespace 생성
- create tablespace tablespace명 datafile '경로/tabledspace명01.dbf' size 1024m reuse autoextend on next 10M maxsize 4096m
- 최대 용량 4G의 현재 기본 1G의 tablespace를 만든다.(꽉찰때마다 10M만큼 늘린다.)
- 웬만하면 export할 db와 동일 명칭으로 생성
- 기존 용량을 따져 미리 만들어놓는다.(4G를 최대로 하여 필요한 경우 02.dbf로 추가 생성)
- Oracle에서 최대 사이즈는 4G를 권장.

4.user생성
- create user ID identified by PWD default tablespace "tablespace명";
grant connect,resource,(dba), imp_full_database to ID;

5.import
- imp id/pw file="파일경로\파일명" fromuser='export한 user' touser='import할 user'

**기존에 DB가 있어 NLS_CHARACTERSET를 바꿀 수 없는 경우
- alter table TABLE_NAME modify (COLUMN_NAME DATATYPE SIZE);
으로 column크기를 늘려 import한다.

function chkDays(){
    var f = document.form;
    var year = f.year.value;
    var month = parseInt(f.month.value,10);
    var length = 0;
   
    if (month == 4 || month == 6 || month == 9 || month == 11) {
        length=30;
    }else if(month == 1 || month == 3 || month == 5 || month == 7 || month == 8 || month == 10 || month == 12) {
        length=31;
    }else if ( (year % 4 == 0) && (year % 100 != 0) || (year % 400 == 0) ) {
        length=29;
    }else{
        length=28;
    }

    f.day.length = length;
    for ( var i = 1; i <= length; i++) {
        if(i<10){
            f.day.options[i - 1].text = "0"+i;
            f.day.options[i - 1].value = "0"+i;
        }
        else{
            f.day.options[i - 1].text = i;
            f.day.options[i - 1].value = i;
        }
    }
}


1. 해당 파워포인트에서 alt+F11
2. F5
3. 매크로이름 입력 후 만들기 클릭
4. 아래 코드 복사 후 붙여넣기

-----------------------------------------------------------------------

Sub ExportNotesText()

    Dim oSlides As Slides
    Dim oSl As Slide
    Dim oSh As Shape
    Dim strNotesText As String
    Dim strFileName As String
    Dim intFileNum As Integer
    Dim lngReturn As Long

    ' Get a filename to store the collected text
    strFileName = InputBox("Enter the full path and name of file to extract notes text to", "Output file?")

    ' did user cancel?
    If strFileName = "" Then
        Exit Sub
    End If

    ' is the path valid?  crude but effective test:  try to create the file.
    intFileNum = FreeFile()
    On Error Resume Next
    Open strFileName For Output As intFileNum
    If Err.Number <> 0 Then     ' we have a problem
        MsgBox "Couldn't create the file: " & strFileName & vbCrLf _
            & "Please try again."
        Exit Sub
    End If
    Close #intFileNum  ' temporarily

    ' Get the notes text
    Set oSlides = ActivePresentation.Slides
    For Each oSl In oSlides
        For Each oSh In oSl.NotesPage.Shapes
        If oSh.PlaceholderFormat.Type = ppPlaceholderBody Then
            If oSh.HasTextFrame Then
                If oSh.TextFrame.HasText Then
                    strNotesText = strNotesText & "Slide: " & CStr(oSl.SlideIndex) & vbCrLf _
                    & oSh.TextFrame.TextRange.Text & vbCrLf & vbCrLf
                End If
            End If
        End If
        Next oSh
    Next oSl

    ' now write the text to file
    Open strFileName For Output As intFileNum
    Print #intFileNum, strNotesText
    Close #intFileNum

    ' show what we've done
    lngReturn = Shell("NOTEPAD.EXE " & strFileName, vbNormalFocus)

End Sub
----------------------------------------------------------------------------------------------------------------
5.F5
6.TEXT파일명 입력 후 확인


출처 : http://powerpoint.pe.kr/60135399205

+ Recent posts

티스토리툴바