Dim Fs As New List(Of String) For Each temFile As String In Fs If Fs.Count = Fs.IndexOf(temFile) + 1 Then 'ここに処理 End If Next リストに6つのアイテムがある場合 Fs.Count = 6 Fs.IndexOf(6番目のアイテム) = 5 なので気をつけよう。 （Index は 0…

Dim sss As String = "C:\test001\41900709048-01.pdf" Console.WriteLine(Path.GetDirectoryName(sss)) Console.WriteLine(Path.GetFileName(sss)) Console.WriteLine(Path.GetExtension(sss)) Console.WriteLine(Path.GetFileNameWithoutExtension(sss)) C…

Dim fs As New List(Of String) Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then 'コントロール内にドラッグされたとき実…

Dim IllApp As New Illustrator.Application Dim IllDoc As Illustrator.Document Dim temText As TextArtItem Dim tChara As Character IllDoc = IllApp.ActiveDocument For Each temText In IllDoc.TextArtItems temText.Selected = True For Each tChara …

CODE(A1)：文字コードを表示 "A"は65，"z"は122ASC(A1)：文字を半角にするSUBSTITUTE(A1,"ﾞ","")：置換・・・濁点をナシに置換しているJIS(A1)：全角にする=IF(CODE(ASC(LEFT(C5,1)))<122,ASC(LEFT(C5,1)),JIS(SUBSTITUTE(SUBSTITUTE(ASC(LEFT(C5,1)),"ﾟ",""…

イラストレーターでファイルを処理するコンソールアプリケーションを作成したがsaveasで保存ダイアログが出てしまう。なんでかなーと思ってフルパスを短めにしてみたら問題なく実行された。ファイルの階層が深いのが原因らしい。で、実験してみると半角英数…

If Len(tItem.Contents) > 1 Then For Each aaa As Illustrator.Character In tItem.TextRange.Characters 'テキストの変換 If aaa.Contents = "~" Then aaa.Contents = "〜" End If 'カーニングの判別 If aaa.Kerning() = 0.5 Then Debug.WriteLine(aaa.Ker…

Dim fs As New List(Of String) Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then 'コントロール内にドラッグされたとき実…