티스토리 초기화면 특정페이지로 이동

취미생활/소스코드|2018.11.20 13:14

티스토리 초기화면 특정페이지로 이동 

if ( window.location.pathname == '/' ) {
     location.href = 'https://load-map.com/86';
}


댓글(0)

css 영어 입력시 줄바꿈처리

취미생활/소스코드|2018.11.13 22:26

한글은 줄바꿈 잘되는데 영어가 안될때 아래 css추가하면된다.

 

word-break:break-all;

 

태그 : CSS

댓글(0)

excel VBA 엑셀파일 읽어와서 작업하기

취미생활/소스코드|2018.11.13 22:19
여러파일의 엑셀파일을 같은 작업 매크로 돌리는 스크립트

폴더구조는 아래와 같이 되있을때만 된다. 
빨간색의 경우는 에러발생함. 수정해서 써야된다. 

매크로파일
엑셀.xls
엑셀2.xls
폴더1
ㄴ 엑셀.xls
ㄴ 엑셀2.xls
ㄴ 엑셀3.xls
ㄴ 엑셀4.xls
폴더2
ㄴ 엑셀1.xls
ㄴ 엑셀2.xls
ㄴ 엑셀3.xls
ㄴ 엑셀4.xls
ㄴ 폴더3
    ㄴ엑셀.xls
빈폴더

 

