개인 제작 윈도우용 유틸리티
오늘 개인 제작 윈도우용 유틸리티를 만들어서 블로그에 공개했다.
그렇게 대단한 건 아니고...
Mac OS 스타일 한영키 리매퍼이다.
컴퓨터를 사용하다가 느낀 불편함을 직접 해결했는데
이제는 내가 기존 능력으로 할 수 없었던 것을 할 수 있게 되었다고 생각한다.
내가 C++로 만든 프로그램을 공개할 수 있다니 신기해.
누군가에게는 겨우 Hello World 수준일지라도 말이지.
스스로에게는 좀 놀라운 날이다.
내가 실제로 써보면서 약간의 버그를 찾고 수정하고,
이제는 그럭저럭 괜찮다싶어서 배포한다.
몇일정도 실제로 내가 써보니까 괜찮았거든... 아마 배포해도 괜찮겠지?
사용해보시고 의견이나 버그 제보를 남겨주시면 다음 업데이트에 가능한 적극 반영할게요.
from flask import Flask, request, Response
import requests
import logging
from logging.handlers import RotatingFileHandler
app = Flask(__name__)
# netsh advfirewall firewall add rule name="Allow [EXTERNAL_PORT]" dir=in action=allow protocol=TCP localport=[EXTERNAL_PORT]
# 포워딩할 대상 URL (내부 HTTP 서버)
INTERNAL_PORT = 54321 # 내부 서버 포트 (예시)
TARGET = f"http://127.0.0.1:{INTERNAL_PORT}"
# 로그 파일 설정: server.log 파일에 최대 10,000바이트까지 저장하며, 1개의 백업 파일 생성
handler = RotatingFileHandler('server.log', maxBytes=10000, backupCount=1, encoding='utf-8')
handler.setLevel(logging.INFO)
formatter = logging.Formatter('%(asctime)s %(levelname)s: %(message)s')
handler.setFormatter(formatter)
app.logger.addHandler(handler)
app.logger.setLevel(logging.INFO)
# 모든 경로와 HTTP 메서드를 처리하도록 라우팅
@app.route('/', defaults={'path': ''}, methods=['GET', 'POST', 'PUT', 'DELETE', 'PATCH', 'OPTIONS'])
@app.route('/', methods=['GET', 'POST', 'PUT', 'DELETE', 'PATCH', 'OPTIONS'])
def proxy(path):
target_url = f"{TARGET}/{path}"
app.logger.info(f"Request: {request.method} {request.url} -> Forwarding to: {target_url}")
headers = {key: value for key, value in request.headers if key.lower() != 'host'}
# 대상 서버에 요청 전송
resp = requests.request(
method=request.method,
url=target_url,
headers=headers,
params=request.args,
data=request.get_data(),
cookies=request.cookies,
allow_redirects=False
)
app.logger.info(f"Response: Status code {resp.status_code} from {target_url}")
# 대상 서버의 응답을 그대로 클라이언트에 전달
response = Response(resp.content, resp.status_code)
for key, value in resp.headers.items():
response.headers[key] = value
return response
if __name__ == '__main__':
# Let's Encrypt 인증서 사용 (인증서 파일 경로는 마스킹 처리됨)
ssl_context = ("[인증서 경로]/fullchain.pem", "[인증서 경로]/privkey.pem")
EXTERNAL_PORT = 12345 # 외부에 노출될 포트 (예시)
app.logger.info(f"Starting HTTPS reverse proxy server on port {EXTERNAL_PORT} with Let's Encrypt certificate")
app.run(host='0.0.0.0', port=EXTERNAL_PORT, ssl_context=ssl_context)
/// StreamingAssets 폴더의 auth.json 파일에서 API 키를 로드합니다.
/// 예시 파일 형식: { "api_key": "your_api_key_here" }
using System.Collections;
using System.Collections.Generic;
using UnityEngine;
using UnityEngine.Networking;
[System.Serializable]
public class ChatMessage {
public string role;
public string content;
}
[System.Serializable]
public class ChatCompletionRequest {
public string model;
public List messages;
public int max_tokens;
public float temperature;
}
[System.Serializable]
public class ChatCompletionChoice {
public ChatMessage message;
public string finish_reason;
public int index;
}
[System.Serializable]
public class ChatbotResponse {
public string id;
public string @object;
public int created;
public string model;
public List choices;
}
[System.Serializable]
public class AuthData {
public string api_key;
}
public class ChatbotManager : MonoBehaviour
{
// Inspector에 노출되지 않도록 private const로 선언하여 잘못된 값이 덮어씌워지지 않게 합니다.
private const string apiUrl = "https://api.openai.com/v1/chat/completions";
public string model = "gpt-4o-mini";
// public string model = "gpt-4o-mini"; // "o3-mini"; //"gpt-3.5-turbo"
// 응답 속도 개선을 위한 추가 파라미터
[Tooltip("응답 생성 시 최대 토큰 수를 제한합니다. 낮을수록 응답이 빨라집니다.")]
public int maxTokens = 150;
[Tooltip("응답의 창의성을 조절합니다. 0에 가까울수록 결정적이고 빠른 응답이 생성됩니다.")]
[Range(0f, 1f)]
public float temperature = 0.3f;
private string apiKey;
private List messages = new List();
[TextArea(3, 10)]
[Tooltip("챗봇에게 전달할 초기 시스템 인스트럭션입니다. 챗봇의 역할과 행동 방식을 정의합니다.")]
public string initialInstruction = "안녕하세요, 챗봇과 대화를 시작합니다. 아래 instruction을 참고하세요.";
[Tooltip("대화 기록에 유지할 최대 메시지 수입니다. 너무 많은 메시지는 응답 속도를 늦출 수 있습니다.")]
public int maxMessageHistory = 10;
[Tooltip("대화 기록을 저장하는 배열입니다. 인스펙터에서 확인할 수 있습니다.")]
[SerializeField] private ChatMessage[] messageHistory;
void Start()
{
LoadApiKey();
StartNewConversation();
}
///
/// StreamingAssets 폴더의 auth.json 파일에서 API 키를 로드합니다.
/// 예시 파일 형식: { "api_key": "your_api_key_here" }
///
private void LoadApiKey()
{
string authFilePath = System.IO.Path.Combine(Application.streamingAssetsPath, "auth.json");
if (System.IO.File.Exists(authFilePath))
{
try
{
string jsonContent = System.IO.File.ReadAllText(authFilePath);
Debug.Log("로드된 auth.json 내용: " + jsonContent);
if (!jsonContent.Trim().StartsWith("{") || !jsonContent.Trim().EndsWith("}"))
{
Debug.LogError("auth.json 파일이 올바른 JSON 형식이 아닙니다. 올바른 형식: {\"api_key\":\"your_api_key_here\"}");
return;
}
AuthData authData = JsonUtility.FromJson(jsonContent);
if (authData != null && !string.IsNullOrEmpty(authData.api_key))
{
apiKey = authData.api_key;
Debug.Log("API 키가 성공적으로 로드되었습니다.");
}
else
{
Debug.LogError("auth.json 파일에서 API 키를 찾을 수 없습니다.");
}
}
catch (System.Exception e)
{
Debug.LogError("auth.json 파일 파싱 중 오류 발생: " + e.Message);
}
}
else
{
Debug.LogError("auth.json 파일을 찾을 수 없습니다. 경로: " + authFilePath);
}
}
///
/// 새 대화를 시작합니다. 기존 대화 기록을 초기화하고 초기 instruction 메시지를 추가합니다.
///
public void StartNewConversation()
{
messages.Clear();
ChatMessage systemMessage = new ChatMessage { role = "system", content = initialInstruction };
messages.Add(systemMessage);
// 메시지 배열 업데이트
messageHistory = messages.ToArray();
Debug.Log("새 대화가 시작되었습니다. 초기 instruction이 추가되었습니다.");
}
///
/// 사용자 메시지를 추가하고 API로 전송합니다.
///
/// 사용자 입력 메시지
public void SendUserMessage(string userMessageContent)
{
ChatMessage userMessage = new ChatMessage { role = "user", content = userMessageContent };
messages.Add(userMessage);
// 메시지 수가 제한을 초과하면 오래된 메시지 제거 (시스템 메시지는 유지)
TrimMessageHistory();
StartCoroutine(SendRequestCoroutine());
}
///
/// 대화 기록이 너무 길어지지 않도록 오래된 메시지를 제거합니다.
///
private void TrimMessageHistory()
{
// 시스템 메시지를 제외한 메시지 수가 maxMessageHistory를 초과하면 오래된 메시지 제거
if (messages.Count > maxMessageHistory + 1) // +1은 시스템 메시지 때문
{
// 시스템 메시지는 항상 인덱스 0에 있다고 가정
int excessMessages = messages.Count - maxMessageHistory - 1;
messages.RemoveRange(1, excessMessages); // 시스템 메시지 다음부터 제거
}
// 메시지 리스트를 배열로 변환하여 인스펙터에서 확인할 수 있게 함
messageHistory = messages.ToArray();
}
///
/// 대화 전체를 JSON으로 직렬화하여 API에 POST 요청을 보내고, 응답을 받아 처리합니다.
///
IEnumerator SendRequestCoroutine()
{
if (string.IsNullOrEmpty(apiKey))
{
Debug.LogError("API 키가 설정되지 않았습니다. API 요청을 보낼 수 없습니다.");
yield break;
}
ChatCompletionRequest requestObj = new ChatCompletionRequest
{
model = model,
messages = messages,
max_tokens = maxTokens,
temperature = temperature
};
string jsonData = JsonUtility.ToJson(requestObj);
Debug.Log("요청 JSON: " + jsonData);
// UnityWebRequest 생성 시 POST 메서드를 직접 지정합니다.
UnityWebRequest request = new UnityWebRequest(apiUrl, "POST");
byte[] bodyRaw = System.Text.Encoding.UTF8.GetBytes(jsonData);
request.uploadHandler = new UploadHandlerRaw(bodyRaw);
request.downloadHandler = new DownloadHandlerBuffer();
request.SetRequestHeader("Content-Type", "application/json");
// API 키에서 불필요한 문자를 제거합니다.
string sanitizedApiKey = apiKey.Trim().Replace("\n", "").Replace("\r", "").Replace("\t", "").Replace("\"", "");
request.SetRequestHeader("Authorization", "Bearer " + sanitizedApiKey);
Debug.Log("API URL: " + apiUrl);
Debug.Log("요청 메서드: " + request.method);
yield return request.SendWebRequest();
Debug.Log("응답 상태 코드: " + request.responseCode);
if (request.result == UnityWebRequest.Result.Success)
{
string responseText = request.downloadHandler.text;
Debug.Log("응답 JSON: " + responseText);
ChatbotResponse response = JsonUtility.FromJson(responseText);
if (response != null && response.choices != null && response.choices.Count > 0)
{
ChatMessage assistantMessage = response.choices[0].message;
messages.Add(assistantMessage);
// 메시지 배열 업데이트
messageHistory = messages.ToArray();
Debug.Log("Assistant: " + assistantMessage.content);
}
}
else
{
Debug.LogError("API 요청 오류: " + request.error);
Debug.LogError("응답 내용: " + request.downloadHandler.text);
}
}
}
data = pd.read_csv('targetFileName', delimiter=',', encoding='cp949', engine='python') #인코딩타입은 꼭 바꿔주야 한다.
import chardet
#import sys
# 윈도우 환경에서 cp949 텍스트 인코딩 때문에 발생하는 문제를 우회하기 위한 코드이다.
# 아래는 만일을 위해 출력하는 것
#print(sys.stdin.encoding) #인풋 인코딩 타입
#print(sys.stdout.encoding) #아웃풋 인코딩 타입
file = ".\\확인할대상.csv" #csv 나 txt 등 텍스트 파일의 인코딩 타입을 확인하고 싶은 것의 경로를 입력한다.
def getDetectEncoding(file) :
try:
print("Fast Detect!!!")
with open(file, 'r') as f:
file_data = f.readlines() #텍스트로 읽어본다. 잘 읽히면 문제 없다. 보통 cp949 에러가 발생한다.
f.close()
#print(chardet.detect(file_data))
return chardet.detect(file_data[1])['encoding'] #0번째 줄은 보통 컬럼 헤더로 정보고 1번째 줄이 실제 내용이다. 빠른 처리를 위해 1줄만 읽어본다.
except:
print ("Except!!! not UTF-8 or 16. Retry Now... ")
with open(file, 'rb') as f:
file_data = f.read() #cp949 에러가 발생했을 때는 그냥 파일을 바이너리로 통채로 읽는다. 용량이 클 수록 느려진다. 하지만 쉽게 해결하는 방법
f.close()
#print(chardet.detect(file_data))
return chardet.detect(file_data)['encoding']
print(getDetectEncoding(file))
Dim Excel, Path
Set Excel = WScript.createObject("Excel.Application")
Path = WScript.ScriptFullName ' 현재 실행하는 전체 파일이름 (경로+이름)
Path = Left(Path, InStrRev(Path, "\")) ' 이름제거후 경로만 추출
Excel.Workbooks.Open(Path&"엑셀파일이름.xlsm") '매크로 포함된 엑셀 파일 실행
'실행하고 싶은 Sub문 입력
'Sub문에 모든걸 해두고 그 함수를 호출하는 것이 순차적으로 처리되어 원하는 결과물이 나올 것입니다.
'순차적으로 Excel.Run 을 시키면 동시에 실행되서 이상한 결과가 나올 수 있어요.
'이 함수에서 처리가 끝난 후, 해당 Workbook 을 저장하기를 권합니다.
Excel.Run "Sub문 매크로 함수명"
' 파일 닫기
Excel.Quit
'변수 초기화
Set Excel = Nothing
Set Path = Nothing
#path_dir에 wav파일만 있다고 가정합니다.
#path_dir 에 있는 모든 파일을 읽어서 list에 넣고 length(duration)을 모두 더합니다.
import wave
import contextlib
import os
#import sys
path_dir = '드라이브:/경로/경로/' #경로 끝에 / 꼭 붙이기
file_list =os.listdir(path_dir) #경로 읽어 파일명 리스트 만들기
file_list.sort() #정렬
# 누적값 초기화
acc = 0
for i in file_list:
with contextlib.closing(wave.open(path_dir + i,'r')) as f:
frames = f.getnframes()
rate = f.getframerate()
duration = frames / float(rate)
#print(duration)
acc += duration #누적값
#결과 출력
print (acc)
Function getCellValue(LOC_, strFile , strSheet , strPath )
'파일을 여는 것 따로 해줘야 하는데, 열었다 닫았다 prcess 과부하가 걸릴 수 있으므로 주의
Dim strPath, strFile, strSheet, strRng, strRef, Result As String
strPath = PathName_
strFile = FileName_
strSheet = SheetName_
'strRng = Range(LOC_).Value
strRng = LOC_
strRef = "'" & strPath & "[" & strFile & "]" & strSheet & "'!" & strRng
'Debug.Print (strRef)
getCellValue = Range(strRef).Value
End FunctionSub SheetToText()
Dim streamWrite As New ADODB.Stream '// 쓰기 스트림 선언 Microsoft ADODB 6.1 (ActiveX) 참조 필수
Dim sText As Variant '// 파일 데이터 선언
'// 파일 쓰기
streamWrite.Type = adTypeText
streamWrite.Charset = "UTF-8"
streamWrite.Open
'// 첫줄에 넣을 메시지
streamWrite.WriteText "// 첫줄"
'//시트 데이터 읽는데 필요한 변수 선언
Dim rng As Range
Dim iRow As Long, iCol As Integer
Dim sTxt As String, sPath As String, deLimiter As String
Set rng = ActiveSheet.UsedRange
deLimiter = ", " '// 구분자 "," 입력 바꿔도 됨
For iRow = 1 To rng.Rows.Count '// 1행부터 마지막 행까지
For iCol = 1 To rng.Columns.Count '// 1열부터 오른쪽 최대 열까지
sTxt = sTxt & ActiveSheet.Cells(iRow, iCol).Value & deLimiter
Next iCol
streamWrite.WriteText (Left(sTxt, Len(sTxt) - 1) & vbLf)
sTxt = vbNullString
Next iRow
'// 스트림의 마지막 표시
streamWrite.SetEOS
'// 세이브
Call streamWrite.SaveToFile(Application.ActiveWorkbook.Path + "\" + ActiveSheet.Name + ".txt", adSaveCreateOverWrite) '//저장할 경로와 파일 이름은 필요에 따라 변경할 것
'// 스트림 클로즈
streamWrite.Close
End Sub'Microsoft ActiveX Data Objects 6.1 Library 참조 필요
Private Sub EuckrToUtf8NoBOM(a_sFrom, a_sTo)
Dim streamRead As New ADODB.Stream '// 읽을 데이터
Dim streamWrite As New ADODB.Stream '// 작성할 데이터
Dim sText As Variant '// 파일 데이터
'// 파일데이터
streamRead.Type = adTypeText
streamRead.Charset = "euc-kr" '여기에 한글형을 입력한다.
streamRead.Open
Call streamRead.LoadFromFile(a_sFrom)
'// 개행코드 CRLF를 LF로 변환
sText = streamRead.ReadText
sText = Replace(sText, vbCrLf, vbLf)
'// 파일쓰기
streamWrite.Type = adTypeText
streamWrite.Charset = "UTF-8"
streamWrite.Open
'// euc-kr 을 utf-8 데이터로 쓴다.
Call streamWrite.WriteText(sText)
'// 바이너리 모드로 쓴 데이터 시작 위치를 BOM분의 3바이트씩 민다.
streamWrite.Position = 0
streamWrite.Type = adTypeBinary
streamWrite.Position = 3
'// 3바이트 민 상태에서 데이터를 취득
sText = streamWrite.Read
'// 3바이트 민 위치를 원래대로 돌린다.
streamWrite.Position = 0
'// BOM이 제거된 데이터를 처음부터 다시 쓴다.
Call streamWrite.Write(sText)
'// 현시점의 말미를 끝으로, 직전에 쓴 3바이트를 데이터 대상외로 한다.
streamWrite.SetEOS
'// 저장
Call streamWrite.SaveToFile(a_sTo, adSaveCreateOverWrite)
'// 파일 닫기
streamRead.Close
streamWrite.Close
End Sub
Option Explicit
Sub Createtextfile()
Dim TF As Object
Dim TFT As Object
'만들기
Set TF = CreateObject("scripting.filesystemobject")
Set TFT = TF.Createtextfile(Application.ActiveWorkbook.Path + "\l10n.js")
'Debug.Print (Application.ActiveWorkbook.Path)
'내용넣기
TFT.WriteLine "this is just test file" & vbCr & "afs"
TFT.WriteLine "this is 2nd line of test file"
TFT.WriteLine ActiveSheet.Name
'닫기
TFT.Close
Set TF = Nothing
Set TFT = Nothing
End SubSub 모든시트내용지우기()
Dim WS_Count As Integer
Dim i As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
' Begin the loop.
For i = 1 To WS_Count
' 여기에 원하는 코드를 넣는다. 열린 파일에 숨긴 시트가 있으면 에러날 때가 있음
Debug.Print ("시트 변경함 : " + ActiveWorkbook.Worksheets(i).name)
ActiveWorkbook.Worksheets(i).Select
Cells(1, 1).Select
'모든 셀 내용 삭제
Cells.Select
Selection.ClearContents
Next i
End Sub
Function checkColorTagVerify(str_)
' "Microsoft VBScript Regular Expressions 5.5" 를 선택하고 실행하여야한다
'검사할 문장
Dim sText As String
sText = str_
'태그 꺽쇄 갯수를 찾아서 나머지가 발생하면 에러로 간주
Dim charactercountA As Integer
Dim charactercountB As Integer
charactercountA = Len(str_) - Len(Replace(str_, "<", ""))
charactercountB = Len(str_) - Len(Replace(str_, ">", ""))
'Debug.Print (charactercountA)
'Debug.Print (charactercountB)
If charactercountA Mod 2 > 0 Then
sText = "#COLOR_TAG_ERROR"
End If
If charactercountB Mod 2 > 0 Then
sText = "#COLOR_TAG_ERROR"
End If
'혹시 모를 나머지 검사...
Dim find_ As Integer '시작 태그 깨짐으로 color= 만 남는 경우
Dim find2_ As Integer '끝 태그 깨짐으로 /color 만 남는 경우
Dim find3_ As Integer '시작태그는 있는데 끝 태그가 없는 경우,
Dim find4_ As Integer '시작태그는 있는데 끝 태그가 없는 경우의 반대
'Debug.Print (sText)
find3_ = InStr(sText, " 0 And find4_ = 0 Then
sText = "#COLOR_TAG_ERROR"
End If
If find4_ > 0 And find3_ = 0 Then
sText = "#COLOR_TAG_ERROR"
End If
'정규식 시작
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "<[^>]+>" '--- html tag match를 위한 정규식
regEx.IgnoreCase = True
regEx.Global = True
sText = regEx.Replace(sText, "")
'Debug.Print sText
'정규식 끝
find_ = InStr(sText, "color=")
find2_ = InStr(sText, "/color")
If find_ > 0 Then
sText = "#COLOR_TAG_ERROR"
End If
If find2_ > 0 Then
sText = "#COLOR_TAG_ERROR"
End If
checkColorTagVerify = sText
End Function
 | |
Private Sub VBA_JSON_TEST()
Dim JSON_ As String
Dim Parse As Object
'json 소스
JSON_ = "{ ""data"": { ""translations"": [ { ""translatedText"": ""welcome."", ""detectedSourceLanguage"": ""ko"" } ] }}"
Set Parse = JSONConverter.ParseJson(JSON_)
'접근 방법
Debug.Print Parse("data")("translations")(1)("translatedText")
End SubFunction CNumAlp(va As Variant) As Variant '?換する??
Dim al As String
If IsNumeric(va) = True Then '?値だったら
al = Cells(1, va).Address(RowAbsolute:=False, ColumnAbsolute:=False) '$無しでAddress取得
CNumAlp = Left(al, Len(al) - 1)
Else 'アルファベットだったら
CNumAlp = Range(va & "1").Column '列番?を取得
End If
End Function
Sub MacroSaveValue()
With Application: .Calculation = 3: .ScreenUpdating = 0
On Error Resume Next: Dim w As Worksheet, v
For Each w In Sheets
v = w.UsedRange.Value: w.UsedRange = v
Next: Set w = Nothing: .Calculation = 1: End With
'MsgBox ("모든 시트의 내용을 Value(값)으로 저장 완료")
'MsgBox ("!저장할 때 수식을 잃어버리지 않도록 주의!")
End Sub
Sub Delete_Cols_WithOut()
Dim co As Long, I As Long
Dim join As String
co = ActiveSheet.Range("A1").CurrentRegion.Columns.Count '추가할 시트에 Cols count 를 알아옵니다
Debug.Print ("#시트이름 : " + ActiveSheet.NAME)
Debug.Print ("--컬럼 목록 시작")
For I = 0 To co
Cells(1, I + 1).Select
join = Selection.Offset(0, 0) ' 비교할셀값 좌표
Debug.Print (join)
Next
Debug.Print ("--컬럼 목록 끝")
Debug.Print ("--------------------------------")
Cells(1, 1).Select
For I = 0 To co
join = Selection.Offset(0, 0) ' 비교할셀값 좌표
'Debug.Print (join)
If join = "Key" Or join = "삭제할 시트명" Then
Debug.Print ("찾음 : +" + join)
Selection.Offset(0, 1).Select
Else
Debug.Print ("삭제함 : -" + join)
Selection.EntireColumn.Delete
End If
Next
End Sub
'1시트 1셀 클릭 초기화
Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
Debug.Print ("시트 변경함 : " + ActiveWorkbook.Worksheets(I).NAME)
ActiveWorkbook.Worksheets(I).Select
Cells(1, 1).Select
Next I
End Sub