2016年09月21日

この操作を実行するにはアクセス権が必要です

昔から使っている外付けHDDの不要なバックアップファイルを削除しようとしたら、「この操作を実行するにはアクセス権が必要です」なんてエラーが出て削除できない。
もちろん管理者権限のあるユーザでログインしています。

以下のサイトを参考にして、チャレンジ中・・・

ファイルを移動しようとすると「このファイルへ移動するには管理者のアクセス許可を提供する必要があります」というメッセージがでる

XPなどの時代のファイルやフォルダが悪さしてるみたいですね。
posted by ぜんこう at 13:43| Comment(0) | Windows

2013年07月18日

Google Chromeのブックマークの行間(再び)

今日(2013/7/18)Google Chromeのブックマークの行間が再び広がってしまいました。
前にお世話になったサイトを覗いてみた。

GoogleChrome のソース表示とブックマークマネージャの表示を調整してみる

↑のページの下の方にある【2013/07/14 補足・追記】に書かれてあるように起動オプション --disable-new-menu-style が廃止されたみたい。
代わりに --force-fieldtrials="NewMenuStyle/Compact2/" を指定したらOK。

ご参考まで・・・
posted by ぜんこう at 17:34| Comment(0) | Other

2013年04月06日

Google Chromeのブックマークの行間

今日(2013/4/6)Google Chromeのブックマークの行間が広がってしまいました。
ブックマークをスクロールするのって嫌なので、何とかなんないかとググってみた(←結局Google ^^;)

参考になったのは↓
GoogleChrome のソース表示とブックマークマネージャの表示を調整してみる

↑のページの下の方にある【2013/04/05 補足・追記】に書かれてあるように起動オプションに --disable-new-menu-style を指定したら元に戻った。

あくまで、今時点のバージョン(僕のでは 26.0.1410.43 m)での対応方法なので、そのうちまた効かなくなる可能性大ですが、とりあえずご参考まで・・・
posted by ぜんこう at 06:17| Comment(0) | Other

2013年01月13日

バイト数を用いる文字列関数(改造版)

バイト数を用いる文字列関数 に関し、全角途中の指定時に取得した文字列に文字化けが発生するという指摘があったので、全角途中を指定された場合に半角スペースを挿入するように改造してみました。


VB や VBA の文字列関数である Left、Len、Mid、Right は全角文字でも半角文字でも 1文字と計算されてしまいます。

昔のように(?)、半角は 1バイト、全角は 2バイトとなる関数が欲しいと思ったことはないでしょうか?

例えば、全半角混在の固定長テキストファイルからある一部分(mバイト目から長さ nバイト)を切り出すようなことってありませんか?

通常の Left、Len、Mid、Right のような感覚で使える関数が欲しいと思って作成しました。

ascii_string2.txt






' @(f)
'
' 機能 : ASCIIでのLeftB
'
' 返り値 : 文字列
'
' 引き数 : ARG1 - 文字列(Unicode)
' ARG2 - (ASCIIでの)文字列長
'
' 機能説明 : 文字列の左端からASCIIコードでのバイト数分の文字列を返す。
'
' 備考 :
'
Public Function pAsciiLeftB(ByVal strValue As String, _
ByVal intLength As Integer) As String
Dim intValueLength As Integer

intValueLength = pAsciiLenB(strValue)

If intLength <= 0 Then
pAsciiLeftB = ""
ElseIf intValueLength > intLength Then
pAsciiLeftB = pAsciiMidB(strValue, 1, intLength)
Else
pAsciiLeftB = strValue
End If
End Function

' @(f)
'
' 機能 : ASCIIバイト長取得
'
' 返り値 : バイト長
'
' 引き数 : ARG1 - 文字列(Unicode)
'
' 機能説明 : ASCIIコードでのバイト長を返す。
'
' 備考 :
'
Public Function pAsciiLenB(ByVal strValue As String) As Integer
pAsciiLenB = LenB(StrConv(strValue, vbFromUnicode))
End Function

