Skip to content

Instantly share code, notes, and snippets.

@fantasticswallow
fantasticswallow / TwitterConnectionCS
Created July 14, 2012 10:50
ReactiveOAuthのラッパー
using System;
using System.Net;
using Microsoft.Phone.Reactive;
using Codeplex.OAuth;
namespace TestPhoneApp1
{
public class TwitterConnectionCS
{
public delegate void resultTextCollection(string resTxt);
Module Module1
Sub Main()
For i As Integer = 1 To 1000
Dim tagint As Integer = NumberGenerater.GetInteger(Integer.MaxValue)
Console.WriteLine(tagint.ToString + " : " + GetFizzBuzzStr(tagint.ToString))
Threading.Thread.Sleep(1000)
Next
End Sub
@fantasticswallow
fantasticswallow / gist:5990632
Last active December 19, 2015 17:19
C言語のなんか
#include <stdio.h>
#include <ctype.h>
#include <string.h>
char charAddition(char ref, int num);
int charValid(char ref);
int charContains(char tag,char ref[]);
void main()
{
@fantasticswallow
fantasticswallow / gist:6076896
Last active December 20, 2015 05:18
艦これ 正規表現 フィルタとか抽出用
// 全ての艦名。手を加えてフィルタに使用する
(長門|陸奥|伊勢|日向|雪風|赤城|加賀|蒼龍|飛龍|島風|吹雪|白雪|初雪|深雪|叢雲|磯波|綾波|敷波|大井|北上|金剛|比叡|榛名|霧島|鳳翔|扶桑|山城|天龍|龍田|龍驤|睦月|如月|皐月|文月|長月|菊月|三日月|望月|球磨|多摩|木曾|長良|五十鈴|名取|由良|川内|神通|那珂|千歳|千代田|最上|古鷹|加古|青葉|妙高|那智|足柄|羽黒|高雄|愛宕|摩耶|鳥海|利根|筑摩|飛鷹|隼鷹|朧|曙|漣|潮|暁|響|雷|電|初春|子日|若葉|初霜|白露|時雨|村雨|夕立|五月雨|涼風|朝潮|大潮|満潮|霰|霞|陽炎|不知火|黒潮|祥鳳|翔鶴|瑞鶴|鬼怒|阿武隈|夕張|瑞鳳|三隈|舞風|衣笠|鈴谷|熊野|伊168|伊58|大和|秋雲|夕雲|巻雲|長波|武蔵|大鳳|伊19|伊8|阿賀野|能代|矢矧|Верный|ヴェールヌイ|ヴェルヌーイ|伊401|まるゆ|あきつ丸|イオナ|タカオ|ハルナ|弥生|卯月|Bismarck|ビスマルク|レーベレヒト・マース|マックス・シュルツ|Z1|Z3|天津風|谷風|酒匂|明石)
// 艦名+一部キーワード
(長門|陸奥|伊勢|日向|雪風|赤城|加賀|蒼龍|飛龍|島風|吹雪|白雪|初雪|深雪|叢雲|磯波|綾波|敷波|大井|北上|金剛|比叡|榛名|霧島|鳳翔|扶桑|山城|天龍|龍田|龍驤|睦月|如月|皐月|文月|長月|菊月|三日月|望月|球磨|多摩|木曾|長良|五十鈴|名取|由良|川内|神通|那珂|千歳|千代田|最上|古鷹|加古|青葉|妙高|那智|足柄|羽黒|高雄|愛宕|摩耶|鳥海|利根|筑摩|飛鷹|隼鷹|朧|曙|漣|潮|暁|響|雷|電|初春|子日|若葉|初霜|白露|時雨|村雨|夕立|五月雨|涼風|朝潮|大潮|満潮|霰|霞|陽炎|不知火|黒潮|祥鳳|翔鶴|瑞鶴|鬼怒|阿武隈|夕張|瑞鳳|三隈|舞風|衣笠|鈴谷|熊野|伊168|イムヤ|伊58|ゴーヤ|大和|秋雲|夕雲|巻雲|長波|武蔵|大鳳|伊19|伊8|阿賀野|能代|矢矧|Верный|ヴェールヌイ|ヴェルヌーイ|伊401|まるゆ|あきつ丸|イオナ|タカオ|ハルナ|弥生|卯月|Bismarck|ビスマルク|レーベレヒト・マース|マックス・シュルツ|Z1|Z3|天津風|谷風|酒匂|明石)(ちゃん|さん|(かわい|可愛)い|きた|(落ち|出|来)(ない|た|ね|る)|ドロップ|改|型
@fantasticswallow
fantasticswallow / gist:8156173
Created December 28, 2013 04:39
Update with Mediaができない
Public Async Function PostMediaAsync(uri As String, param As Dictionary(Of String, String), fileName As String, media As Byte()) As Task(Of HttpResponseMessage)
Using cli As New HttpClient
cli.Timeout = TimeSpan.FromSeconds(Timeout)
If param Is Nothing Then param = New Dictionary(Of String, String)
Dim boud = System.Environment.TickCount.ToString
Dim content As New MultipartFormDataContent("--" + boud)
For Each x In param
content.Add(New StringContent(x.Value), """" + x.Key + """")
Next
Dim binary = New ByteArrayContent(media)
@fantasticswallow
fantasticswallow / gist:9484563
Created March 11, 2014 12:23
custom observable collection
using System;
using System.Collections;
using System.Collections.Generic;
using System.Collections.Specialized;
using System.ComponentModel;
namespace BindingSampleApp
{
public class ExtendObservableCollection<T> : IList, IList<T>, INotifyCollectionChanged, INotifyPropertyChanged
{
@fantasticswallow
fantasticswallow / gist:1a9b757d7b9c04699adc
Last active August 29, 2015 14:02
PresentationWindowSwitcher.ThisAddin.vb
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Public Class ThisAddIn
Private Sub ThisAddIn_Startup() Handles Me.Startup
If System.Windows.Forms.Screen.AllScreens.Length > 1 Then
If System.Windows.Forms.Screen.AllScreens.Any(Function(x) x.Bounds.X > 0 OrElse x.Bounds.Y > 0) Then
isExtendedBefore = True
End If
Imports System.Windows.Forms
Imports Microsoft.Office.Interop.Excel
Public Class ThisAddIn
Private Sub ThisAddIn_Startup() Handles Me.Startup
'AddHandler Application.WorkbookOpen, AddressOf Application_WorkbookOpen
AddHandler Application.WorkbookOpen, wbWorkbookOpenSub2
End Sub
@fantasticswallow
fantasticswallow / th15IMEtools.txt
Last active August 30, 2015 00:43
MS-IME向け東方紺珠伝IME辞書
!!! 東方紺珠伝IME登録用(Ver0.5c)
!!! このファイルには致命的なネタバレなどを含みます。使用したことによるいかなる事態に対しても作者は責任を負いません
!!! This File is written by fantasticswallow(@f_swallow). You can use this file, and marge any file.
!!! ver0.3a 製品版一部対応。
!!! ver0.5a Hard対応完了。;ver0.5c Extraの曲名の説明部分が他と違っていたので修正
!!!全般
かんじゅでん 紺珠伝 名詞 東方第15作目
とうほうかんじゅでん 東方紺珠伝 名詞 東方第15作目
とうほうかんじゅでん 東方紺珠伝 ~ Legacy of Lunatic Kingdom. 名詞 東方第15作目
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Xml.Linq;
using Excel = Microsoft.Office.Interop.Excel;
using Office = Microsoft.Office.Core;
using Microsoft.Office.Tools.Excel;
namespace ExcelAddIn1