Sub ProcessFiles()
    Application.DisplayAlerts = False ' 경고 메시지 표시하지 않기
    Dim Filename, Pathname As String
    Pathname = ActiveWorkbook.Path ' 현재폴더 경로
            
    Set C = GetFoldersIn(Pathname & "\")
    
    For Each F In C
        If (F <> "." And F <> "..") Then
            DoDir Pathname & "\" & F
        ElseIf F = "." Then
            DoDir Pathname
        End If
        Rem Debug.Print Filename
    Next F
End Sub

Sub DoDir(Pathname As String)
    Dim wb As Workbook
    Dim Filename As String
    Filename = dir(Pathname & "\" & "*.xls") ' 확장자 xls (근데 안되는거같기도)
    Do
        If Filename <> "현재파일이름" Then '해당파일은 포함안함
            Set wb = Workbooks.Open(Pathname & "\" & Filename)
            DoWork wb
            wb.Close SaveChanges:=True ' 작업 파일,  작업 후 저장. 저장하지 않을 경우 False
        End If
               
        Filename = dir()
    Loop Until Filename = "" ' filename이 공백일경우 멈춤
End Sub

Sub DoWork(wb As Workbook)
    Debug.Print ("작업영역")
End Sub

Function GetFoldersIn(Folder As String) As Collection
  Dim F As String
  Set GetFoldersIn = New Collection
  F = dir(Folder & "\*", vbDirectory)
  Do While F <> ""
    If GetAttr(Folder & "\" & F) And vbDirectory Then GetFoldersIn.Add F
    F = dir
  Loop
End Function

 

태그 : vb, VBA

댓글(0)

엑셀 VBA 해당열 찾기

취미생활/소스코드|2018.11.13 22:18

엑셀 VBA 해당열 찾기

Set col = wb.Sheets("Sheet1").Range("A:A").Find("검색어") //시작위치
addr = col.Address //$A$13

 

태그 : vb, VBA, 엑셀

댓글(0)

엑셀 VBA 컨트롤 + ↓ 기능

취미생활/소스코드|2018.11.13 22:16
엑셀 VBA 컨트롤 + ↓ 기능

 

Set col = wb.Sheets("Sheet1").Range("AD:AD").Find("검색어") //시작위치
Set end = strCol.End(xlDown).Columns // 컨트롤 + ↓ 기능

 

태그 : vb, VBA, 엑셀

댓글(0)

엑셀 VBA 컬럼위치 찾기

취미생활/소스코드|2018.11.13 22:08
Set col = wb.Sheets("Sheet1").Range("A:A").Find("검색어")

 

 

태그 : vb, VBA, 엑셀

댓글(0)

티스토리 소스코드 적용하기 (SyntaxHighlighter)

취미생활/소스코드|2018.11.13 21:46

티스토리에 소스코드를 적용시켜보자

 

다운로드 : syntaxhighlighter_3.0.83.zip

 

1. 압축해제 후 script,styles 내의 파일을 모두 업로드

 

 

 

2. 소스코드 삽입

 
























 

 

3. 사용법

$(function(){
	console.log("Hello World");
});

 

 

* brush 사용가능 리스트

 

Brush name Brush aliases File name
ActionScript3 as3, actionscript3 shBrushAS3.js
Bash/shell bash, shell shBrushBash.js
ColdFusion cf, coldfusion shBrushColdFusion.js
C# c-sharp, csharp shBrushCSharp.js
C++ cpp, c shBrushCpp.js
CSS css shBrushCss.js
Delphi delphi, pas, pascal shBrushDelphi.js
Diff diff, patch shBrushDiff.js
Erlang erl, erlang shBrushErlang.js
Groovy groovy shBrushGroovy.js
JavaScript js, jscript, javascript shBrushJScript.js
Java java shBrushJava.js
JavaFX jfx, javafx shBrushJavaFX.js
Perl perl, pl shBrushPerl.js
PHP php shBrushPhp.js
Plain Text plain, text shBrushPlain.js
PowerShell ps, powershell shBrushPowerShell.js
Python py, python shBrushPython.js
Ruby rails, ror, ruby shBrushRuby.js
Scala scala shBrushScala.js
SQL sql shBrushSql.js
Visual Basic vb, vbnet shBrushVb.js
XML xml, xhtml, xslt, html, xhtml shBrushXml.js

댓글(0)

iframe 부모,자식 노드 다루기

취미생활/소스코드|2018.11.11 02:57

부모 iframe내의 노드찾기 

#id - 부모내의 노드ID

$('#id',parent.document) 

자식 iframe내의 노드찾기 

#id - iframe ID

$('#id').contents()

댓글(0)

javascript App 실행 & 스토어 실행하기

취미생활/소스코드|2018.11.11 02:54

var callApp = { isIphone: false, isAndroid: false, scheme: '', appStoreUrl: '', init: function (who) { this.isIphone = (navigator.userAgent.match('iPhone') != null || navigator.userAgent.match('iPad') != null); this.isAndroid = (navigator.userAgent.match('Android') != null); if (this.isAndroid) { this.scheme = 'intent://check_install/#Intent;scheme=mbabo;package=패키지주소;end'; } else if (this.isIphone) { this.appStoreUrl = '앱스토어 주소'; } }, getIframe: function (id, url) { var iframe = document.getElementById(id); if (iframe !== null) { iframe.parentNode.removeChild(iframe); } iframe = document.createElement('iframe'); iframe.id = id; iframe.style.visibility = 'hidden'; iframe.style.display = 'none'; iframe.src = url; return iframe; }, exec: function (who, url) { this.init(who); if (this.isAndroid) { /* 안드로이드 */ location.href = this.scheme; } else if (this.isIphone) { /* IOS */ setTimeout( function() { location.href = callApp.appStoreUrl; //앱스토어 실행 }, 1000); location.href = "app_scheme://고유번호?"; } else { /* 그 외 단말기 */ location.href = url; } } }


댓글(0)

특정값까지 카운트 업되는 스크립트

취미생활/소스코드|2018.11.11 02:52
< span class="count">0< /span>

var counter = function(num){
	var $el = $(".count");
	if($el.text() < 1){
		$({ val : 0 }).animate({ val : num }, {
		  duration: 2000, //speed
		  step: function() {
			$el.text(cf(Math.floor(this.val)));
		  },
		  complete: function() {
			$el.text(cf(Math.floor(this.val)));
		  }
		});
	}
}
var cf = function(num) { //콤마찍기
  var regexp = /\B(?=(\d{3})+(?!\d))/g;
  return num.toString().replace(regexp, ',');
}

태그 : javascript, jquery, js

댓글(0)

ios 사파리에서 iframe width 안먹을때

취미생활/소스코드|2018.11.11 02:50

작업중 iframe로 style='width:100%' 가 안먹는일이 생겼다. 
페이지도뜨고 안드로이드는 이상없는데 아이폰 사파리에서만 이런현상이 보였다. 
아래와 같이 min-width:100% 를주면 정상적으로 적용된다. 




< iframe src='#' style="min-width:100%; width:1px;">

댓글(0)

PHP 파일확장자 추출하기

취미생활/소스코드|2018.11.11 02:47

/**
	$val = name ex:xxxx.mp3
**/
function getExt($val){ 
	return preg_replace("/^.*\.([^.]+)$/D", "$1", $val);
}

댓글(0)