' @(f)
'
' 機能 : ASCIIでのMidB
'
' 返り値 : 文字列
'
' 引き数 : ARG1 - 文字列(Unicode)
' ARG2 - (ASCIIでの)開始位置
' ARG3 - (ASCIIでの)文字列長(省略可)
'
' 機能説明 : 文字列のASCIIコードでの開始位置からバイト数分の文字列を返す。
'
' 備考 :
'
Public Function pAsciiMidB(ByVal strValue As String, _
ByVal intStart As Integer, _
Optional ByVal varLength As Variant) As String
Dim intValueLength As Integer
Dim intMaxLength As Integer
Dim strRet As String
Dim i As Integer
Dim intLeftlength As Integer
Dim strChar1 As String

intValueLength = pAsciiLenB(strValue)

If intValueLength >= intStart Then
intMaxLength = intValueLength - intStart + 1
If IsMissing(varLength) Then
varLength = intMaxLength
ElseIf varLength > intMaxLength Then
varLength = intMaxLength
ElseIf varLength <= 0 Then
pAsciiMidB = ""
Exit Function
End If
strRet = ""
For i = 1 To Len(strValue)
intLeftlength = pAsciiLenB(Left(strValue, i))
If intLeftlength >= intStart Then
strChar1 = Mid(strValue, i, 1)
If strRet = "" And _
intLeftlength = intStart And _
pAsciiLenB(strChar1) > 1 Then
' 開始位置の全角途中指定時の補正
strRet = " "
Else
strRet = strRet & strChar1
End If
If pAsciiLenB(strRet) > varLength Then
' 文字列長の全角途中指定時の補正
strRet = Left(strRet, Len(strRet) - 1) & " "
End If
If pAsciiLenB(strRet) >= varLength Then
Exit For
End If
End If
Next i
pAsciiMidB = strRet
Else
pAsciiMidB = ""
End If
End Function

' @(f)
'
' 機能 : ASCIIでのRightB
'
' 返り値 : 文字列
'
' 引き数 : ARG1 - 文字列(Unicode)
' ARG2 - (ASCIIでの)文字列長
'
' 機能説明 : 文字列の右端からASCIIコードでのバイト数分の文字列を返す。
'
' 備考 :
'
Public Function pAsciiRightB(ByVal strValue As String, _
ByVal intLength As Integer) As String
Dim intValueLength As Integer

intValueLength = pAsciiLenB(strValue)

If intLength <= 0 Then
pAsciiRightB = ""
ElseIf intValueLength > intLength Then
pAsciiRightB = pAsciiMidB(strValue, intValueLength - intLength + 1)
Else
pAsciiRightB = strValue
End If
End Function

2012年12月01日

スキャナが使えない!?

スキャナで文書をPDFにしようとしたら・・・

ロックスイッチを解除し、USBケーブルを抜いて、接続し直してください。
スキャナドライバを終了します。


ってエラーが・・・USBを挿し直しても変わらず。

そういえば、USBハブ経由で今まで使ってて、そのハブには特に何も接続してなかったけど、今はHDDを接続してる。
試しにPC本体に直接USBを接続したら・・・使えたひらめき

USBから電源供給も受けてるから、HDDが接続されてたぶん電圧(?)が下がったせいかなぁ。

異常があったら、接続方法を変えてみるっていうのも試してみるべきですね。
posted by ぜんこう at 11:10| Comment(0) | Other

2012年07月05日

全半角混在trim

JavaScriptって trim関数(前後の空白除去)がないんですね。ネットで検索したらそれに代わる 正規化でreplaceする方法など見つかりました。
trim関数 - No Programming, No Life

ただ全角空白も除去したかったので上記サイトで紹介されていたものを全角対応しました。


String.prototype.trim = function() {
return this.replace(/^[\s ]+|[\s ]+$/g, "");
}


[/s ]/s の後ろ(次の文字)は全角空白です。
posted by ぜんこう at 09:42| Comment(0) | JavaScript

2012年05月19日

Excel 2010 で VBAを使用して貼り付けた図がリンクになっている

Excelシート上に写真を自動で配置して、モデルさんのプロフィールのようなものを自動で作成するプログラムを作って使ってもらってたのですが、最近「Excel 2010 で作成すると、他のPCで貼り付けた写真が見れない」・・・つまりシート上に画像がなくリンクになっている・・・と報告がありました。

僕が開発した環境は Excel 2007・・・2010 も 2007 と同じようなものと思っていただけに不思議で仕方なかったのですが、今日、実際に Excel 2010 で試してみて現象が再現しました。

