fantasticswallow

!!! 東方天空璋IME登録用（ver0.2c）
!!! このファイルには致命的なネタバレなどを含みます。使用したことによるいかなる事態に対しても作者は責任を負いません
!!! This File is written by fantasticswallow(@f_swallow). You can use this file, and marge any file.
!!! ver0.2b 読めなかった曲名とかに対応。体験版仕様として不要なコメントを削除
!!! ver0.2c タブ文字の入力ミスに対処

!!!全般
てんくうしょう	天空璋	名詞	東方第16作目
とうほうてんくうしょう	東方天空璋　～ Hidden Star in Four Seasons.	名詞	東方第16作目
とうほうてんくうしょう	東方天空璋	名詞	東方第16作目

fantasticswallow

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

fantasticswallow

!!! 東方紺珠伝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作目

fantasticswallow

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

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

fantasticswallow

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

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

// 全ての艦名。手を加えてフィルタに使用する
(長門|陸奥|伊勢|日向|雪風|赤城|加賀|蒼龍|飛龍|島風|吹雪|白雪|初雪|深雪|叢雲|磯波|綾波|敷波|大井|北上|金剛|比叡|榛名|霧島|鳳翔|扶桑|山城|天龍|龍田|龍驤|睦月|如月|皐月|文月|長月|菊月|三日月|望月|球磨|多摩|木曾|長良|五十鈴|名取|由良|川内|神通|那珂|千歳|千代田|最上|古鷹|加古|青葉|妙高|那智|足柄|羽黒|高雄|愛宕|摩耶|鳥海|利根|筑摩|飛鷹|隼鷹|朧|曙|漣|潮|暁|響|雷|電|初春|子日|若葉|初霜|白露|時雨|村雨|夕立|五月雨|涼風|朝潮|大潮|満潮|霰|霞|陽炎|不知火|黒潮|祥鳳|翔鶴|瑞鶴|鬼怒|阿武隈|夕張|瑞鳳|三隈|舞風|衣笠|鈴谷|熊野|伊168|伊58|大和|秋雲|夕雲|巻雲|長波|武蔵|大鳳|伊19|伊8|阿賀野|能代|矢矧|Верный|ヴェールヌイ|ヴェルヌーイ|伊401|まるゆ|あきつ丸|イオナ|タカオ|ハルナ|弥生|卯月|Bismarck|ビスマルク|レーベレヒト・マース|マックス・シュルツ|Z1|Z3|天津風|谷風|酒匂|明石)

// 艦名+一部キーワード
(長門|陸奥|伊勢|日向|雪風|赤城|加賀|蒼龍|飛龍|島風|吹雪|白雪|初雪|深雪|叢雲|磯波|綾波|敷波|大井|北上|金剛|比叡|榛名|霧島|鳳翔|扶桑|山城|天龍|龍田|龍驤|睦月|如月|皐月|文月|長月|菊月|三日月|望月|球磨|多摩|木曾|長良|五十鈴|名取|由良|川内|神通|那珂|千歳|千代田|最上|古鷹|加古|青葉|妙高|那智|足柄|羽黒|高雄|愛宕|摩耶|鳥海|利根|筑摩|飛鷹|隼鷹|朧|曙|漣|潮|暁|響|雷|電|初春|子日|若葉|初霜|白露|時雨|村雨|夕立|五月雨|涼風|朝潮|大潮|満潮|霰|霞|陽炎|不知火|黒潮|祥鳳|翔鶴|瑞鶴|鬼怒|阿武隈|夕張|瑞鳳|三隈|舞風|衣笠|鈴谷|熊野|伊168|イムヤ|伊58|ゴーヤ|大和|秋雲|夕雲|巻雲|長波|武蔵|大鳳|伊19|伊8|阿賀野|能代|矢矧|Верный|ヴェールヌイ|ヴェルヌーイ|伊401|まるゆ|あきつ丸|イオナ|タカオ|ハルナ|弥生|卯月|Bismarck|ビスマルク|レーベレヒト・マース|マックス・シュルツ|Z1|Z3|天津風|谷風|酒匂|明石)(ちゃん|さん|(かわい|可愛)い|きた|(落ち|出|来)(ない|た|ね|る)|ドロップ|改|型

fantasticswallow

#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

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