通常の操作で[挿入]〜[図]でやると正常なのですが、VBA で
ActiveSheet.Pictures.Insert

ってやるとダメみたいです。
でもね・・・マクロ記録やると、2010でもこう記録されるんですよ!

ネットで検索してみたらありました。
Excel 2010 で Pictures.Insert メソッドを使用して図をワークシートに挿入すると図がリンク オブジェクトとして挿入される


「Shapes.Add メソッドを使用してください」って書いてある。

はい、そうですか・・・でも同じように貼り付けられるかなぁ・・・サイズ変更もやってるし・・・

Excelって比較的互換性があっただけに、今回のはショックです。
posted by ぜんこう at 15:53| Comment(2) | Microsoft Excel

2012年04月22日

FTPでディレクトリが削除できない

FFFTPを使用して、僕が保守を担当してるサイトに、ファイルのアップロードやディレクトリ作成とか、逆にファイルやディレクトリの削除をやってるのですが、ディレクトリが削除できなくなりました。

FFFTPでディレクトリの中を見ても空っぽ。
でも、ディレクトリを削除しようとすると
550 ディレクトリ名: Directory not empty

Windowsのコマンド・プロンプトからコマンドラインで FTP接続して同様に試すも結果は同じ。困った・・・

ネットを調べてみたら、セキュリティの関係で .htaccess などのファイルを隠すようにしてるサーバもあるとか。

試しにコマンドラインの FTP で、削除できないディレクトリをカレントにして
delete .htaccess
とやってみたら、command successful・・・やっぱり見えないファイルがあったんです。
これでディレクトリも削除できるようになりました ヽ(^o^)丿
posted by ぜんこう at 11:43| Comment(2) | Internet

2012年01月05日

FFFTPに意図しないファイルを読み込む脆弱性、IPAが公表

FFFTPに意図しないファイルを読み込む脆弱性、IPAが公表

 情報処理推進機構(IPA)が2011年12月9日、FTPクライアントソフト「FFFTP」に脆弱性があると公表した。ユーザーが意図しないファイルを読み込んでしまう脆弱性が存在するという。この脆弱性を利用されると、悪意あるプログラムが実行されてしまう恐れがある。

 対策は最新版へのアップデート。FFFTPは作者の曽田純氏が8月31日に開発終了を発表したが、オープンソースソフトとして有志による開発は継続されている。12月9日時点の最新版は1.98dで、既知の脆弱性に対処している(SourceForge.JPのFFFTP Project)。


僕もホームページのアップロードなどで使っているFFFTPですが、上記のような脆弱性があることが公表されました。
早速1.98dをダウンロード〜インストールしてみました。
実際にアップロードなどは行っていませんが、ツールバーがかなりにぎやかになってます(^^;)
posted by ぜんこう at 10:01| Comment(0) | Internet

2011年10月28日

画像を印刷すると縦横比がおかしい(横に広がる?)

Excelに画像ファイルを貼り付けて印刷(印刷プレビュー)すると、画像が横に広がってしまう事象が以前からありました。
Excel2003までは、その画像を[切り取り]→[形式を選択して貼り付け]で、「図(拡張メタファイル)」で貼り付ければ、正常に印刷できるようになっていたのですが、Excel2007からは、それをやっても横に広がったままになりました。

ところが、仕事先ではその事象が発生しないことがわかり、いろいろ調べてみたら、Excel2003までの場合 [ツール]→[オプション]の[全般]タブ、Excel2007だと [Officeボタン]→[Excelのオプションの[基本設定]。

ここでフォントとフォントサイズをインストール時のもの(たぶん、MS Pゴシック 11ポイント)から変更すると上記事象が発生するみたいです。
僕は MSゴシック 9ポイントに変更しています。
ただし、フォント/フォントサイズを変更した状態で作成したシートをインストール時の状態のExcelで開いても、解消されないので、インストール時のフォント/フォントサイズの状態で作成したシートを使わないといけません。

このフォント/フォントサイズを変更すると、列幅のポイント数も変化したので、それが影響したのだと思いますが、縦横比を維持してくれないのは、どうかと思います。
僕はバグと思うけど、Microsoftは仕様って言うんでしょうね。
posted by ぜんこう at 13:27| Comment(0) | Microsoft Excel